excel 选择一个单元格 所在行列变色 怎么设置

2022-08-06 科技 435阅读

该功能需要用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是颜色代码,可以根据需要自由调整。
如果只变当前行或当前列的颜色,可以把不需要的改变行列颜色的某行代码最前方打上一个英文状态的'
 ,则该行不执行。

声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com