通过宏实现EXCEL单元格每打印一次内容变化一次

某朋友的某个单据用EXCEL制作，每天一张，每次修改日期太麻烦，因此想实现输入打印次数，表格的日期能够递增。经过一番摸索，实现了该功能。

步骤
ALT+F11打开EXCEL的VBA窗口
在VBA窗口中选择菜单插入，再选择菜单项模块
输入以下代码
Sub PrintDate()
dim n as integer
n=inputbox(“请输入打印次数”) 1
for i=1 to n
activesheet.PrintOut Copies:=1
[J2]= application.text(i,“1”) & “日”
next
End Sub
1
2
3
4
5
6
7
8
关闭宏窗口，将EXCEL文件保存为启用宏的工作簿（.xlsm）
在视图选项卡，宏组中，点击宏按钮
在弹出的执行宏窗口中，选择PrintDate，点击执行按钮，在弹出的对话框中输入打印次数，点击确定即可
相关截图
这里写图片描述
这里写图片描述
这里写图片描述
这里写图片描述

注意事项
该例运行环境为EXCEL2010
代码有一点小问题就是每次在J2中要输入一个初始内容，比如1日