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

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

步骤

1. ALT+F11打开EXCEL的VBA窗口
2. 在VBA窗口中选择菜单插入，再选择菜单项模块
3. 输入以下代码

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. 关闭宏窗口，将EXCEL文件保存为启用宏的工作簿（*.xlsm）
2. 在视图选项卡，宏组中，点击宏按钮
3. 在弹出的执行宏窗口中，选择PrintDate，点击执行按钮，在弹出的对话框中输入打印次数，点击确定即可

相关截图

注意事项

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