首页 > 系统 > 其他 >

OFFICE2013实现选中单元格所在行、列高亮显示

2015-09-08

在你要实现此功能的工作表标签右击,在弹出的菜单中选择编辑代码,然后输入下面代码保存即可!如没有出现效果,则可能是禁用了宏的关系。所以要在安全选项中启用宏选项。Private Sub Worksheet_SelectionChang

在你要实现此功能的工作表标签右击,在弹出的菜单中选择编辑代码,然后输入下面代码保存即可!
如没有出现效果,则可能是禁用了宏的关系。所以要在安全选项中启用宏选项。
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
相关文章
最新文章
热点推荐