我有一个Excel 2016的代码（这是我工作中使用的应用程序版本），可以根据我在searchBar（ActiveX文本框）中输入的内容过滤表中的结果。
我很想得到帮助，请：

Private Sub TextBox1_Change()
    Dim dataSheet As Worksheet
    Dim dataRange As Range
    Dim searchText As String
    Dim lastRow As Long
    Dim lastColumn As Long
    Dim rngCell As Range
    Dim rngRow As Range
    Dim foundMatch As Boolean

    On Error Resume Next
    Application.EnableEvents = False

    Set dataSheet = ThisWorkbook.Worksheets("Sheet1")

    ' Find the last row and last column of the table
    lastRow = dataSheet.Cells(dataSheet.Rows.Count, 1).End(xlUp).Row
    lastColumn = dataSheet.Cells(1, dataSheet.Columns.Count).End(xlToLeft).Column

    ' Set the data range based on the last row and last column
    Set dataRange = dataSheet.Range("A2", dataSheet.Cells(lastRow, lastColumn))

    ' Get the search text from the TextBox
    searchText = Me.TextBox1.Value ' Use the TextBox name from the Properties window

    ' Clear any previous filters
    dataRange.AutoFilter

    ' Apply the filter only if the search text is not empty
    If Len(searchText) > 0 Then
        ' Loop through each row in the data range
        For Each rngRow In dataRange.Rows
            foundMatch = False ' Reset the flag for each row
            For Each rngCell In rngRow.Cells
                ' Check if the cell value contains the search text
                If InStr(1, rngCell.Value, searchText, vbTextCompare) > 0 Then
                    ' If the cell contains the search text, set the flag and exit the inner loop
                    foundMatch = True
                    Exit For
                End If
            Next rngCell
            ' Hide or unhide the row based on whether a match was found
            rngRow.EntireRow.Hidden = Not foundMatch
        Next rngRow
    Else
        ' If the TextBox is empty, unhide all rows to show the original source data
        dataRange.Rows.Hidden = False
    End If

    Application.EnableEvents = True
End Sub

字符串
我上面写的代码不起作用，我不知道为什么，请帮助我找出问题所在。我的table没有自动过滤。