- 打开需要设置的工作簿,按下快捷键:
Alt + F11
- 在跳出的窗口中,双击选中需要设置的工作簿,填充如下内容:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
.Parent.Cells.Interior.ColorIndex = xlNone
.EntireRow.Interior.ColorIndex = 34
.EntireColumn.Interior.ColorIndex = 34
End With
End Sub
- 保存,退出
- 显示如下