某朋友的某个单据用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
- 关闭宏窗口,将EXCEL文件保存为
启用宏的工作簿(*.xlsm)
- 在
视图
选项卡,宏
组中,点击宏
按钮 - 在弹出的执行宏窗口中,选择
PrintDate
,点击执行
按钮,在弹出的对话框中输入打印次数,点击确定即可
相关截图
注意事项
该例运行环境为EXCEL2010
代码有一点小问题就是每次在J2
中要输入一个初始内容,比如1日