Home » Excel VBA Rangeオブジェクト » セルの値をDate型で取得するには?

動作検証バージョン:64bit Windows 10 Pro + 32bit Excel(バージョン2005 ビルド12827.20336 Microsoft Store)

「VBA セルの値をdate型で取得する」
という検索キーワードに気が付きました。

この検索だけでは、何がしたかったのか詳細がわかりませんが、拙著『いちばんやさしいPowerPoint VBAの教本』で繰り返し行っているように、ローカルウィンドウで変数の中身を確認することをおすすめします。

[スポンサードリンク]

アクティブセルに入力されているデータの型を確認するSubプロシージャ

まずは以下のSubプロシージャを作成してください。
Sub アクティブセルに入力されているデータの型を確認する()
 Dim var As Variant
 var = ActiveCell.Value
 Stop
End Sub

アクティブセルのデータを、Variant型変数varに代入して、Stopステートメントで中断するだけのプロシージャです。

ローカルウィンドウでデータ型を確認しましょう

Subプロシージャを作成したら、何らかのデータが入力されているセルをアクティブにして、ローカルウィンドウを表示した状態で実行しましょう。

Stopステートメントで中断したら、変数varの型をローカルウィンドウで確認です。

日付の場合

日付データの入力されたセルがアクティブな状態で実行すれば、Variant型で宣言されていた変数にDate型のデータが代入されたので、

上図のとおり「Variant/Date」と表示されます。

整数の場合

整数の入力されたセルをアクティブにして実行すれば、

Double型です。

文字列の場合

日付データを入力しておいてから、先頭にシングルクォーテーション「'」をつけた状態で実行すれば、

String型です。

変数をDate型で宣言した場合

つづいて、先ほどのSubプロシージャを以下のような形に編集してから再度実行しましょう。
Sub アクティブセルに入力されているデータの型を確認する()
 Dim var As Date ' Variant
 var = ActiveCell.Value
 Stop
End Sub

整数の入力されたセルをアクティブにして実行すると、Date型で宣言された変数に、Date型として扱い得る整数が格納されたので、

「Date」と表示されます。

上図は「-9999」と入力されているセルがアクティブな状態で実行したところです。

日付データを入力しておいてから、先頭にシングルクォーテーション「'」をつけた状態で実行した場合も、

「Date」です。

上図は「'2020/6/29」と、文字列データが入力されているセルがアクティブな状態で実行したところです。

データ型に厳密なプログラミング言語に慣れた方だと、非常に気持ち悪い挙動だと思いますが、これがVBAの仕様です。

勝手に型変換を行ってくれます。一応、日付データに変換するCDate関数はありますが。

もちろん、日付に変換できないデータの入力されたセルがアクティブな状態で実行すれば、実行時エラーが発生します。

[スポンサードリンク]

Home » Excel VBA Rangeオブジェクト » セルの値をDate型で取得するには?

「Excel VBA Rangeオブジェクト」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.