1、Private Sub Worksheet_Change(ByVal target As Range) If Application.CutCopyMode False Then Application.CutCopyMode = False Call ColorBand(target) End If End Sub - - - - - - - - - - - - - - - - - - - - - Private Sub Worksheet_SelectionChange(ByVal target As Range) If Application.CutCopyMode = False Th
2、en Call ColorBand(target) Else Exit Sub End If End Sub - - - - - - - - - - - - - - - - - - - - - Private Sub ColorBand(ByVal rngTarget As Range) With rngTarget.Parent .Cells.Interior.ColorIndex = 0 .Columns(rngTarget.Column).Cells.Interior.ColorIndex = 42 .Rows(rngTarget.Row).Cells.Interior.ColorIndex = 42 End With End Sub
