The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- VBA【Application.Unionメソッド】複数のセルを参照する - 2018年11月8日
- Excel関数【CONCAT関数】文字列を結合する - 2018年11月5日
- VBAでATMのようなランダムキーを作ってみた - 2018年10月17日
- IT企業てどんな感じ？ブラックが多いの？実際に社長に聞いてきた！ - 2018年10月15日
- 【雑記】親知らずの抜糸してきました！意外と痛い！ - 2018年10月14日
どうも、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サイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Sponsored Link
特別企画！IT企業の実情をIT企業の社長に聞いてみた！
独学者が多いVBAプログラマー「せっかくプログラム言語を覚えたし、IT企業に転職しようかな？でも、IT企業って良いイメージ聞かないし実際はどうなんだ？」という疑問にIT企業の社長に直に聞いてみました！！
使用OS：
コメントを残す