VBA TypeName関数で型名を取得

TypeName関数で型名を取得

Sub test()

　'  TypeName関数で型名を取得

    Dim myValue As Variant
    Dim s As String
    
    myValue = 800
    s = TypeName(myValue)
    Debug.Print (s)  ' Interger

    myValue = 3.1415926
    s = TypeName(myValue)
    Debug.Print (s) ' Double
    
    
    myValue = "EXCEL_VBA"
    s = TypeName(myValue)
    Debug.Print (s) ' String
    
    
    Dim obj As Object
    Set obj = Worksheets(1)
    s = TypeName(obj)
    Debug.Print (s)      'Worksheet

End Sub

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る