VBA イベントWorksheet_Change 数値入力判別チェック

'シートモジュールに記述　シートモジュール出し方　シートタブの上で「右クリック」→「コードの表示」に記述

Private Sub Worksheet_Change(ByVal Target As Range) ' イベント　値が変わったら
If Target.Column = 8 Then ' H列

If Target.Value = "" Then

Target.Offset(0, -6).Interior.ColorIndex = 0 'B列　を取得して　指示

Else

Target.Offset(0, -6).Interior.ColorIndex = 6 'B列　を取得して　指示

End If

End If

End Sub