打开excel
alt+F11
在工作表上右击  查看代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = -4142
Target.Interior.ColorIndex = 4
End Sub