0

我正在尝试使用文本框在两个自动过滤列(项目编号和项目名称)之一中搜索结果。我的代码如下;

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

我希望它在一列中查找,如果没有找到结果,则需要在另一列中进行搜索。

谢谢你的帮助!

4

1 回答 1

0

实际上,我刚刚创建了一个新列,它将两列信息连接起来,然后进行搜索——它工作正常。

不过,我仍然有兴趣找出上面的代码有什么问题。

于 2013-04-04T02:49:36.600 回答