1. 首頁 > 科技 > >

excel|篩選——你不知道的Excel單元格篩選器

excel

excel|篩選——你不知道的Excel單元格篩選器

文章圖片

excel|篩選——你不知道的Excel單元格篩選器


篩選——Excel解釋：對所選單元格啟用篩選 。 然后 ， 單擊列標題中的箭頭以縮小數據范圍 。

其實篩選功能職場人都很熟悉 ， 本來沒有內容可以寫 ， 但是看到一位老師的小視頻后 ， 讓我有了寫一寫的欲望 。
Excel在進行篩選操作時 ， 需要點擊單元格右側下三角 ， 然后進行輸入型搜索篩選 。 操作效果如下：

【excel|篩選——你不知道的Excel單元格篩選器】上述操作需要三個步驟實現 ， 本篇文章的方法只需要簡單的一步即可完成 ， 順便增加了篩選文字紅色凸出功能 。

But ， 這種方式目前只可以對文本型內容操作 ， 數據還無法實現模糊篩選 。
VBA代碼如下 ， 有需者自取 。 不懂者 ， 可留言 。
Private Sub TextBox1_Change()
ActiveSheet.UsedRange.AutoFilter Field:=1Criteria1:=\"=*\" & TextBox1.Text & \"*\"Operator:=xlOr
Cells.Font.ColorIndex = xlAutomatic
On Error Resume Next
For i = 2 ToRange(\"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(jLen(TextBox1.Text)).Font.Color = vbRed '標顏色 ， 利用Characters對象
Next
100:
Next
End Sub

    相關經驗推薦