Excel跟随单元格高亮显示表格行和列

-

这篇文章其实在之前我是有发过一次,由于服务器数据丢失,文章也被清除了,恰好今天做表格的时候又想到了,我重新发表一次,增加了一种实现方法。

VBA代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    ActiveWorkbook.Names.Add Name:="sRow", RefersToR1C1:=Target.Row
    ActiveWorkbook.Names.Add Name:="eRow", RefersToR1C1:=Selection.Cells(Selection.Cells.Count).Row
    ActiveWorkbook.Names.Add Name:="sColumn", RefersToR1C1:=Target.Column
    ActiveWorkbook.Names.Add Name:="eColumn", RefersToR1C1:=Selection.Cells(Selection.Cells.Count).Column
End Sub

条件格式规则

=OR(AND(ROW()>=sRow,ROW()<=eRow),AND(COLUMN()>=sColumn,COLUMN()<=eColumn))

步骤

1)新建Excel工作表,另存为启用宏的表格

2)粘贴代码-表格右键,查看代码,打开编写VBA代码的窗口,复制上面的VBA代码到VBE编辑器,然后保存关闭代码视图;如下图

3)新建规则-菜单,条件格式新建规则(图中我保存后其实并没有生效,是我操作原因,所以我又进去编辑了一次,具体步骤:菜单-条件格式-管理规则-编辑规则-选择作用区域,选取整张表);如下图

到此效果完成,效果如图,这个方法的优点就是不会清除表格中单元格已有的背景色。

当然,除了上面的办法外,还有很多的方法可以实现,插件:聚光灯等,代码就更多了,比如这个代码,直接复制到VBE编辑器保存就可以了;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns().Interior.ColorIndex = 0
x = ActiveCell.Column
Columns(x).Interior.ColorIndex = 13
y = ActiveCell.Row
Rows(y).Interior.ColorIndex = 13
End Sub

WPS

我平时不用wps,嫌弃页面太复杂,广告太多了吧,说到这里也提一下wps的实现方法,WPS表格就比较简单的可以实现,菜单-视图-阅读模式

这篇文章咱暂时就这样,后面如果我有补充的在更新。。。

9 评论

爱CSS进行回复 取消回复

请输入你的评论!
请在这里输入你的名字

Must Read

Excel跟随单元格高亮...

这篇文章其实在之前我是有发过一次,由于服务器数据...

windows正版官方下...