VBA_Worksheet_Change事件限定区域执行

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    Set Rng = Intersect(Target, [b2:c9])
    If Not Rng Is Nothing Then
        Rng.Interior.ColorIndex = 6
    End If
End Sub