お世話になっております。
以下の「終了日」というフォールドで”うるう年”をチェックしています。
「2012/02/28」と手動で入力した場合確認画面が出るようにしています。
ほとんどは2/29が正しいですが、稀に2/28でOKの場合もあり、これは許可しています。
もっと稀に終了日が空白でOKの時もあるのですが、日付が入力されていないからか、
エラーが出て先へ進めません。
うるう年をチェックしつつ、空白も許可するにはどうしたら良いでしょうか。
----------
Private Sub 終了日_Exit(Cancel As Integer)
Const cMsg = "うるう年ですけど、終了日は2/29じゃなくて大丈夫ですか?"
If Format(Me.終了日.Text, "mdd") = "228" And _
IsLeapYear(Year(Me.終了日.Text)) Then
If MsgBox(cMsg, vbYesNo) = vbNo Then
Cancel = True
End If
End If
End Sub
----------
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
空欄か日付が入っているかは並び立たないので
単純に二段構えで
If Me!終了日.Text = "" Then
If MsgBox("未記入ですが進めますか", vbYesNo) = vbYes Then
Exit Sub
Else
Cancel=true
Exit Sub
End If
End If
以下うるう年のチェック・・・
ではダメですかね?
なお、フォーカス喪失時イベントでは、何も編集していなくても
そこから移動するたびにイベントが発生してしまうので
更新前処理に変更した場合で考えてます。
この回答への補足
とても参考になります。ありがとうございます。
フォーカスの喪失時でやりたい理由がありまして、
他のフォームにて入力したデータを、このフォームの特定のボタンを押した時にもチェックをかけたいんです。
なので、更新しなくてもボタンを押す時がある為、フォーカスの喪失時にしてみました。
そのボタンには、他にもチェックをしてる項目があるので、マクロの中に「フォーカスの移動」を複数入れています。
他に終了日に対してうるう年チェックと空白無視をする案ありますでしょうか。
空白はメッセージ表示しても良いですが、できれば「無視(許可)」にしたいです。
宜しくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
12月23日の一ヶ月後は1月21日で...
-
人月を時間にすると?
-
「うるうの年」(閏年とは違い...
-
数学(判断推理)に関する質問...
-
ユリウス暦とグレゴリウス暦の違い
-
曜日別の勤務時間の構成比の算...
-
祝日と祝祭日
-
2010年1月24日は日曜日です。
-
十年ぐらい前の、何月何日が何...
-
IF関数で閏年を抽出
-
今年の海の日
-
ツェラーの公式について
-
2月29日は「うるう日」。あなた...
-
1900年の2月は閏年ではないの...
-
好きな人から言われたことについて
-
社内で60歳を超えている人がよ...
-
調印式に代表者が出席できない...
-
皆さん、ケツ(尻)の大きさと...
-
信号待ちの暇つぶし
-
PTA委員なのに出てこない人には...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
おすすめ情報