![]() |
データ型変換関数:Excel VBA関数 |
スポンサードリンク | |
関数 | 戻り値のデータ型 |
CBool | ブール型(Boolean) |
CByte | バイト型(Byte) |
CCur | 通貨型(Currency) |
CDate | 日付型(Date) |
CDbl | 倍精度浮動小数点実数型(Double) |
CInt | 整数型(Integer) |
CLng | 長整数型(Long) |
CSng | 単精度浮動小数点実数型(Single) |
CVar | バリアント型(Variant) |
CStr | 文字列型(String) |
Sub test() Range("D1").Value = Range("A1").Value & Range("B1").Value & Range("C1").Value Range("D2").Value = CDate(Range("A1").Value & Range("B1").Value & Range("C1").Value) End Sub |
返される文字列 | 変数の情報 |
オブジェクトの種類 | 返された文字列 |
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 | オブジェクトを参照していないオブジェクト変数 |
Sub test() Range("D1").Value = Range("A1").Value & Range("B1").Value & Range("C1").Value Range("D2").Value = CDate(Range("A1").Value & Range("B1").Value & Range("C1").Value) Range("E1").Value = TypeName(Range("D1").Value) Range("E2").Value = TypeName(Range("D2").Value) End Sub |
定数 | 値 | 内容 |
vbEmpty | 0 | Empty 値 (未初期化) |
vbNull | 1 | Null 値 (無効な値) |
vbInteger | 2 | 整数型 |
vbLong | 3 | 長整数型 (Long) |
vbSingle | 4 | 単精度浮動小数点数型 (Single) |
vbDouble | 5 | 倍精度浮動小数点数型 (Double) |
vbCurrency | 6 | 通貨型 (Currency) |
vbDate | 7 | 日付型 (Date) |
vbString | 8 | 文字列型 |
vbObject | 9 | オートメーション オブジェクト |
vbError | 10 | エラー型 |
vbBoolean | 11 | ブール型 (Boolean) |
vbVariant | 12 | バリアント型 (Variant) (バリアント型配列にのみ使用) |
vbDataObject | 13 | 非オートメーション オブジェクト |
vbByte | 17 | バイト型 |
vbArray | 8192 | 配列 (Array) |
Sub test() Range("D1").Value = Range("A1").Value & Range("B1").Value & Range("C1").Value Range("D2").Value = CDate(Range("A1").Value & Range("B1").Value & Range("C1").Value) Range("E1").Value = VarType(Range("D1").Value) Range("E2").Value = VarType(Range("D2").Value) End Sub |
Sub test2() Dim c As Range For Each c In Selection c.Offset(0, 1) = VarType(c) Next c End Sub |
関数名 | 内容 |
IsArray | 変数が配列かどうかを調べる |
IsDate | 値を日付型に変換可能かどうかを調べる |
IsEmpty | 値がEmptyかどうかを調べる |
IsError | 式がエラー値かどうかを調べる |
IsMissing | プロシージャに省略可能なバリアント型 (Variant) の引数が渡されたかどうかを調べる |
IsNull | 式にNull値が含まれているかを調べる |
IsNumeric | 値を数値として評価できるかどうかを調べる |
IsObject | 識別子がオブジェクトかどうかを調べる |
Sub test() Range("D1").Value = Range("A1").Value & Range("B1").Value & Range("C1").Value Range("D2").Value = CDate(Range("A1").Value & Range("B1").Value & Range("C1").Value) Range("E1").Value = IsDate(Range("D1").Value) Range("E2").Value = IsDate(Range("D2").Value) End Sub |
表記 | 意味 | 型宣言文字 | データ範囲 |
Byte | バイト型 | 0〜255 | |
Boolean | ブール型 | TrueまたはFalse | |
Integer | 整数型 | % | -32,768 〜 32,767 |
Long | 長整数型 | & | -2,147,483,648 〜 2,147,483,647 |
Currency | 通貨型 | @ | -922,337,203,685,477.5808〜 922,337,203,685,477.5807 |
Single | 単精度浮動小数点型 | ! | -3.402823E38〜-1.401298E-45(負の値) 1.401298E-45〜3.402823E38(正の値) |
Double | 倍精度浮動小数点型 | # | -1.79769313486232E308〜-4.94065645841247E-324(負の値) 4.94065645841247E-324〜1.79769313486232E308(正の値) |
Date | 日付型 | 西暦1900年1月1日〜西暦9999年12月31日 | |
String | 固定長文字列型 | $ | 0〜約64KB |
可変長文字列型 | 0〜2GB | ||
Variant | バリアント型 | 数値(Double) 文字列(可変長文字列) |
|
Object | オブジェクト型 | オブジェクトを参照する | |
Decimal | 10進 |
スポンサードリンク
PageViewCounter
Since2006/2/27