在處置復雜的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 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!