【VBA】value 文字列として扱える場合とは

Sub HandleStringValue()

Dim cellValue As String

' セルA1に文字列 "Hello" が入力されているとする
cellValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value

' 結果をデバッグウィンドウに出力
Debug.Print cellValue ' 出力: Hello

End Sub

Sub ConvertValueToString()

Dim numericValue As Variant
Dim stringValue As String

' セルA1に数値 1234 が入力されているとする
numericValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value

stringValue = CStr(numericValue)

' 結果をデバッグウィンドウに出力
Debug.Print stringValue ' 出力: 1234

End Sub

Sub HandleFormulaValue()

Dim cellValue As Variant
Dim stringValue As String

' セルA1に数式 =SUM(1, 2, 3) が入力されているとする
cellValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value

' 結果を直接文字列に変換しようとすると、数値として扱われる
stringValue = CStr(cellValue)

' 結果をデバッグウィンドウに出力
Debug.Print stringValue ' 出力: 6

End Sub

Sub HandleFormattedValue()

Dim cellValue As Variant
Dim formattedValue As String

' セルA1に数値 1234.56 が入力され、通貨形式 ($1,234.56) が適用されているとする

cellValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value

formattedValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Text

' 結果をデバッグウィンドウに出力
Debug.Print "Value: " & CStr(cellValue) ' 出力: 1234.56
Debug.Print "Text: " & formattedValue ' 出力: $1,234.56

End Sub

Sub SafeConvertValueToString()

Dim cellValue As Variant
Dim stringValue As String

' セルA1の値を取得
cellValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value

' 値が数値かどうかを確認してから文字列に変換
If IsNumeric(cellValue) Then

stringValue = CStr(cellValue)

Else

stringValue = cellValue

End If

' 結果をデバッグウィンドウに出力
Debug.Print stringValue

End Sub

Sub ConvertUsingTextProperty()

Dim cellText As String

' セルA1の表示されているテキストを取得
cellText = ThisWorkbook.Sheets("Sheet1").Range("A1").Text

' 結果をデバッグウィンドウに出力
Debug.Print cellText

End Sub