![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
作業ブックを開くタイミングで、警告文を表示させる方法を教えてください。
パターン1
指定シートの指定セル「D37」と「E37」にそれぞれ日付が表示されております。
この日付「D37~E37」の期間中に作業ブックを開くと
警告文「締め切りが近づいております、ご注意ください」と表示
パターン2
指定シートの指定セル「D39」と「E39」にそれぞれ日付が表示されております。
この日付「D39~E39」の期間中に作業ブックを開くと
警告文「締め切りが完了しました」と表示
出来る方法を教えてください。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
手順は複数考えられると思います
締め切りが近づいております と 締め切りが完了し は当然重ならないと思いますので上から順で・・・
>警告文 16アイコンとなりますが 48 注意アイコンにしました
Private Sub Workbook_Open()
Dim cellDate As Range
Dim Rng As Range
Set Rng = Worksheets("指定シート").Range("D37,E37,D39,E39")
Dim strMsg As String
strMsg = ""
For Each cellDate In Rng
If Not IsDate(cellDate) Then strMsg = strMsg & cellDate.AddressLocal(0, 0)
Next
If strMsg <> "" Then MsgBox strMsg & " のセル日付を確認してください": Exit Sub
With Worksheets("指定シート")
If chkPeriod(.Range("D37"), .Range("E37")) Then
MsgBox ("「締め切りが近づいております、ご注意ください」"), 48
Exit Sub
End If
If chkPeriod(.Range("D39"), .Range("E39")) Then
MsgBox ("「締め切りが完了しました」"), 48
Exit Sub
End If
End With
End Sub
'例によってファンクションで
Function chkPeriod(fromDate As Date, toDate As Date) As Boolean
Dim chkResult As Boolean: chkResult = False
If Date >= fromDate And Date <= toDate Then
chkResult = True
End If
chkPeriod = chkResult
End Function
セルの値が日付データなのかチェックを入れましたがどうでしょう
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Access(アクセス) エクセルのVBAについて教えてください。 4 2023/01/21 10:21
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 09:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- Visual Basic(VBA) VBA 複数のブックに同じ列を表示させる方法 2 2022/07/20 23:49
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/20 16:37
- Access(アクセス) ExcelのVBAコードについて教えてください。 4 2023/01/20 09:44
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 3 2022/06/10 09:24
- Excel(エクセル) エクセルについて教えてください。 1 2023/03/03 08:38
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
エクセルVBAで機械の稼働時間を...
-
excelのVBAについて、以下のコ...
-
エクセルのVBAで日付を検索し転...
-
ExcelのVBAコードについて教え...
-
テキストボックスにカレンダー...
-
ZedGraphのグラフ作成時のX軸日付
-
最近、iPhoneがおかしいです 私...
-
アンドロイドから通知無しで鳴る音
-
iPhoneの通知が何故か来なくな...
-
iPhoneのメールで、特定の人だ...
-
電話の着信が来てないのに着信...
-
スマホ 電話の着信・受信履歴が...
-
ファミリーリンクの通知が消え...
-
iPhone6 LINEの通知が二回
-
このPASMOの通知来ないようにで...
-
SIM無しアップデート方法
-
iPhoneのアラーム音が最大にし...
-
iPhoneの着信履歴に履歴を残さ...
-
iPhone
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
エクセルのVBAで日付を検索し転...
-
DataGridViewでyyyy/MM/dd
-
Eclipseの対応する括弧の強調表...
-
JSPからYYYYMMDDで日付入力する
-
「eclipseで作るカレンダー(ス...
-
VisualBasic6.0のFormat関数で...
-
今日より前の書き方 マクロ
-
【VBA】土日をスキップして日付...
-
1本あたり○円と表示する時どの...
-
3人のじゃんけんのプログラム
-
システム日付とは?
-
VBAで当月の1日を表示するには...
-
【Excel VBA】条件に合った行の...
-
VB6.0 のformat関数について
-
テキストボックスにカレンダー...
-
VBA 日付、未来の日付はエラー...
-
コンボボックスに日付を表示する
-
VB 日付範囲チェック
-
指定した日付が、その月の第何...
おすすめ情報
VBAprojectを使い
Private Sub Workbook_Open()
MsgBox "警告文"
End Sub
までは設定できました。
上記のコードを編集して私の希望に沿うようにできますでしょうか。
重ねてよろしくお願いいたします。