Excel高亮所选单元格所在行列
§ Excel自动高亮行列1.VB程序实现2.VB程序加条件规则和公式实现§ Excel自动高亮行列
在使用Excel的时候,有时候需要看某一单元格所在行或者列的其他数据,当数据特别多的时候,找同一行的数据就显的很难受,高亮当前所在行列有两种方式;
方案一:新建规则,通过函数高亮|优点是不需要开启宏,但是每次选中单元格后需要按F9才可以高亮,比较繁琐。
1.VB程序实现
使用开发工具中的VB进行程序控制
优点是每次单击即可激活高亮相应的行列,直接复制代码进去即可,使用方便缺点是退出后最后一个高亮的行列会被填充颜色,原来的颜色会被清除对于没有填充颜色,且不要求保留原来颜色的元格,可以采用如下方法
实现代码如下
'这样的行是VB注释,不会被编译Private Sub Worksheet_SelectionChange(ByVal Target As Range)With Target'清除工作表单元格的背景色.Parent.Cells.Interior.ColorIndex = xlNone'设置选中区域所在行的背景色,这里是RGB颜色的十进制代码.EntireRow.Interior.Color = 5296274'设置选中区域所在列的背景色,这里是RGB颜色的十进制代码.EntireColumn.Interior.Color = 5296274End WithEnd Sub
2.VB程序加条件规则和公式实现
步骤如下:
2.1创建名称
公式→定义名称→输入名称→输入起范围(定义的时候可选,之后不可修改)→在引用位置处输入函数
//63 传回储存格的填满色彩//单元格位置都可以,大门时需要注意不能加绝对引用符号=GET.CELL(63,Sheet1!T8)=0
2.2创建条件格式
开始→条件格式→新建规则→如下图设置,选择使用公式要设置格式的单元格→输入规则公式→在格式中选择填充颜色
//注意最后一个参数要与上边的公式标签名称一致=AND((CELL("col")=COLUMN())+(CELL("row")=ROW()),getcell)
2.3设置规则生效的范围
在规则管理器中管理刚才添加的规则应用区域
2.4添加自动刷新VB程序
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Application.ScreenUpdating = TrueEnd Sub
最终效果:
可以发现原来的单元格颜色还在,但是当整行整列填充颜色的时候可能会出现问题,有得有舍吧,看需求,总之两种方案都不是很完美。
如果觉得《Excel-01高亮所选单元格所在行列》对你有帮助,请点赞、收藏,并留下你的观点哦!