该功能需要用vba代码,方法:打开表格,按Alt
+
F11,在相应的工作表内粘贴下面的代码即可。代码如下:
Private
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
Dim
Rng
As
Range
'以下五行
高亮显示当前选中单元格所在行、列
Set
Rng
=
Target.Range("a1")
Cells.Interior.ColorIndex
=
0
'清除所有背景色
Rng.EntireRow.Interior.ColorIndex
=
38
'设置当前行颜色
Rng.EntireRow.Range(Cells(1,
1),
Cells(1,
10)).Interior.ColorIndex
=
38
'设置当前行部分单元格颜色
Rng.EntireColumn.Interior.ColorIndex
=
40
'设置当前列颜色
End
Sub
具体方法如下图所示:
代码中的38、40是颜色代码,可以根据需要自由调整。
如果只变当前行或当前列的颜色,可以把不需要的改变行列颜色的某行代码最前方打上一个英文状态的'
,则该行不执行。