vba显示正在加载_使选中单元格所在整行、整列高亮显示

该博客介绍了如何通过VBA在Excel中实现选中单元格所在行和列的高亮显示,以解决查看大量数据时易串行的问题。通过在VBA编辑窗口中输入特定代码,可以自定义高亮颜色,并在高亮显示后自动清除原有填充色,提高数据浏览效率。
摘要由CSDN通过智能技术生成

000f958f1db0ba0f1fbe4926e736841a.png

【需求示例】:

如下图,表中信息较多,所以在查看时容易“串行”。此时可以让选中单元格所在的行、列高亮显示。

fac7f3e49ea4761b69193615f7136560.png
图 1 需求示例

【实现步骤】:

Step1:为Excel加载VBA功能

c77835a4162b545a1753913cb114e623.png
图 2 选择打开Excel“自定义功能区”

a5c3ec7f521bb4c997153e71b1b86780.png
图 3 选择在菜单中显示“开发工具”

Step2:组合键“ALT + F11”打开VBA编辑窗口 粘贴如下代码
----------------------------------------------------------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rng1 As Range, rng2 As Range, ranges As Range

Cells.Interior.ColorIndex = xlNone '清空所有颜色

Set rng1 = ActiveCell.EntireRow

Set rng2 = ActiveCell.EntireColumn

Set rng3 = Application.Union(rng1, rng2)

rng3.Interior.ColorIndex = 20

Range("A1:AK2").Interior.ColorIndex = 1

End Sub
----------------------------------------------------------------------------------------------

77157e3d77418e87bcce2a283a7d2a93.png
图 4 在VBA编辑窗口输入代码

最后,显示效果如下图:

750271a503ab1650161aa5be6bba194e.png
图 5 查看时显示效果

【说明】:

① 可以通过修改代码“rng3.Interior.ColorIndex = 20”中的阿拉伯数字(显示色标记)自定义高亮显示颜色;

② VBA中不同色块的标记如下:

64c23522833bc4a073ba8e37746ef1a4.png
图 6 常见色块在VBA中的标记

③ 按上述方式设置高亮显示后,表中原有填充色则会被取消。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值