2003似乎只能用宏
ALT+F11》粘贴以下代码,OK
Option Explicit
Private Sub Worksheet_SelectionChange(ByValtarget As Range)
IfApplication.CutCopyMode = False Then
Call ColorBand(target)
Else
Exit Sub
EndIf
End Sub
Private Sub ColorBand(ByVal rngTarget AsRange)
With rngTarget.Parent
.Cells.Interior.ColorIndex = 0
.Columns(rngTarget.Column).Cells.Interior.ColorIndex = 40
.Rows(rngTarget.Row).Cells.Interior.ColorIndex = 40
EndWith
End Sub
Private Sub Worksheet_Change(ByVal targetAs Range)
IfApplication.CutCopyMode <> False Then
Application.CutCopyMode = False
Call ColorBand(target)
EndIf
End Sub
本回答被网友采纳