2

マクロを実行したところ、以下が得られました。

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("B:B").Select
    Range("B4").Activate
    Selection.NumberFormat = "0.00"
    Selection.NumberFormat = "@"
End Sub

今は と の違いを理解できませんでしSelection.NumberFormat = "0.00"Selection.NumberFormat = "@"同じことを理解するのを手伝ってもらえますか?

また、Excelのテキストとして数値を数値に変換しようとしていました。そうするのに良い構文は何ですか?

スナップショット:

既存の数値形式

編集

以下で数値として保存されているすべての数値を変換しようとしましtextたが、何も変わりませんでした。私が間違っている場合はガイドしてください:

objSheet1.Columns(11).NumberFormat = "0"
4

2 に答える 2

3

これはあなたがしようとしていることですか?

Sub Sample()
    Dim ws As Worksheet
    Dim lRow As Long, i As Long

    '~~> Change this to the relevant sheet name
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        '~~> Col B
        .Columns(2).NumberFormat = "0.00"

        '~~> Get the last row
        lRow = .Range("B" & .Rows.Count).End(xlUp).Row

        For i = 1 To lRow
            .Range("B" & i).Formula = .Range("B" & i).Value
        Next i
    End With
End Sub

スクリーンショット

ここに画像の説明を入力

于 2012-12-31T13:08:03.070 に答える
0

セルに数値として保存されているテキストを数値に変換するには、次のようなことを試すことができます。

Sub ConvertTextInCellToNumber(ByVal cellLocation As String)

Dim txt As String
txt = range(cellLocation).text

On Error GoTo Catch

Dim txtAsNumber As Double
txtAsNumber = txt

range(cellLocation).Value = txtAsNumber

Catch:

End Sub
于 2012-12-31T10:11:35.383 に答える