您现在的位置是：首页 > 新闻 > 正文
数字卡片1至10打印(如何在打印时，实现表格里的已有的数字自动增加)
2022-09-09 10:09新闻
简介 假设你的工作表为Sheet1，右键点击工作表标签，选择"查看代码"，然后把下面的代码复制过去：Subdy()Sheets("sheet1").PrintOutRange("A4")=Range("A4")+10EndSub然后按Alt+F8，选择“Sheet1.dy”运行，即可...
假设你的工作表为Sheet1，右键点击工作表标签，选择"查看代码"，然后把下面的代码复制过去：Subdy()Sheets("sheet1").PrintOutRange("A4")=Range("A4")+10EndSub然后按Alt+F8，选择“Sheet1.dy”运行，即可打印并把单元格A4加上10，如果你需要大量打印的话，还可以更改一下代码，让他自动打印（假设你要打印50张，每张的A4单元格相差10，其他不变），代码如下：Subdy()Fori=1To50Sheets("sheet1").PrintOutRange("A4")=Range("A4")+10NextEndSub
