篩選——Excel解釋:對所選單元格啟用篩選。然後,單擊列标題中的箭頭以縮小數據範圍。
其實篩選功能職場人都很熟悉,本來沒有内容可以寫,但是看到一位老師的小視頻後,讓我有了寫一寫的欲望。
Excel在進行篩選操作時,需要點擊單元格右側下三角,然後進行輸入型搜索篩選。操作效果如下:
上述操作需要三個步驟實現,本篇文章的方法隻需要簡單的一步即可完成,順便增加了篩選文字紅色凸出功能。
But,這種方式目前隻可以對文本型内容操作,數據還無法實現模糊篩選。
VBA代碼如下,有需者自取。不懂者,可留言。
Private Sub TextBox1_Change()
ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:="=*" & TextBox1.Text & "*", Operator:=xlOr
Cells.Font.ColorIndex = xlAutomatic
On Error Resume Next
For i = 2 To Range("C50000").End(xlUp).Row
If Rows(i).Hidden = True Then GoTo 100 '如果單元格隐藏,在不做判斷,減少循環次數
n = (Len(Cells(i, 3)) - Len(Application.WorksheetFunction.Substitute(Cells(i, 3), TextBox1.Text, ""))) / Len(TextBox1.Text) '判斷字符串中有幾個查找字符
'Debug.Print n
For num = 1 To n
j = Application.WorksheetFunction.Find("@", Application.WorksheetFunction.Substitute(Cells(i, 3), TextBox1.Text, "@", num))
'Debug.Print j
Cells(i, 3).Characters(j, Len(TextBox1.Text)).Font.Color = vbRed '标顔色,利用Characters對象
Next
100:
Next
End Sub
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!