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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: RGB 値一覧表（XlRgbColor 列挙型）

RGB 値（XlRgbColor 列挙型）一覧表 RGB 関数を使用して、出力さ …

: CPU に制御を移す（DoEvents 関数）

DoEvents 関数 DoEvents 関数を実行すると、CPU に制御を移し …

: 指定した数のスペースを挿入する（Spc 関数）

指定した数のスペースを挿入指定した数のスペースを挿入するには、Spc 関数を使 …

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

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

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

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

: 指定した値を8進数で表記した文字列に変換する（Oct 関数）

Oct 関数の使い方【書式】 result = Oct ( expressi …

: 文字列：文字列の空白を削除（Trim 関数, LTrim関数, RTrim関数）

Trim 関数・LTrim 関数・RTrim 関数の使い方【書式】＜先頭と末 …

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

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

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

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

: 色の設定（ThemeColor プロパティ・TintAndShade プロパティ）

ThemeColor プロパティ・TintAndShade プロパティテーマカ …

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