VBAのVariantであらゆるデータ型を扱う方法をわかりやすく解説

Sub ExampleVariant()
    Dim data As Variant ' Variant 型の変数を宣言
    
    ' 数値を代入
    data = 100
    Debug.Print "数値: " & data
    
    ' 文字列を代入
    data = "こんにちは"
    Debug.Print "文字列: " & data
    
    ' 日付を代入
    data = #2024/01/01#
    Debug.Print "日付: " & data
End Sub

Sub ExampleVariantExcel()
    Dim cellValue As Variant
    
    ' A1 の値を取得
    cellValue = Range("A1").Value
    
    ' データ型を判定
    Select Case VarType(cellValue)
        Case vbString
            MsgBox "A1 には文字列が入っています: " & cellValue, vbInformation
        Case vbInteger, vbLong, vbDouble
            MsgBox "A1 には数値が入っています: " & cellValue, vbInformation
        Case vbDate
            MsgBox "A1 には日付が入っています: " & cellValue, vbInformation
        Case Else
            MsgBox "A1 のデータ型は不明です。", vbExclamation
    End Select
End Sub

Sub ExampleVariantArray()
    Dim myArray As Variant
    
    ' 配列を作成
    myArray = Array(100, "VBA", #2024/01/01#)
    
    ' 配列の中身を表示
    MsgBox "数値: " & myArray(0) & vbCrLf & _
           "文字列: " & myArray(1) & vbCrLf & _
           "日付: " & myArray(2), vbInformation, "Variant 配列"
End Sub

Sub SafeVariant()
    Dim value As Variant
    
    ' セル A1 の値を取得
    value = Range("A1").Value
    
    ' 数値であるかをチェック
    If IsNumeric(value) Then
        MsgBox "数値が入力されています: " & value, vbInformation
    Else
        MsgBox "A1 の値は数値ではありません", vbExclamation
    End If
End Sub