VBA イベントWorksheet_Change　数値入力判別チェック フィルドラッグ対応

VBA VBA ECサイト　など

Private Sub Worksheet_Change(ByVal Target As Range) ' イベント　値が変わったら　フィルドラッグ対応

'範囲が１と複数を分岐させて、複数のtarget = コピペや　フィルドラッグなどには foreach で回す

Dim c As Object

If Target.Column = 8 Then ' H列

If Target.Count = 1 Then

If Target.Value = "" Then

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

Else

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

End If

Else

For Each c In Selection

If c.Value = "" Then

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

Else

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

End If

Next
End If
End If

End Sub