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 列挙型オートシェイプオブジェクトの図形の種類 …

: xlFileFormat 列挙型

xlFileFormat 列挙型 Workbook.SaveAs メソッドの引 …

: 変数がNull 値かどうかをチェックする（ IsNull 関数）

IsNull 関数の使い方【書式】 result = IsNull ( exp …

: VBA で正規表現を使う（RegExp オブジェクトのプロパティ）

RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …

: IME の現在の状態を取得します（IMEStatus 関数）

IMEStatus 関数の使い方【書式】 result = IMEStatus …

: VBA の演算子（演算子の優先順位）

演算子の優先順位演算子の優先順位とは、１つの式の中に演算子が複数ある場合、どの …

: 文字列：文字列の長さを取得（ Len 関数、LenB 関数）

Len 関数（文字列の長さを取得）【書式】 result_len = Len …

: 日付時刻：現在の日付・時刻を取得・設定（Now、Date、Time）

現在の日付・時刻を取得・設定現在の日付・時刻を取得（Now 関数、Date 関 …

: 文字列：定数（改行・タブ）

改行・タブの定数これらの定数は、使用前に定義する必要はありません。コード中のど …

: 上付き文字・下付き文字（Superscript,Subscript）

上付き文字（Superscript プロパティ） Superscript プロパ …

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