もくじ
The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- Excel関数 日付から「曜日」を返す【WEEKDAY関数】 - 2018年8月16日
- Word 名前を付けて保存する - 2018年8月14日
- VBA カッコの内の文字列を抜き出す - 2018年8月12日
- ExcelとWord連携パート2【セルの値をWordに転記してみよう】 - 2018年8月10日
- VBA ユーザー名を取得する方法 - 2018年8月9日
どうも、takaです(^^)/
今回は「変数の値を解析しデータ型を返す【TypeName 関数】」ということで久しぶりの関数の記事になります(^^♪
今回の「TypeName 関数」は正直私がVBAを使い始めて使う機会は殆どありませんでしたが、知識として知っておいて損はありませんのでこんな関数もあるのか・・・程度には覚えておいてください(^^♪
TypeName関数の書式
TypeName関数の書式は以下の通りです。
1 | TypeName(変数) |
変数の引数にはユーザー定義型以外の変数を含むバリアント型の値が必要です。
TypeName関数の引数で返される値
TypeName関数 によって返される文字列は以下の通りです。
返される文字列 変数 object type objecttype 型のオブジェクト Byte バイト値 Integer 整数 Long 長整数 Single 単精度浮動小数点数 Double 倍精度浮動小数点数 Currency 通貨値 Decimal 10 進値 Date 日付値 String 文字列 Boolean ブール値 Error エラー値 Empty 初期化されていません Null 有効な値がありません Object オブジェクト Unknown 不明な型のオブジェクト Nothing オブジェクトを参照しないオブジェクト変数
TypeName関数の使用例
下記の使用例はMSDN TypeName 関数を日本語訳した物です(;^ω^)
1 2 3 4 5 6 7 8 9 10 11 12 | Sub Sample() '変数を宣言します。 Dim NullVar, MyType, StrVar As String, IntVar As Integer, CurVar As Currency Dim ArrayVar(1 To 5) As Integer NullVar = Null 'Null値を割り当てます。 MyType = TypeName(StrVar) '文字列を返します。 MyType = TypeName(IntVar) '整数を返します。 MyType = TypeName(CurVar) '通貨 "を返します。 MyType = TypeName(NullVar) 'Nullを返します。 MyType = TypeName(ArrayVar) 'Integer（）を返します。 End Sub |
これだと感覚をつかみにくいと思うので簡単に使用例を作成しました(;^ω^)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Sub Sample() Dim i As Long Dim str As String Dim dt As Date i = 10 'Longが返される str = "あいうえお" 'Stringが返される dt = 2018 / 3 / 1 'Dateが返される MsgBox TypeName(i) & vbCrLf & _ TypeName(str) & vbCrLf & _ TypeName(dt) & vbCrLf _ End Sub |
変数の型が返されました(^^♪
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Twitterフォロー
Follow @takabou63
使用OS：
コメントを残す