vba - 打印内容不断变化的动态 Excel 页面

Question

我有一个带有两个工作表的 Excel 工作簿。
在 第一个我有一个“表格”和 第二个表中的所有数据 .

我所做的是在第一张纸上我更改了 身份证号 ，然后一个函数查看第二张表以查找 ID 号，然后将我指定的单元格上的数据更改为第二页上的数据。
它是为公司员工支付的，目前有 50 个唯一 ID .

如果可能的话，有没有办法一键打印具有不同内容的第一张纸？有谁知道这样做的方法？

Answer 1

你可以使用这样的For each myCell in worksheets(2).range("A1:A50")...next myCell循环遍历所有存储的具有不同 ID 的单元格，并将每个值放入工作表 1 上的单元格中。
这就是我的意思

Sub PrintAll_IDs()
    For Each myCell In Worksheets(2).Range("A1:A50") 'range with stored ID's
        Worksheets(1).Range("A1") = myCell.value ' "A1" is the cell with ID that you change manually now
        Worksheets(1).PrintOut ' I'm not sure how to print using VBA, just showing the workflow
    Next myCell
End Sub