(VBA)IsDate関数を「時刻のみ」データに適用してチェックをしたいのですが、hh:mm形式でデータ入力されているのにfalseになってしまいます。どうすれば時刻データ（シリアル値）以外をハネることができるでしょうか。

Question

32

250pt

※http://www.filebox100.net fb10083.xls にデータと試作マクロを添付しました。

回答の条件

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

メモブロ - 日時のチェックをするIsDate()で時間のチェックをする方法 2010-09-09 09:53:35

日時のチェックをするIsDate()で時間のチェックをする方法 ”7:00:00”みたいな時間だけ入力してもfalseを返してくるけど先頭に日時を追加してあげればうまいことチェックしてくれる dim t t =

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません

kn1967 · Answer 1 · 2008-07-21T16:16:21+09:00

時刻部分だけだと不十分なためIsDate関数はFalseを返してきます。

対策としては日付型となるように不足分を補填するようにします。

ActiveWorkbook.ActiveSheet.Cells(i, 3) = IsDate("01/01/01 " & Format(ActiveWorkbook.ActiveSheet.Cells(i, 2), "hh:mm:dd"))

pahoo · Answer 2 · 2008-07-21T16:34:24+09:00

IsDate 関数は「日付」検査用です。VBA には時刻検査関数は用意されていません。

方法は２つ考えられます。

NumberFormatLocal プロパティによって、表示書式が "hh:mm" であるかどうかを調べる。

時刻のシリアル値は1.0未満、一方の日付は1.0以上なので、値が1.0未満のセルは「時刻」と判断する。

SALINGER · Answer 3 · 2008-07-21T18:21:33+09:00

IsDateは文字列を日付型に変換できるかを調べる関数です。

そして日付型は時刻も含まれるので、時刻も調べられますよ。

配布されたExcelファイルのように、Ｂ列に"hh:mm"と書式が設定されているなら、

  ActiveWorkbook.ActiveSheet.Cells(i, 3) = IsDate(ActiveWorkbook.ActiveSheet.Cells(i, 2).Text)

とtextプロパティで、直接表示されている値を取得して調べればいいです。

valueだとシリアル値が返るのので、IsDateはシリアル値かどうかを調べる関数ではないのでFalseを返すわけです。

回答（3件）