Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

データ型を調べてそのデータ型を示す文字列を返す（TypeName 関数）

2015/05/17 2015/08/26

TypeName 関数の使い方

TypeName 関数は、引数に、データ型を調べたい値や変数を指定するとそのデータ型を示す文字列を返します。

【書式】

result = TypeName ( varname )

引数・戻り値

varname ・・・調べたい値や変数を指定します。
result ・・・引数 varname のデータ型を表す文字列
（戻り値は、以下「TypeName 関数の戻り値一覧」を参照）。

TypeName 関数の戻り値一覧

戻り値	内容
Byte	バイト型（Byte）
Integer	整数型（Integer）
Long	長整数型（Long）
Single	単精度浮動小数点数型（Single）
Double	倍精度浮動小数点数型（Double）
Currency	通貨型（Currency）
Decimal	10 進数型
Date	日付型（Date）
String	文字列型（String）
Boolean	ブール型（Boolean）
Error	エラー値
Empty	未初期化
Null	無効な値
Object	オブジェクト
Unknown	オブジェクトの種類が不明なオブジェクト
Nothing	オブジェクトを参照していないオブジェクト変数

引数 varname が、バリアント型変数の場合は、内部処理形式を識別する文字列を返します。

引数 varname が配列の場合は、上記の文字列の中の該当する文字列またはバリアント型（Variant）の値に、空のかっこ “()” を付けて返します。
（例）引数 varname が整数の配列のとき、TypeName 関数は “Integer()” を返します。

TypeName 関数の使用例

サンプルVBAソース

　
Sub Sample_typename()

    Dim myStr As String, myInt As Integer, myLng As Long
    Dim myDbl As Double, mySgl As Single, myBol As Boolean
    Dim myObj As Object, myDat As Date, myCur As Currency
    Dim myByt As Byte, myWks As Worksheet
    Dim myVal1, myVal2, myEmp, myNull
    
    Set myWks = ActiveSheet
    myVal1 = 123
    myVal2 = CDec(12500)
    myNull = Null
    
    Debug.Print TypeName(myStr)
    Debug.Print TypeName(myInt)
    Debug.Print TypeName(myLng)
    Debug.Print TypeName(myDbl)
    Debug.Print TypeName(mySgl)
    Debug.Print TypeName(myBol)
    Debug.Print TypeName(myObj)
    Debug.Print TypeName(myDat)
    Debug.Print TypeName(myCur)
    Debug.Print TypeName(myByt)
    Debug.Print TypeName(myWks)
    Debug.Print TypeName(myVal1)
    Debug.Print TypeName(myVal2)
    Debug.Print TypeName(myEmp)
    Debug.Print TypeName(myNull)

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

　

Sub Sample_typename()

Dim myStr As String, myInt As Integer, myLng As Long

Dim myDbl As Double, mySgl As Single, myBol As Boolean

Dim myObj As Object, myDat As Date, myCur As Currency

Dim myByt As Byte, myWks As Worksheet

Dim myVal1, myVal2, myEmp, myNull

Set myWks = ActiveSheet

myVal1 = 123

myVal2 = CDec(12500)

myNull = Null

Debug.Print TypeName(myStr)

Debug.Print TypeName(myInt)

Debug.Print TypeName(myLng)

Debug.Print TypeName(myDbl)

Debug.Print TypeName(mySgl)

Debug.Print TypeName(myBol)

Debug.Print TypeName(myObj)

Debug.Print TypeName(myDat)

Debug.Print TypeName(myCur)

Debug.Print TypeName(myByt)

Debug.Print TypeName(myWks)

Debug.Print TypeName(myVal1)

Debug.Print TypeName(myVal2)

Debug.Print TypeName(myEmp)

Debug.Print TypeName(myNull)

End Sub

　

実行結果

- VBA基本 TypeName 関数, VBA基本, エクセルVBA, データ型, 型名

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: オートシェイプの種類を表す定数（MsoAutoShapeType 列挙型）

MsoAutoShapeType 列挙型オートシェイプオブジェクトの図形の種類 …

: ユーザー定義定数（Const ステートメント）

定数を使うユーザー定義の定数を使用するには、Const ステートメントを使って …

: 式の値に応じて多分岐を行う（Switch 関数）

Switch 関数の使い方 Switch 関数は、「式・値」を対にして指定して …

: VBA の演算子（比較演算子）

比較演算子比較演算子による演算の結果は「真」の場合は「True」、「偽」の場合 …

: 変数が日付型かどうかをチェックする（ IsDate 関数）

IsDate 関数の使い方【書式】 result = IsDate( expr …

: 文字列：文字列の指定した位置から指定文字数取得（Mid 関数,MidB 関数）

Mid 関数・MidB 関数の使い方【書式】 result_mid = Mi …

: 文字列：文字列変数内の一部を置き換える（Mid・MidB ステートメント）

Mid・MidB ステートメントの使い方【書式】 { Mid | MidB } …

: 文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

RSet ステートメント・LSet ステートメント【書式】＜ RSet ステ …

: 連想配列（Dictionary オブジェクト）

連想配列連想配列とは、添字（キー）に文字列を使用することができる配列です。 V …

: 乱数を生成する（Rnd 関数）

Rnd 関数の使い方 Rnd 関数は、0 以上、1 未満の範囲の乱数を単精度浮動 …

PREV: 指定した数値を文字列に変換する（Str 関数）
NEXT: データ型を調べて、そのデータ型を示す数値を返す（VarType 関数）