ExcelVBA 変数の型が期待と違う｜型が一致しません｜型を調べる方法

ExcelVBA  変数の型（データ型）を適切に設定することが重要。変数の型が期待されるものと違うと、「型が一致しません（エラー 13）」 が発生します。使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA 変数の型を調べる方法｜シーン

Excel VBA 変数の型を調べる方法｜サンプルコード

Option Explicit

Sub 型チェック()
    Dim testValue As Variant
    testValue = "123" ' 文字列としての123
    
    Debug.Print "VarType: " & VarType(testValue) ' 結果：8（文字列）
    Debug.Print "TypeName: " & TypeName(testValue) ' 結果："String"
    
    If IsNumeric(testValue) Then
        Debug.Print "これは数値として扱えます。"
    Else
        Debug.Print "これは数値ではありません。"
    End If
End Sub

標準モジュール（型が違うデータを代入したときに発生するエラー）

Option Explicit

Sub 型エラー()
    Dim num As Integer
    num = "abc" ' 文字列を数値型に代入 → エラー 13（型が一致しません）
End Sub

標準モジュール（エラー回避方法）

Option Explicit

Sub 型エラー回避()
    Dim num As Integer
    Dim inputValue As Variant
    inputValue = "123" ' 文字列の123

    If IsNumeric(inputValue) Then
        num = CInt(inputValue) ' 数値に変換して代入
        Debug.Print "変換成功：" & num
    Else
        Debug.Print "エラー：数値に変換できません"
    End If
End Sub

標準モジュール（入力値の型に応じて処理を変える）

Option Explicit

Sub 型チェック_分岐()
    Dim value As Variant
    value = Date ' 今日の日付

    Select Case VarType(value)
        Case vbString
            Debug.Print "文字列型です"
        Case vbInteger, vbLong, vbDouble
            Debug.Print "数値型です"
        Case vbDate
            Debug.Print "日付型です"
        Case Else
            Debug.Print "その他の型です"
    End Select
End Sub

Excel VBA 変数の型を調べる方法｜まとめ