Sub Sample()
'変数を宣言します。
Dim NullVar, MyType, StrVar As String, IntVar As Integer, CurVar As Currency
Dim ArrayVar(1 To 5) As Integer
NullVar = Null 'Null値を割り当てます。
MyType = TypeName(StrVar) '文字列を返します。
MyType = TypeName(IntVar) '整数を返します。
MyType = TypeName(CurVar) '通貨 "を返します。
MyType = TypeName(NullVar) 'Nullを返します。
MyType = TypeName(ArrayVar) 'Integer()を返します。
End Sub
これだと感覚をつかみにくいと思うので簡単に使用例を作成しました(;^ω^)
Sub Sample()
Dim i As Long
Dim str As String
Dim dt As Date
i = 10 'Longが返される
str = "あいうえお" 'Stringが返される
dt = 2018 / 3 / 1 'Dateが返される
MsgBox TypeName(i) & vbCrLf & _
TypeName(str) & vbCrLf & _
TypeName(dt) & vbCrLf _
End Sub
コメントを残す