Excel 2016 ActiveX文本框搜索栏VBA代码故障排查求助

原代码核心问题 #

• 错误屏蔽导致问题无法暴露：On Error Resume Next会掩盖所有运行时错误（比如工作表不存在、文本框名称不匹配、数据范围无效等），你根本不知道代码哪里出问题。
• 自动筛选与行隐藏机制冲突：先调用dataRange.AutoFilter清除筛选，但后续用行隐藏来实现"过滤"，两种机制混用可能导致行隐藏不生效；而且如果当前工作表已有自动筛选，dataRange.AutoFilter会切换筛选状态（无筛选时会添加筛选），反而干扰行隐藏逻辑。
• 边界情况未处理：当数据只有表头（lastRow=1）时，dataRange = Range("A2", Cells(1, ...))会生成无效范围，直接报错。

修正后的代码 #

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 rngRow As Range
    Dim rngCell As Range
    Dim foundMatch As Boolean

    ' 禁用事件防止循环触发
    Application.EnableEvents = False

    ' 明确指定工作表，去掉错误屏蔽以便排查问题
    Set dataSheet = ThisWorkbook.Worksheets("Sheet1")

    ' 获取数据范围边界
    lastRow = dataSheet.Cells(dataSheet.Rows.Count, 1).End(xlUp).Row
    lastColumn = dataSheet.Cells(1, dataSheet.Columns.Count).End(xlToLeft).Column

    ' 处理无数据的边界情况
    If lastRow < 2 Then
        ' 只有表头，直接退出
        GoTo Cleanup
    End If

    Set dataRange = dataSheet.Range("A2", dataSheet.Cells(lastRow, lastColumn))

    ' 获取搜索文本，去除首尾空格避免误判
    searchText = Trim(Me.TextBox1.Value)

    ' 先清除所有行隐藏状态
    dataSheet.Rows("2:" & lastRow).Hidden = False

    ' 清除工作表的自动筛选（如果有）
    If dataSheet.AutoFilterMode Then
        dataSheet.AutoFilterMode = False
    End If

    ' 非空搜索才执行过滤
    If Len(searchText) > 0 Then
        For Each rngRow In dataRange.Rows
            foundMatch = False
            For Each rngCell In rngRow.Cells
                ' 处理单元格为空的情况，避免InStr报错
                If Not IsEmpty(rngCell.Value) Then
                    If InStr(1, rngCell.Value, searchText, vbTextCompare) > 0 Then
                        foundMatch = True
                        Exit For
                    End If
                End If
            Next rngCell
            ' 隐藏未匹配的行
            rngRow.EntireRow.Hidden = Not foundMatch
        Next rngRow
    End If

Cleanup:
    Application.EnableEvents = True
End Sub

关键修改说明 #

• 移除On Error Resume Next：让错误直接暴露，方便排查（比如工作表名称写错、文本框名称不对时会直接提示）。
• 分离自动筛选与行隐藏：先清除工作表的自动筛选状态，再统一处理行隐藏，避免两种机制冲突。
• 添加边界判断：处理只有表头的情况，避免无效范围导致的错误。
• 去除搜索文本首尾空格：避免用户输入的空格影响匹配结果。
• 处理空单元格：判断单元格非空再执行InStr，避免空值导致的运行时错误。

内容的提问来源于stack exchange，提问作者Luryak