Excel VBA实现机器档案条件查询、打印及清除功能求助

查询功能代码（无需大量条件判断） #

不用为每台机器写If判断，通过查找+条件匹配的方式定位目标行，代码如下：

Sub SearchMachine()
    Dim wsArchive As Worksheet
    Dim wsQuery As Worksheet
    Dim searchUnit As String
    Dim searchMachine As String
    Dim foundRow As Range
    
    ' 绑定工作表对象，避免硬编码名称出错
    Set wsArchive = ThisWorkbook.Sheets("ArchiveSheet")
    Set wsQuery = ThisWorkbook.Sheets("QuerySheet")
    
    ' 获取用户在QuerySheet选择的查询条件（假设Unit在B1，Machine在B2，可按需调整单元格位置）
    searchUnit = wsQuery.Range("B1").Value
    searchMachine = wsQuery.Range("B2").Value
    
    ' 清空之前的查询结果，避免叠加显示
    wsQuery.Range("A4:D" & wsQuery.Cells(wsQuery.Rows.Count, "A").End(xlUp).Row).ClearContents
    
    ' 校验查询条件是否完整
    If searchUnit = "" Or searchMachine = "" Then
        MsgBox "请选择业务单元和机器名称！", vbExclamation
        Exit Sub
    End If
    
    ' 在ArchiveSheet的A列（假设Unit存在A列）查找匹配的业务单元
    With wsArchive.Range("A:A")
        Set foundRow = .Find(What:=searchUnit, LookIn:=xlValues, LookAt:=xlWhole)
        ' 循环查找所有匹配Unit的行，再核对Machine是否一致
        Do While Not foundRow Is Nothing
            If wsArchive.Cells(foundRow.Row, "B").Value = searchMachine Then
                ' 找到目标行后，复制到QuerySheet的下一个空行
                wsArchive.Range("A" & foundRow.Row & ":D" & foundRow.Row).Copy _
                    Destination:=wsQuery.Cells(wsQuery.Rows.Count, "A").End(xlUp).Offset(1, 0)
                Exit Do ' 若同一Unit+Machine仅对应一条记录，找到即退出；允许多记录则删除此句
            End If
            Set foundRow = .FindNext(foundRow)
        Loop
    End With
    
    ' 提示未找到结果的情况
    If foundRow Is Nothing Then
        MsgBox "未找到对应机器的档案信息！", vbInformation
    End If
End Sub

清除查询结果代码 #

实现一键清空查询区域的功能：

Sub ClearQueryResult()
    Dim wsQuery As Worksheet
    Set wsQuery = ThisWorkbook.Sheets("QuerySheet")
    
    ' 清空A4到D列的所有查询结果（保留上方的搜索栏）
    wsQuery.Range("A4:D" & wsQuery.Cells(wsQuery.Rows.Count, "A").End(xlUp).Row).ClearContents
End Sub

关键说明 #

• 避免硬编码：用Worksheet对象绑定工作表，后续修改工作表名称时无需改动代码
• 条件校验：先判断用户是否选择了完整的查询条件，防止无效查询
• 高效匹配：通过Range.Find循环查找，无需为上百台机器编写大量If语句
• 结果管理：每次查询前自动清空旧结果，避免数据混乱；支持单条/多条匹配结果的复制

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