VBA Userform ComboBox联动查询问题：仅Storagebin可正常查询

我明白你现在的困扰——三个ComboBox里只有Storagebin能正常触发搜索填充，另外两个Oldmaterialnumber和Materialnumber输入内容后点击搜索毫无反应对吧？咱们先拆解下原代码里的问题，再给你两种可行的解决方案。

原代码的核心问题 #

你看，原代码里Storagebin的分支用了Do Loop循环遍历整个数据表的所有行，直到空行才停止，所以能找到匹配的记录。但前两个分支呢？既没有初始化row_number为0，也没有循环遍历逻辑，只检查了单独一行数据，大概率根本没命中你要找的记录，自然就没结果了。

解决方案1：统一循环遍历逻辑 #

把三个分支都改成和Storagebin一样的循环遍历方式，确保每次搜索都从第一行开始检查所有数据：

Private Sub Search_Click()
    Dim row_number As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Database")
    
    ' 先清空所有控件，避免旧数据残留
    Materialnumber.Text = ""
    Oldmaterialnumber.Text = ""
    Storagebin.Text = ""
    Olddescription.Text = ""
    
    ' 搜索Oldmaterialnumber
    If Len(Trim(Oldmaterialnumber.Text)) > 0 Then
        row_number = 0
        Do
            DoEvents
            row_number = row_number + 1
            ' 遇到空行就停止循环，避免无限遍历
            If ws.Range("B" & row_number).Value = "" Then Exit Do
            ' 匹配到目标值就填充控件
            If ws.Range("B" & row_number).Value = Oldmaterialnumber.Text Then
                Materialnumber.Text = ws.Range("A" & row_number).Value
                Storagebin.Text = ws.Range("C" & row_number).Value
                Olddescription.Text = ws.Range("D" & row_number).Value
                Exit Do ' 找到后直接退出循环，提升效率
            End If
        Loop
    ' 搜索Materialnumber
    ElseIf Len(Trim(Materialnumber.Text)) > 0 Then
        row_number = 0
        Do
            DoEvents
            row_number = row_number + 1
            If ws.Range("A" & row_number).Value = "" Then Exit Do
            If ws.Range("A" & row_number).Value = Materialnumber.Text Then
                Oldmaterialnumber.Text = ws.Range("B" & row_number).Value
                Storagebin.Text = ws.Range("C" & row_number).Value
                Olddescription.Text = ws.Range("D" & row_number).Value
                Exit Do
            End If
        Loop
    ' 搜索Storagebin
    ElseIf Len(Trim(Storagebin.Text)) > 0 Then
        row_number = 0
        Do
            DoEvents
            row_number = row_number + 1
            If ws.Range("C" & row_number).Value = "" Then Exit Do
            If ws.Range("C" & row_number).Value = Storagebin.Text Then
                Materialnumber.Text = ws.Range("A" & row_number).Value
                Oldmaterialnumber.Text = ws.Range("B" & row_number).Value
                Olddescription.Text = ws.Range("D" & row_number).Value
                Exit Do
            End If
        Loop
    End If
End Sub

这个版本的优化点： #

• 用ws变量绑定工作表，避免重复写Sheets("Database")，代码更简洁高效
• 每次搜索前清空所有控件，防止旧数据干扰
• 每个分支都从第一行开始遍历，直到对应列的空行停止
• 找到匹配项后立即退出循环，不用遍历剩余行
• 用Trim()去除输入内容的前后空格，避免因空格导致匹配失败

解决方案2：用Excel Find方法（更高效） #

如果你的数据表行数很多，循环遍历会比较慢，推荐用Excel内置的Find方法，代码更简洁，执行速度也更快：

Private Sub Search_Click()
    Dim ws As Worksheet
    Dim foundCell As Range
    Dim searchValue As String
    Dim searchColumn As String
    
    Set ws = ThisWorkbook.Sheets("Database")
    
    ' 清空所有控件内容
    Materialnumber.Text = ""
    Oldmaterialnumber.Text = ""
    Storagebin.Text = ""
    Olddescription.Text = ""
    
    ' 确定要搜索的列和对应的值
    If Len(Trim(Oldmaterialnumber.Text)) > 0 Then
        searchValue = Trim(Oldmaterialnumber.Text)
        searchColumn = "B"
    ElseIf Len(Trim(Materialnumber.Text)) > 0 Then
        searchValue = Trim(Materialnumber.Text)
        searchColumn = "A"
    ElseIf Len(Trim(Storagebin.Text)) > 0 Then
        searchValue = Trim(Storagebin.Text)
        searchColumn = "C"
    Else
        ' 没有输入时提示用户
        MsgBox "请在任意ComboBox中输入搜索内容！"
        Exit Sub
    End If
    
    ' 使用Find方法查找匹配项（完全匹配）
    Set foundCell = ws.Columns(searchColumn).Find( _
        What:=searchValue, _
        LookIn:=xlValues, _
        LookAt:=xlWhole _
    )
    
    ' 如果找到匹配项，填充所有控件
    If Not foundCell Is Nothing Then
        Materialnumber.Text = ws.Range("A" & foundCell.Row).Value
        Oldmaterialnumber.Text = ws.Range("B" & foundCell.Row).Value
        Storagebin.Text = ws.Range("C" & foundCell.Row).Value
        Olddescription.Text = ws.Range("D" & foundCell.Row).Value
    Else
        MsgBox "未找到匹配的记录！"
    End If
End Sub

这个版本的优势： #

• 代码更简洁，逻辑更清晰，后续维护更方便
• Find方法是Excel原生优化过的，大数据量下比循环快很多
• 增加了无输入时的提示，提升用户体验
• LookAt:=xlWhole确保完全匹配（如果需要部分匹配，改成xlPart即可）

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