在处置复杂的Excel数据时,经常碰着查找一个内容呈现多处位置,若何快速的标出所查内容地点单位格,以及其地点的行(或者列),将有利于我们定位,减不放在眼里觉委靡。
以下图数据为例,将表中2地点的单位格整行填充黄色,含2的单位格填充为红色。
绘制标识表记标帜按钮,插入一个表单控件(即ActiveX控件),方式可以参考以下链接:
33插入控件技巧
在指心猿意马宏窗口中,选择”新建“。
弹出一个模块,输入代码:
Dim rng As Range
Set rng = Selection
For Each rng In rng.Cells
rng.Select
Selection.EntireRow.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
rng.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Next
从VBA界面返回到Excel界面,设置按钮格局,编纂文字为”标识表记标帜“。
按下Ctrl+F组合键,打开查找栏,输入查找内容为2,选择查找全数。
按下Ctrl+A选择全数的查找成果,然后点击”标识表记标帜“按钮,成果如图所示。
PS:按下全选组合键前需包管光标逗留在查找成果栏。
0 篇文章
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!