隣のセルの文字が黒以外このセルの内容を表示しない

質問

隣のセルの文字が黒以外このセルの内容を表示しない。
例えば、Ｃ２～Ｃ１７とＧ２～Ｇ１７で
Ｃ２(Ｃ２～Ｃ１７)に黒字以外で書いた時Ｄ２(Ｄ２～Ｄ１７)に書かれてい内容は非表示にする。
Ｇ２(Ｇ２～Ｇ１７)に黒字以外で書いた時Ｈ２(Ｈ２～Ｈ１７)に書かれてい内容は非表示にする。
よろしくお願いします。

回答No.2

merlionXX

No1です。
大変失礼しました。設問を読み誤り、Cに入力があった場合、D列でなくG列を対象にしてしまいました。

訂正します。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C2:C17,G2:G17")) Is Nothing Then Exit Sub
If Target.Font.ColorIndex <= 1 Then
Target.Offset(0, 1).Font.ColorIndex = 1
Else
Target.Offset(0, 1).Font.ColorIndex = 2
End If
End Sub

お礼

訂正ありがとうございました。

回答No.1

merlionXX

エクセルで、文字の色の変更をイベントではとれないので、色は文字の入力（変更）前に設定するという前提で下記を該当するシートのモジュールにコピペしてみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C2:C17,G2:G17")) Is Nothing Then Exit Sub
x = IIf(Target.Column = 3, 4, 1)
If Target.Font.ColorIndex <= 1 Then
Target.Offset(0, x).Font.ColorIndex = 1
Else
Target.Offset(0, x).Font.ColorIndex = 2
End If
End Sub

お礼

回答ありがとうございました。