你的位置:首页 > 操作系统

[操作系统]OFFICE2013实现选中单元格所在行、列高亮显示


在你要实现此功能的工作表标签右击,在弹出的菜单中选择编辑代码,然后输入下面代码保存即可!

如没有出现效果,则可能是禁用了宏的关系。所以要在安全选项中启用宏选项。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色
Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
End Sub