0

テキスト ボックスを使用して、オートフィルター処理された 2 つの列 (プロジェクト番号とプロジェクト名) のいずれかで結果を検索しようとしています。私のコードは次のとおりです。

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

実際には、2 つの列の情報を連結し、代わりにそれを検索する新しい列を作成しました。これは正常に機能します。

ただし、上記のコードの何が問題なのかを調べることにまだ興味があります。

于 2013-04-04T02:49:36.600 に答える