在当前工作表按ALT+F11,双击SHEET1,输入以下代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 24
Target.EntireColumn.Interior.ColorIndex = 24
End Sub
- 相关评论
- 我要评论
-
300
299
298
298