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

The following two tabs change content below.

• この記事を書いた人
• 最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

最新記事 by taka (全て見る)

• 『雑記』最近の私の話～ - 2019年9月26日
• 【動画】自作パソコン構成変更！ケースをNZXT　H500に交換しました！ - 2019年6月5日
• VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
• 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
• VBA　日付で令和を簡単に判定してみよう - 2019年5月7日

どうも、taka(@takabou63)です(^^♪

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

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

TypeName関数の書式

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

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

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

変数の型が返されました(^^♪

フォロー・チャンネル登録お願いします

VBA以外についてのブログはこちら↓

■Twitterフォロー

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link