excel 我的“搜索结果Msgbox”无法正常工作

x4shl7ld 于 11个月前发布在其他

关注(0)|答案(2)|浏览(79)

在我的用户表单中，用户可以输入文本进行搜索。如果记录存在，记录将出现在用户表单中，用户可以通过单击按钮删除或更新记录。否则，会弹出一个msgbox“No record match from your list”（列表中没有匹配的记录）。
我的代码如下所示。
然而，在我输入文本并单击“搜索”按钮后，msgbox总是弹出（有时会弹出几次），没有找到任何记录，甚至我搜索的记录实际上存在于excel中。
我能知道有什么问题吗？我应该如何改进我的代码？

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

字符串
我也试着像下面这样改进代码来替换Else部分，但是“搜索”甚至不起作用！

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

型

excel

来源：https://stackoverflow.com/questions/76761349/my-search-result-msgbox-is-not-working-properly

2条答案

按热度按时间

bkkx9g8r1#

正如评论中所说：在只有一个匹配的情况下，for循环是不必要的。一个Application.Match就足以获得正确的行并以这种方式获得值：

Private Sub Img_Search_click()

    Dim X, arr, lRow As Long
    Dim ws As Worksheet, rng As Range
    'Dim txt_name, cmb_Type, txt_Inventory, txt_CardReader, txt_Function, txt_OLocation
    'Dim txt_Oport, txt_NLocation, txt_NPort, txt_Printer, cmb_Printer_Network, txt_Remarks
                
    Set ws = ThisWorkbook.Worksheets("myForm")
    lRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    Set rng = ws.Range("A2:A" & lRow)
    X = Application.Match(txt_Search.Text, rng, 0) + 1
    If Not IsError(X) Then
        arr = ws.Range(Cells(X, 1), Cells(X, 21)).Value
        txt_name = arr(1, 7)
        cmb_Type = arr(1, 11)
        txt_Inventory = arr(1, 12)
        txt_CardReader = arr(1, 13)
        txt_Function = arr(1, 14)
        txt_OLocation = arr(1, 15)
        txt_Oport = arr(1, 16)
        txt_NLocation = arr(1, 17)
        txt_NPort = arr(1, 18)
        txt_Printer = arr(1, 19)
        cmb_Printer_Network = arr(1, 20)
        txt_Remarks = arr(1, 21)
    Else
        MsgBox "No record match from your request list.", vbInformation, "Information"
    End If
End Sub

字符串
注解掉的行是因为我不想充实整个表单。使用阵列来最小化与片材的相互作用。没有更多的for循环和只有一个MsgBox时，它没有找到：）

赞(0）回复(0）举报 11个月前

3qpi33ja2#

您将循环遍历从16到Y的每一行，并检查值是否匹配-如果不匹配，则显示MsgBox。
所以我们假设匹配在第20行-Y将是20，并且您将以X = 16开始循环第16行不匹配，因此触发MsgBox。第17行不匹配，所以触发了MsgBox第18行不匹配，所以触发了MsgBox我想你明白了。
如果你尝试使用循环执行搜索功能，你不应该在循环中触发失败消息（而是在循环/搜索功能结束后）

赞(0）回复(0）举报 11个月前

我来回答

excel 我的“搜索结果Msgbox”无法正常工作

2条答案

相关问题

热门标签

最新问答