使用工作表事件吧
vba实现
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.Cells.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = 3
Target.EntireColumn.Interior.ColorIndex = 3
Application.ScreenUpdating = True
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024