重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら>

【GOLF me!】初月無料お試し

テキストボックスに日付を入力したいのですが、今日と過去の日付はエラーは出ず、未来、将来の日付は入力したら、エラーメッセージが出るようにしたい。が出て、テキストボックスの日付はクリアになる様にしたいです。

よろしくお願いします

A 回答 (1件)

こんにちは!



テキストボックス → TextBox1 とします。
ごく簡単に・・・

 Dim myDate As Date
  myDate = DateValue(TextBox1)
   If myDate > Date Then
    MsgBox "日付が不正です!"
    TextBox1 = ""
   End If

こんな感じではどうでしょうか?m(_ _)m
    • good
    • 0
この回答へのお礼

助かりました

tom04さん
早々の回答ありがとうございました!
うまく出来ました。
助かりました。

お礼日時:2020/06/09 12:19

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!