我在excel表中有一列，可能包含如下數值：
我在excel表中有一列，可能包含如下數值：
我想實作一個可以過濾這些值的宏，例如，如果我過濾 "5"，就會出現第一個和第三個結果。另外，我在串列中加入了ALL，因為將來可能會有文本標簽加入。這是我目前掌握的情況，但得到的結果并不一致：
Sub ContainsFilter()
Dim strName As String
strName = InputBox("你想搜索什么？")
If strName = "" Then
ActiveSheet.ShowAllData
Else
ActiveSheet.ListObjects("Table").Range。 AutoFilter Field:=7, Criteria1:="=*"/span> & strName & "*"/span>, Operator:=xlAnd
結束 如果
End Sub
uj5u.com熱心網友回復：
下面的內容應該可以作業：
Option Explicit
Public Sub ContainsFilter（）。
Dim InputReturn As Variant
InputReturn = Application.InputBox(Prompt:="你想搜索什么？", Title:="過濾域7", Type:=2) '型別2=字串。
If VarType(InputReturn) = vbBoolean And InputReturn = False Then
' 用戶按下取消按鈕或右角的X。
Exit Sub
End If
If InputReturn = vbNullString Then
ActiveSheet.ShowAllData
Else[/span
ActiveSheet.ListObjects("Table").Range。 AutoFilter Field:=7, Criteria1:=Array("*"/span> & InputReturn & "*"/span>, InputReturn), Operator:=xlFilterValues
結束 If
結束 Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/307752.html
標籤：