VBA用户窗体搜索功能异常：匹配记录仍弹出无结果提示

问题描述 #

我在Excel的Userform中实现了搜索功能：用户输入文本点击搜索按钮，若存在匹配记录，记录将显示在窗体中供用户删除或更新；若无匹配则弹出MsgBox提示“No record match from your list”。但实际操作时，即使搜索的记录确实存在，点击搜索按钮后始终（有时多次）弹出无结果提示。我尝试修改代码的Else部分后，搜索功能完全失效。

原代码 #

Private Sub Img_Search_click()

    Dim X As Long
    Dim Y As Long
    X = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , MatchByte:=False, SearchFormat:=False).Row
                
        For Y = 16 To X
                       
        If Sheets("myForm").Cells(Y, 12).Value = txt_Search.Text Then
        txt_name = Sheets("myForm").Cells(Y, 7).Value
        cmb_Type = Sheets("myForm").Cells(Y, 11).Value
        txt_Inventory = Sheets("myForm").Cells(Y, 12).Value
        txt_CardReader = Sheets("myForm").Cells(Y, 13).Value
        txt_Function = Sheets("myForm").Cells(Y, 14).Value
        txt_OLocation = Sheets("myForm").Cells(Y, 15).Value
        txt_OPort = Sheets("myForm").Cells(Y, 16).Value
        txt_NLocation = Sheets("myForm").Cells(Y, 17).Value
        txt_NPort = Sheets("myForm").Cells(Y, 18).Value
        txt_Printer = Sheets("myForm").Cells(Y, 19).Value
        cmb_Printer_Network = Sheets("myForm").Cells(Y, 20).Value
        txt_Remarks = Sheets("myForm").Cells(Y, 21).Value
        
        Else
        MsgBox "No record match from your request list.", vbInformation, "Information"
                
        End If
        Next
        End Sub

修改后的代码片段 #

if Sheets("myForm").Cells(Y, 12).Value <> txt_Search.Text Then
    MsgBox "No record match from your request list.", vbInformation, "Information"
    Me.txt_Search.Value = ""
    txt_name.SetFocus
    Exit Sub
end if

问题分析 #

原代码核心问题 #

1. 循环逻辑错误：遍历每一行时，只要当前行不匹配就弹出提示框。哪怕后面有匹配的行，前面不匹配的行也会触发提示，导致多次弹出无结果提示，且用户看到提示时可能已经加载了匹配记录。
2. 未限定工作表：Cells.Find未指定工作表，默认使用当前激活的工作表，可能导致获取的最后行号X不是myForm工作表的真实最后行，循环范围出错。
3. 未终止循环：找到匹配记录后未退出循环，继续遍历后续行，若后续行不匹配，依然会弹出提示框。

修改后代码核心问题 #

逻辑完全错误：只要遍历到第一行不匹配的记录，就直接弹出提示、清空输入框并退出过程，根本没机会查找后续的匹配记录，直接导致搜索功能失效。

优化后的代码 #

Private Sub Img_Search_click()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim y As Long
    Dim isFound As Boolean ' 标记是否找到匹配记录
    
    ' 指定目标工作表，避免激活表切换引发的错误
    Set ws = ThisWorkbook.Sheets("myForm")
    
    ' 针对搜索列（第12列）获取真实最后行号，避免空行干扰
    lastRow = ws.Cells(ws.Rows.Count, 12).End(xlUp).Row
    
    ' 初始化匹配标记
    isFound = False
    
    ' 遍历数据行（从第16行开始）
    For y = 16 To lastRow
        ' 匹配搜索条件（如需忽略大小写，可改为UCase(ws.Cells(y,12).Value)=UCase(txt_Search.Text)）
        If ws.Cells(y, 12).Value = txt_Search.Text Then
            ' 将匹配记录加载到UserForm控件
            txt_name = ws.Cells(y, 7).Value
            cmb_Type = ws.Cells(y, 11).Value
            txt_Inventory = ws.Cells(y, 12).Value
            txt_CardReader = ws.Cells(y, 13).Value
            txt_Function = ws.Cells(y, 14).Value
            txt_OLocation = ws.Cells(y, 15).Value
            txt_OPort = ws.Cells(y, 16).Value
            txt_NLocation = ws.Cells(y, 17).Value
            txt_NPort = ws.Cells(y, 18).Value
            txt_Printer = ws.Cells(y, 19).Value
            cmb_Printer_Network = ws.Cells(y, 20).Value
            txt_Remarks = ws.Cells(y, 21).Value
            
            ' 标记为已找到匹配
            isFound = True
            ' 找到后立即退出循环，提升效率
            Exit For
        End If
    Next y
    
    ' 遍历结束后统一判断是否弹出无匹配提示
    If Not isFound Then
        MsgBox "No record match from your request list.", vbInformation, "Information"
        Me.txt_Search.Value = ""
        txt_name.SetFocus
    End If
End Sub

优化说明 #

1. 明确工作表对象：用ws变量绑定myForm工作表，避免因当前激活表变化导致的错误。
2. 准确获取最后行：针对搜索列（第12列）获取最后行，比Find方法更可靠，避免空行干扰循环范围。
3. 添加匹配标记：用isFound变量记录是否找到匹配，遍历结束后统一判断是否弹出提示，避免中途误触发。
4. 找到即退出循环：匹配到记录后立即退出循环，减少不必要的遍历，同时避免后续行不匹配引发的错误提示。
5. 可选大小写兼容：如果需要忽略大小写匹配，可将判断条件改为UCase(ws.Cells(y, 12).Value) = UCase(txt_Search.Text)。

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