如何用Excel实现多表查询结果的模板打印？

朴素心情

3190496160

Sub tianchong()
With Sheets("人员")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "人员为空！": End
    ar = .Range("a1:f" & r)
End With
With Sheets("工资")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    If rs < 2 Then MsgBox "工资为空！": End
    br = .Range("a1:h" & rs)
End With
ReDim arr(1 To UBound(br), 1 To 9)
With Sheets("模板")
    xh = .[m1]
    If xh > r Then MsgBox "往下没有了！": End
     .Range("a7:j18") = Empty
    rr = Array(.[b2].Address, .[b3].Address, .[h2].Address, .[e3].Address, .[g3].Address, .[j3].Address)
    For i = 0 To UBound(rr)
        dz = rr(i)
        .Range(dz) = ar(xh, i + 1)
    Next i
    For i = 2 To UBound(br)
        If Trim(br(i, 1)) = Trim(ar(xh, 1)) Then
            n = n + 1
            arr(n, 1) = br(i, 3)
            arr(n, 3) = br(i, 4)
            arr(n, 5) = br(i, 5)
            arr(n, 6) = br(i, 6)
            arr(n, 7) = br(i, 7)
            arr(n, 9) = br(i, 8)
        End If
    Next i
    If n <> "" Then
        .[a7].Resize(n, 9) = arr
    End If
End With
End Sub

3190496160

测试表.rar (26.11 KB, 下载次数: 32)

2022-6-29 10:45 上传

点击文件名下载附件

朴素心情

3190496160 发表于 2022-6-29 10:45

太厉害了！膜拜~

大神，弱弱问一句：
      我想利用word邮件合并实现模板表的批量打印，那么能在word中用vba实现“工资表”中多条信息的查询显示吗？

3190496160

朴素心情 发表于 2022-6-29 10:56
太厉害了！膜拜~

大神，弱弱问一句：

呵呵呵，你到底想要什么？

朴素心情

3190496160 发表于 2022-6-29 11:30
呵呵呵，你到底想要什么？

非常感谢您已解决我的问题。
但由于我之前这个解决方案只能1张1张点打印，而word邮件合并后可以指定打印范围批量打印。我想试着利用邮件合并批量打印的功能，在word中通过VBA实现一人多条记录的查询显示并打印（卡在这儿了）。
不知道我说清楚了没有？有点完美主义

3190496160

朴素心情 发表于 2022-6-29 11:44
非常感谢您已解决我的问题。
但由于我之前这个解决方案只能1张1张点打印，而word邮件合并后可以指定打印 ...

呵呵，要批量打印，不是非得邮件合并，excel既然能够实现逐一显示，也就能实现批量显示打印，
因为你一开始的要求就是翻页呀，没说要批量呀