我正在尝试使用文本框在两个自动过滤列(项目编号和项目名称)之一中搜索结果。我的代码如下;
Private Sub TextBox3_Change()
Application.Calculation = xlManual
Application.ScreenUpdating = False
Selection.AutoFilter Field:=5, Criteria1:="*" & TextBox3.Value & "*", Operator:=xlOr
On Error Resume Next
If Range("B7:B1307").SpecialCells(xlCellTypeVisible).Count = 0 Then
Call ClearAllFilters
ActiveSheet.Range("B7:B1307").AutoFilter Field:=5, Criteria1:="<>"
Selection.AutoFilter Field:=6, Criteria1:="*" & TextBox3.Value & "*", Operator:=xlOr
End If
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub
我希望它在一列中查找,如果没有找到结果,则需要在另一列中进行搜索。
谢谢你的帮助!