８列が６列以下の時にセル１列の背景色を変える

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 6 And Target.Row Mod 2 = 0 Then
If Cells(Target.Row, 8) <= Cells(Target.Row, 6) Then
Cells(Target.Row, 1).Interior.ColorIndex = 3
End If
End If
End Sub

８列と6列には日付入力します。
間違っていないと思うんですが？

No.1 回答者： fujillin 回答日時： 2017/10/11 18:28

こんにちは

ちゃんと動作すると思いますけれど、どこが予定と違うのでしょうか？

No.2 ベストアンサー 回答者： WindFaller 回答日時： 2017/10/12 01:08

色を塗るなら、色を消す方も必要？

Private Sub Worksheet_Change(ByVal Target As Range)　
　If Target.Column = 6 And Target.Row Mod 2 = 0 Then
　　If Cells(Target.Row, 8).Value <= Cells(Target.Row, 6).Value Then
　　　Cells(Target.Row, 1).Interior.ColorIndex = 3
　　Else
　　　Cells(Target.Row, 1).Interior.ColorIndex = xlColorIndexNone
　　End If
　End If
End Sub