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

Question

如题所述

Answer 1

该功能需要用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是颜色代码，可以根据需要自由调整。

如果只变当前行或当前列的颜色，可以把不需要的改变行列颜色的某行代码最前方打上一个英文状态的'  ，则该行不执行。