在VBA UserForm中基于多变量查找数据

Private Sub btnSearch_Click()
    Dim var1 As String
    Dim var2 As Integer
    Dim var3 As Date
    
    ' 获取UserForm中各个变量的值
    var1 = txtVar1.Value
    var2 = CInt(txtVar2.Value)
    var3 = CDate(txtVar3.Value)
    
    ' 在数据源中查找匹配的数据
    Dim foundRow As Range
    Set foundRow = FindData(var1, var2, var3)
    
    ' 如果找到匹配的数据，则显示在UserForm中
    If Not foundRow Is Nothing Then
        txtResult.Value = foundRow.Value
    Else
        txtResult.Value = "未找到匹配的数据"
    End If
End Sub

Function FindData(var1 As String, var2 As Integer, var3 As Date) As Range
    ' 在数据源中查找匹配的数据，并返回对应的单元格
    ' 这里假设数据源是一个名为"Data"的工作表
    Dim dataSheet As Worksheet
    Set dataSheet = ThisWorkbook.Worksheets("Data")
    
    Dim lastRow As Long
    lastRow = dataSheet.Cells(dataSheet.Rows.Count, 1).End(xlUp).Row
    
    Dim searchRange As Range
    Set searchRange = dataSheet.Range("A2:C" & lastRow)
    
    Dim foundCell As Range
    Set foundCell = searchRange.Find(What:=var1, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        ' 如果找到第一个匹配的单元格，则继续检查其他变量的值
        Dim foundRow As Range
        Set foundRow = foundCell.EntireRow
        
        If foundRow.Cells(2).Value = var2 And foundRow.Cells(3).Value = var3 Then
            ' 所有变量的值都匹配，则返回找到的行
            Set FindData = foundRow
        End If
    End If
End Function