第1个回答 推荐于2018-03-01
右键当前工作表名称(下方的标签)---查看代码--把下列代码复制进去即可!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
.Parent.Cells.Interior.ColorIndex = xlNone
.EntireRow.Interior.Color = vbGreen
.EntireColumn.Interior.Color = vbCyan
.Interior.Color = vbRed
End With
End Sub本回答被网友采纳