![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
いつもお世話になります
Dim saa As String
saa = InputBox("実行する日付を入力して下さい" & vbCrLf & "入力例)2016/03/17(半角入力)", "日付入力")
If saa = "" Then Exit Sub
If Not IsDate saa Then
MsgBox "日付の入力が間違っています" & vbCrLf & "2016/01/07のように入力して下さい", 16
End If
上記コードは一応、yyyy/mm/dd で入力してもらうようにしているコードのつもりです。
でも、正確に動作しません。
このコードを、日付入力の方法が間違っていたら、Exit Sub で終わるのでななく、ループ?ってやつできちんと日付入力がされるまでマクロが終わらないコードに修正して頂きたいです。
どなたか、ご教示頂ける方いらっしゃいましたらよろしくお願い致します。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
No.1ベストアンサー
- 回答日時:
Dim saa As String
Top: ←追加
saa = InputBox("実行する日付を入力して下さい" & vbCrLf & "入力例)2016/03/17(半角入力)", "日付入力")
If saa = "" Then Exit Sub
If Not IsDate(saa) Then ←修正
MsgBox "日付の入力が間違っています" & vbCrLf & "2016/01/07のように入力して下さい", 16
GoTo Top ←追加
End If
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Visual Basic(VBA) ExcelVBA No.を自動連番で設定をしながらデータ入力をしたい 2 2022/08/03 18:19
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VBAで文字列を数値に変換したい
Excel(エクセル)
-
EXCEL VBA でインプットボックスを開いたときの入力モードの設定について
Excel(エクセル)
-
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
6
InputBoxの入力値を半角数字のみと限定する方法
Excel(エクセル)
-
7
VBAでInputBoxの再入力をさせるには?
Visual Basic(VBA)
-
8
エクセル マクロ名にブック名が付いた場合の修正方法
Excel(エクセル)
-
9
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
10
Excel2010のinputboxで複数データ一括入力について
Visual Basic(VBA)
-
11
文字列の結合を空白行まで実行
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
初歩的な事だと思います。 Sub...
-
数字以外の入力をエラーにする...
-
テキストボックスの番号を使っ...
-
Excel-VBAでInputBox+Pulldown...
-
excel vba でユーザーフォーム...
-
アルファベットGの小文字の入力
-
EXCEL VBA で指定した範囲に入...
-
VBAでInputBoxの再入力をさせる...
-
アクセスのマクロ
-
C++でのリアルタイム入力の方法...
-
DataGridViewの桁数制限に関して
-
c#でTextBoxの入力制限
-
ACCESS テキストボックスの入力...
-
accessで該当するレコードがな...
-
DataGridView 列ごとの入力制限
-
データベースの番号を1つずつ加...
-
「イ分」・・・フンという文字...
-
転記マクロ
-
TextBoxに特定の文字のみ入力を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
数字以外の入力をエラーにする...
-
初歩的な事だと思います。 Sub...
-
EXCEL VBA で指定した範囲に入...
-
Windowsのアプリ開発ってなんの...
-
入力フォームの値をQRコードで...
-
教えて!全角文字「μ」の半角
-
Excel-VBAでInputBox+Pulldown...
-
VBAでInputBoxの再入力をさせる...
-
エディットボックスの入力制限...
-
TextBoxから数字が文字...
-
VBAの質問になります メッセー...
-
指定した演算を実施の結果を表...
-
excel vba でユーザーフォーム...
-
アルファベットGの小文字の入力
-
DataGridView 列ごとの入力制限
-
accessで該当するレコードがな...
-
c#でTextBoxの入力制限
-
VBA R1C1形式で変数の入力について
おすすめ情報