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

関連記事

: 日付時刻：日付時刻データを計算（ DateAdd 関数）

DateAdd 関数（日付・時刻の値を加算・減算結果を取得）【書式】 resu …

: 列挙型変数（Enum ステートメント）

列挙型変数を使う列挙型変数を使用するには、Enum ステートメントを使って、宣 …

: エラー（CVErr 関数・IsError 関数・Error 関数）

CVErr 関数（エラー番号をエラー値に変換する）の使い方【書式】 retur …

: 文字列：指定した数の空白（スペース）からなる文字列を返す（Space 関数）

Space 関数【書式】 result = Space ( number ) …

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

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

: VBA の演算子（文字連結演算子：& 演算子 + 演算子）

文字連結演算子文字連結演算子は、文字列の連結を行うときに使用する演算子で、「& …

: XlThemeColor 列挙型

XlThemeColor 列挙定数値内容 xlThemeColorDark …

: 配列（宣言・要素数の変更について）

配列の宣言【書式】※ 配列の宣言＜Type 型の静的配列（固定長配列）の宣言 …

: VBAの変数宣言

VBAの変数宣言について変数を暗黙的に宣言するエクセル VBA の場合、明示 …

: 変数のデータ型・宣言（Dim ステートメント）

変数の宣言一般的な方法【書式】 Dim varname [ As type, …

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