基于多条件的Excel用户窗体数据查询代码问题咨询

需求说明 #

通过用户窗体的TextBox1输入ID、TextBox2输入MONTH，查询数据表中对应行的NAME（显示在TextBox3）和PAYMENT（显示在TextBox4）。对应的数据表结构如下：

原始代码 #

Private Sub TextBox2_AfterUpdate()
  Dim Here As Range
  Dim c, d As Long
  c = TextBox1.Value
  d = TextBox2.Value
  Set Here = Sheet1.Range("A:B").Find("c", "d", LookIn:=xlValues, LookAt:=xlWhole)
  If Here Is Nothing Then
    'TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
  Else
    'TextBox2.Value = Here.Offset(, 1)
    TextBox3.Value = Here.Offset(, 2)
    TextBox4.Value = Here.Offset(, 3)
  End If
End Sub

代码存在的问题 #

• 变量类型错误：c, d As Long仅声明d为数值类型，c默认是Variant类型；而ID是带符号的字符串、MONTH是文本，用数值类型存储会导致类型不匹配。
• Find方法使用错误：Find("c", "d")是查找字符串"c"和"d"，而非变量c和d的输入值；且Find方法无法直接同时匹配两个条件，参数顺序也不符合语法要求。
• 多条件逻辑错误：仅通过Range("A:B").Find无法实现ID和MONTH的双条件匹配，逻辑上无法定位到准确的目标行。

修正后的代码 #

Private Sub TextBox2_AfterUpdate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim targetID As String
    Dim targetMonth As String
    
    ' 指定数据所在工作表
    Set ws = Sheet1
    ' 获取数据表最后一行（避免遍历空行）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 获取并格式化输入条件
    targetID = Trim(TextBox1.Value)
    targetMonth = Trim(TextBox2.Value)
    
    ' 先清空结果输入框
    TextBox3.Value = ""
    TextBox4.Value = ""
    
    ' 遍历数据表查找双条件匹配行
    For i = 2 To lastRow ' 从第2行开始，跳过表头
        If ws.Cells(i, "A").Value = targetID And ws.Cells(i, "B").Value = targetMonth Then
            TextBox3.Value = ws.Cells(i, "C").Value
            TextBox4.Value = ws.Cells(i, "D").Value
            Exit For ' 找到匹配后立即退出循环，提升效率
        End If
    Next i
End Sub

修正说明 #

1. 变量类型优化：用String类型存储ID和MONTH，匹配数据类型避免报错。
2. 双条件匹配实现：通过遍历逐行判断A列ID和B列MONTH是否同时符合输入条件，确保查询准确性。
3. 边界处理：获取数据表最后一行，减少无效遍历；查询前清空结果框，避免残留旧数据。
4. 效率提升：找到匹配行后立即退出循环，无需继续遍历剩余行。

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