VBA 変数の値を解析しデータ型を返す【TypeName 関数】

ページコンテンツ

1 TypeName関数の書式

どうも、takaです(^^)/

今回は「変数の値を解析しデータ型を返す【TypeName 関数】」ということで久しぶりの関数の記事になります(^^♪

今回の「TypeName 関数」は正直私がVBAを使い始めて使う機会は殆どありませんでしたが、知識として知っておいて損はありませんのでこんな関数もあるのか・・・程度には覚えておいてください(^^♪

TypeName関数の書式

TypeName関数の書式は以下の通りです。

TypeName(変数)

1	TypeName(変数)

変数の引数にはユーザー定義型以外の変数を含むバリアント型の値が必要です。

TypeName関数の引数で返される値

TypeName関数によって返される文字列は以下の通りです。

返される文字列変数
object type objecttype 型のオブジェクト
Byte バイト値
Integer 整数
Long 長整数
Single 単精度浮動小数点数
Double 倍精度浮動小数点数
Currency 通貨値
Decimal 10 進値
Date 日付値
String 文字列
Boolean ブール値
Error エラー値
Empty 初期化されていません
Null 有効な値がありません
Object オブジェクト
Unknown 不明な型のオブジェクト
Nothing オブジェクトを参照しないオブジェクト変数
参考:MSDN TypeName 関数

返される文字列	変数
object type	objecttype 型のオブジェクト
Byte	バイト値
Integer	整数
Long	長整数
Single	単精度浮動小数点数
Double	倍精度浮動小数点数
Currency	通貨値
Decimal	10 進値
Date	日付値
String	文字列
Boolean	ブール値
Error	エラー値
Empty	初期化されていません
Null	有効な値がありません
Object	オブジェクト
Unknown	不明な型のオブジェクト
Nothing	オブジェクトを参照しないオブジェクト変数

TypeName関数の使用例

下記の使用例はMSDN TypeName 関数を日本語訳した物です(;^ω^)

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 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