下記のこーどを実行すると
上のコードだけ実行されます。
どこをなおしらよいのか。
わかる方おしえてくれませんでしょうか
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E:E,G:G")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Row Mod 2 = 0 Then
If IsDate(.Value) Then
Cells(.Row, "A").Interior.ColorIndex = 6
End If
End If
End With
Dim rw As Long
If Target.Column <> 2 And Target.Column <> 3 Then Exit Sub
rw = Target.Row
If IsDate(Cells(rw, 2).Text) And IsDate(Cells(rw, 3).Text) Then
If Cells(rw, 2).Value >= Cells(rw, 3).Value Then
Cells(rw, 1).Interior.ColorIndex = 3
Else
Cells(rw, 1).Interior.ColorIndex = 1
End If
Else
Cells(rw, 1).Interior.ColorIndex = xlColorIndexNone
End If
End Sub
No.1ベストアンサー
- 回答日時:
そのコードは、二人の人物が書いたもののようですから、なるべく書法は合わせるようにしてみました。
内容については未検証です。Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E:E,G:G")) Is Nothing Then
If .Row Mod 2 = 0 Then
If IsDate(.Value) Then
Cells(.Row, 1).Interior.ColorIndex = 6
End If
End If
ElseIf Not Intersect(Target, Range("B:C")) Is Nothing Then
If IsDate(Cells(.Row, 2).Text) And IsDate(Cells(.Row, 3).Text) Then
If Cells(.Row, 2).Value >= Cells(.Row, 3).Value Then
Cells(.Row, 1).Interior.ColorIndex = 3
Else
Cells(.Row, 1).Interior.ColorIndex = 1
End If
Else
Cells(.Row, 1).Interior.ColorIndex = xlColorIndexNone
End If
End If
End With
End Sub
No.3
- 回答日時:
No.2です。
投稿後気づきました。
A列の「色なし」が抜けていました。
>Cells(.Row, "A").Interior.ColorIndex = 1
>End If
の次に
>Else
>Cells(.Row, "A").Interior.ColorIndex = xlNone
の2行を追加してください。
どうも失礼しました。m(_ _)m
No.2
- 回答日時:
こんばんは!
>If Intersect(Target, Range("E:E,G:G")) Is Nothing Or Target.Count > 1 Then Exit Sub
の1行でE・G列以外はチェンジイベントを発生させないようにしているので、
ここでB・C列も加える必要があります。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:C,E:E,G:G")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Column > 3 Then
If .Row Mod 2 = 0 Then
If IsDate(.Value) Then
Cells(.Row, "A").Interior.ColorIndex = 6
End If
End If
Else
If IsDate(Cells(.Row, "B")) And IsDate(Cells(.Row, "C")) Then
If Cells(.Row, "B") >= Cells(.Row, "C") Then
Cells(.Row, "A").Interior.ColorIndex = 3
Else
Cells(.Row, "A").Interior.ColorIndex = 1
End If
End If
End If
End With
End Sub
こんな感じでしょうかね。
※ お示しのコードをそのまま生かしたのですが、気になる点がいくつかあります。
① B・C列に関しては偶数行ではなく、すべての行が対象になります。
② B・C列とE・G列の優先順位はないのでしょうか?
上記コードだと最後に変更した列が対象になりますので、
仮にA列が黄色に色付けされていても、B・C列の入力の方が後だと
そちらの条件の色付けとなります。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 正規表現を用いての並び替え 7 2022/04/04 09:27
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
Changeイベントでの複数セルのクリアの処理について
Visual Basic(VBA)
-
エクセルマクロPrivate Subを複数にする方法
Excel(エクセル)
-
-
4
Private Sub Worksheet_Change が複数
Excel(エクセル)
-
5
エクセルVBA シートモジュールにチェンジイベントを複数設定する方法を教えて下さい。 例えば、B列に
Visual Basic(VBA)
-
6
Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる
Visual Basic(VBA)
-
7
Worksheet_Change(ByVal Target As Range)の下に複数範囲
Excel(エクセル)
-
8
EXCEL VBA 複数のシートに同じイベントプロシジャを書く場合
Excel(エクセル)
-
9
worksheet_changeがループする
PowerPoint(パワーポイント)
-
10
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
11
VBA:結合されたセルに対する「Target」について
Access(アクセス)
-
12
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
13
Worksheet_Changeの内容を標準モジュールから実行するには?
その他(プログラミング・Web制作)
-
14
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
15
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
16
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
17
他のシートの特定のセルが変わると、自動実行されるマクロについて
Excel(エクセル)
-
18
エクセルVBA intersect columnsの複数列のやり方
Visual Basic(VBA)
-
19
Worksheet.Change イベントを他のシートにも反映させる方法?
Visual Basic(VBA)
-
20
ExcelのVBAでエラー13が出てしまいます。(泣き)
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
マクロ 最終列をコピーして最終...
-
Excelで、あるセルの値に応じて...
-
VBAを使って検索したセルをコピ...
-
IIF関数の使い方
-
targetをA列のセルに限定するに...
-
Cellsのかっこの中はどっちが行...
-
文字列の結合を空白行まで実行
-
rowsとcolsの意味
-
【VBA】2つのシートの値を比較...
-
vba 2つの条件が一致したら...
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
VBA 何かしら文字が入っていたら
-
マクロについて。S列の途中から...
-
データグリッドビューの一番最...
-
複数処理 Worksheet_Change(ByV...
-
グリッドの列の最大値を求めたい。
-
VBAでのリスト不一致抽出について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
マクロ 最終列をコピーして最終...
-
VBAを使って検索したセルをコピ...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
Excel(M365) Vlookup/セル反転(...
-
VBA指定行削除
-
VBAでのリスト不一致抽出について
-
C# dataGridViewの値だけクリア
-
Changeイベントでの複数セルの...
-
VBAで、特定の文字より後を削除...
-
rowsとcolsの意味
おすすめ情報
Application.EnableEvents = False
Application.EnableEvents = True
をつけるとしたらどの場所がよいのでしょぅか。
もしくは必要ないのでしょぅか。
おしえてくれませんでしょうか