tft每日頭條

 > 生活

 > 如何在excel實現篩選功能

如何在excel實現篩選功能

生活 更新时间:2025-01-19 12:21:08

篩選——Excel解釋:對所選單元格啟用篩選。然後,單擊列标題中的箭頭以縮小數據範圍。

其實篩選功能職場人都很熟悉,本來沒有内容可以寫,但是看到一位老師的小視頻後,讓我有了寫一寫的欲望。

Excel在進行篩選操作時,需要點擊單元格右側下三角,然後進行輸入型搜索篩選。操作效果如下:

如何在excel實現篩選功能(篩選你不知道的Excel單元格篩選器)1

上述操作需要三個步驟實現,本篇文章的方法隻需要簡單的一步即可完成,順便增加了篩選文字紅色凸出功能。

如何在excel實現篩選功能(篩選你不知道的Excel單元格篩選器)2

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每日頭條,我们将持续为您更新最新资讯!

查看全部

相关生活资讯推荐

热门生活资讯推荐

网友关注

Copyright 2023-2025 - www.tftnews.com All Rights Reserved