文章插图
在日常工作中,为了呈现出所选择区域数据的重要性,通常是标注一个颜色,或者字体加粗,达到更加醒目的效果 。但是如果选择的区域更换比较频繁,手动改色调字体比较麻烦,而且当你选择下一个区域的时候还要对本区域进行还原,那就更加麻烦了 。其实这个工作可以交给条件格式来完成 。效果就是下面的动图 。
要得到这个效果,需要使用函数和VBA结合完成 。
VBA工作表事件工作表事件是VBA的内容,不了解VBA也没有关系,按照本文的操作步骤做即可 。
1、鼠标放在工作表名上,鼠标右键,查看代码
2、进入VBA编辑界面后,把代码复制进去,如下图所示
复制下面代码(黑色加粗部分)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [B2:H15]) Is Nothing Then [j2] = Target.Address
End Sub
代码解析(这里不是代码,不要复制到这里哦):
(1)、SelectionChange就是当选择区域发生变化时,就会触发代码运行 。
(2)、Intersect(Target, [B2:H15])交集的意思,指选择的区域跟B2:H15这个区域发生交集才触发,也可以理解为,只有选择B2:H15这个区域内代码才会触发 。
(3)、如果把If Not Intersect(Target, [B2:H15]) Is Nothing Then这一句删除,代码也能运行,删除后选择任何区域都会触发代码运行 。
(4)、[j2] = Target.Address这一句的意思是说,把鼠标选择区域的地址写入到j2这个单元格里 。
3、点击任意单元格测试代码运行,看下J2单元格是否显示所选择区域的地址
此时无论是选择一个单元格或者是选择一个区域,J2单元格都会显示对应的地址
条件格式写入公式1、选择条件格式的区域
2、来到开始选项卡,点击条件格式,在跳出的菜单中选择最下面的管理规则
3、选择新建规则
4、点击使用公式确定要设置格式的单元格,然后在红框处输入公式
复制下面公式(黑色加粗部分)
=MATCH(ROW(B2),ROW(INDIRECT($J$2)),)+MATCH(COLUMN(B2),COLUMN(INDIRECT($J$2)),)
公式解析(这里不是公式,请不要复制到这里哦):
(1)、两组函数中间的+号不是真正意义上的加,而是“或者”的意思,也就是OR函数的意思,也可以把公式写成=OR(MATCH(ROW(B2),ROW(INDIRECT($J$2)),),MATCH(COLUMN(B2),COLUMN(INDIRECT($J$2)),))
(2)、其实在这里使用OR还是AND效果是一样的,AND也可以理解为乘,所以公式也可以写成=MATCH(ROW(B2),ROW(INDIRECT($J$2)),)*MATCH(COLUMN(B2),COLUMN(INDIRECT($J$2)),)
(3)、公式就是让这个区域的每个单元格(公式里用B2代替)的行号和列号通过MATCH函数查询是否被所选择区域的行号和列号包含其中,如果包含自然就是TRUE,不包含就是FALSE
(4)、条件格式里的公式并不“在意”算出来的结果,而是“在意”是否为正常运行,还是报错 。也就是能算出结果就是TURE,算不出来报错了那自然就是FALSE
(5)、INDIRECT这个函数没有什么含义,就是为了重新定义J2里面的地址,否则ROW和COLUMN函数无法识别这个地址 。
(6)、还有一个点需要注意了,这里MATCH函数的第三个参数是简写写法,千万不要漏输了那个逗号,否则就不是绝对匹配了,就达不到效果了 。
5、选择调整的格式,底色,字体加粗,字体颜色
点击格式
来到填充,选择一个颜色,本文选中了黄色
再来到字体,选择加粗,选择字体颜色为红色,然后点击确认
此时当你的鼠标再次选择这个表格区域的时候,就会出现本文开头的效果了 。
以上关于本文的内容,仅作参考!温馨提示:如遇健康、疾病相关的问题,请您及时就医或请专业人士给予相关指导!
「四川龙网」www.sichuanlong.com小编还为您精选了以下内容,希望对您有所帮助:- 京东手机整点秒杀技巧 京东秒杀东西是什么意思
- 第五套人民币20元背面印的是桂林著名景点山水人文龙脊
- 看雪景点排行榜前十名,七大穷游雪景景点排行榜
- 澳大利亚有名的名胜古迹景点排名,澳大利亚十大名胜古迹推荐
- 哈密瓜坏了一点还能吃吗
- 转换方式怎么选?哪种更划算 一个基点是多少百分点
- 四川十大名景点排行榜,四川旅游必去十大景点推荐
- 广西好看的景点排名前十,广西旅游必去十大景点排名
- 青海好玩的旅游景点排名前十,青海十大景点排行榜
- 浙江好玩的景点排名前十,浙江十大景点排行榜