入力日付がカレンダーにある日付かどうかチェックする関数はないんでしょうか？

EXCEL VBA 2010で2018/2/29とか、2018/6/31と入力された場合、カレンダーにない日なので間違いとわかる関数はないでしょうか？

No.4 ベストアンサー 回答者： WindFaller 回答日時： 2018/07/21 02:03

>カレンダーにない日なので間違いとわかる関数はないでしょうか？

EXCEL VBA では、IsDate 関数を使います。

'//参考例：
Sub DateChecker()
Dim myDate As Variant 'あえてバリアント型にする
Do
　myDate = Application.InputBox("日付を入れてください。'yyyy/m/d'", "日付入力", Format(Date, "yyyy/m/d"), Type:=2) '文字列
　If myDate = False Then Exit Sub 'Escで離脱
　If IsDate(myDate) = False Then
　 MsgBox myDate & " その入力の日付は存在しません。", vbCritical
　End If
Loop Until IsDate(myDate) 'IsDate がTrue になるまで繰り返す

MsgBox myDate & "は、日付として認識しました。", vbInformation
End Sub

この回答へのお礼

早い」回答、ありがとうございました。
大変わかりやすく、早速使わせていただきました。

お礼日時：2018/07/21 16:20

No.3 回答者： vide 回答日時： 2018/07/21 01:50

2018/2/29、2018/6/31と入力された場合、値は文字列になっています。

「条件付き書式」で文字列なら赤くしましょう。※数分待つと動画サイズが大きくなります。
https://photos.app.goo.gl/MisykPZLfAo9pntm6

No.2 回答者： mike_g 回答日時： 2018/07/21 00:21

[No.1]の続きだけど、

私が示した式でエラーにならない「カレンダーにない日」が例外として１日だけあります。
1900/2/29 です。知る人ぞ知る？

No.1 回答者： mike_g 回答日時： 2018/07/21 00:15

入力するセルを A1 としたとき、次式(加減乗除算)は何れも #VALUE! と表示されますが・・・

=E2+0
=E2-0
=E2*1
=E2/1