打开 MS EXCEL 文件,使用【ALT + F11】,打开编辑器,选择需要修改的 Sheet 页面,输入如下内容
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone ActiveCell.EntireRow.Interior.ColorIndex = 35 ActiveCell.EntireColumn.Interior.ColorIndex = 35 End Sub
输入后如下所示:
保存后退出,选定任意单元格后效果如下所示。
PS:效果展示中删除了列的颜色展示。