表格逐份打印7份的话，vba 能在每份表格加上指定的字吗

zhangmy66

多页的在第一页添加
第一份   表格右上角   为   财

第二份   表格右上角   为   厂

第三份   表格右上角   为  存  


第四份   表格右上角   为  料

第五份   表格右上角   为  料

第六份   表格右上角   为  封

第七份   表格右上角   为   打

smuuwl

1. Sub 打印()
   
2.     arr = Array("财", "厂", "存", "料", "料", "封", "打")
   
3.     For i = 0 To 6
   
4.         Range("v3") = arr(i)
   
5.         ActiveSheet.PrintOut
   
6.     Next
   
7. End Sub
   

复制代码

zhangmy66

smuuwl 发表于 2024-9-13 14:19

这么简缩的代码就实现了

zhangmy66

smuuwl 发表于 2024-9-13 14:19

只再首页添加能处理了吗

zhangmy66

smuuwl 发表于 2024-9-13 14:19

脑子糊涂了，V3 是唯一单元格