作業ブックに下記のコードを設定しております。
各指定セル("B20", "F20", "H20")にそれぞれ日付が表示されると、設定マクロが実行できますが、
セル("H20")に日付を表示し、そのほかの("B20", "F20",)に日付を表示していないのに
マクロが実行されてしまいます。
指定セル("B20", "F20", "H20")全てに日付が表示された場合のみにマクロを実行できる
方法を教えてください。
現状のマクロ
Private Sub Worksheet_Change(ByVal Target As Range)
' ケース1
Dim checkRanges As Variant
checkRanges = Array("B20", "F20", "H20")
Dim isTargetChange As Boolean
isTargetChange = False
Dim checkRange As Variant
For Each checkRange In checkRanges
If Not Intersect(Target, Range(checkRange)) Is Nothing Then
isTargetChange = True
Exit For
End If
Next
If Not isTargetChange Then Exit Sub
If Range("B20").Value <= CDate("2025年3月31日") And _
Range("F20").Value <= CDate("2025年3月31日") And _
Range("H20").Value > CDate("2025年3月31日") Then
Call 申請の流れ改正前1図表示
Call 申請の流れ改正後2図表示
Call 申請の流れケース1図表示
Call 申請の流れケース2図非表示
Call 申請の流れケース3図非表示
Call 申請の流れケース4図非表示
Call 申請の流れケース5図非表示
Call 申請の流れケース6図非表示
Call 申請の流れ施行日以降ケース図非表示
End If
End Sub
以上です。
よろしくお願いいたします。

No.1ベストアンサー
- 回答日時:
こんにちは
IsDate関数を利用すれば、セル値が日付かどうかを判定できますので、そちらを利用してください。
https://learn.microsoft.com/ja-jp/office/vba/lan …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2024/07/02 08:51
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2024/03/06 13:07
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2024/12/04 13:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2024/12/05 16:25
- Visual Basic(VBA) VBAコードについて教えてください。 3 2024/07/02 12:34
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) エクセルのVBAコードについて教えてください。 6 2024/06/28 11:33
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2024/06/18 09:20
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 5 2024/05/29 16:59
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2024/11/27 15:06
このQ&Aを見た人はこんなQ&Aも見ています
-


Excelのマクロについて教えてください。
Visual Basic(VBA)
-


vbaマクロについて
Visual Basic(VBA)
-


以下のプログラムの実行結果はどうなると思いますか? その理由も教えてください。
Visual Basic(VBA)
-
-
4

算術演算子「¥」の意味について
Visual Basic(VBA)
-
5

VBAの「To」という語句について
Visual Basic(VBA)
-
6

エクセル タブの下のメニューを選択 実行するコード
Visual Basic(VBA)
-
7

Excelのマクロについて教えてください。
Visual Basic(VBA)
-
8

Excelのマクロについて教えてください。
Visual Basic(VBA)
-
9

Excelのマクロについて教えてください。
Visual Basic(VBA)
-
10

ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
11

不要項目の行削除方法について
Visual Basic(VBA)
-
12

VB.net 文字列から日付型へ変更したい
Visual Basic(VBA)
-
13

Excel VBAについて。こんな動作をさせるためにはどう書けばよいでしょうか。
Visual Basic(VBA)
-
14

VBA 最終行の取得がうまくいかず上書きされてしまいます。
Visual Basic(VBA)
-
15

VBAでユーザーフォームを指定回数繰り返して入力を行う方法
Visual Basic(VBA)
-
16

質問58753 このコードでうまく動作しません。どうしたら良いですか Private Sub Wor
Visual Basic(VBA)
-
17

Excelのマクロについて教えてください。
Visual Basic(VBA)
-
18

エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
19

ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
20

えくせるのVBAコードについて教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が...
-
【マクロ】並び替えの範囲が、...
-
【マクロ】オートフィルター を...
-
Vba Array関数について教えてく...
-
Vba 型が一致しません(エラー1...
-
【ExcelVBA】値を変更しながら...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教え...
-
【ExcelVBA】5万行以上のデー...
-
VBAでセルの書式を変えずに文字...
-
【マクロ】開いているブックの...
-
Vba セルの4辺について罫線が有...
-
vb.net(vs2022)のtextboxのデザ...
-
Excel VBA 選択範囲の罫線色の...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
エクセルの改行について
-
VBAで特定の文字が入った行をコ...
-
WindowsのOutlook を VBA から...
-
Excel 範囲指定スクショについ...
-
【マクロ】シートの変数へ入れ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba セルの4辺について罫線が有...
-
vbsでのwebフォームへの入力制限?
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
【マクロ】開いているブックの...
-
【マクロ】並び替えの範囲が、...
-
エクセルの改行について
-
エクセルのマクロについて教え...
-
vb.net(vs2022)のtextboxのデザ...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA ユーザーフォーム ボタンク...
-
エクセルのVBAコードと数式につ...
-
エクセルのVBAコードについて教...
-
[VB.net] ボタン(Flat)のEnable...
-
【マクロ】変数を使った、文字...
-
改行文字「vbCrLf」とは
-
質問58753 このコードでうまく...
-
【マクロ】シートの変数へ入れ...
-
ワードの図形にマクロを登録で...
-
算術演算子「¥」の意味について
おすすめ情報









