某朋友的某个单据用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") & "日"
End Sub

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

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

某朋友的某个单据用EXCEL制作，每天一张，每次修改日期太麻烦，因此想实现输入打印次数，表格的日期能够递增。经过一番摸索，实现了该功能。步骤ALT+F11打开EXCEL的VBA窗口在VBA窗口中选择菜单插入，再选择菜单项模块输入以下代码Sub PrintDate() dim n as integer n=inputbox("请输入打印次数") *1 for i=1 t Sub auto_open() '设置一个自动运行的 宏 ——auto_open Application.OnTime TimeValue("08:30:00"), "tx" '设置提醒时间——08:30:00（可以根据需要修改），设置调用提醒 宏 ——tx。 Application.OnTime TimeValue("08:52:00"), "tx" '再设置提醒 一次 。 End Sub Sub tx() '设置一个显示提醒消息的 宏 （名称要与上述自动运行 宏 中调用的名称一致）。 Dim prtfileName As String prtfileName = "e:\\abc.xps" Sheets("Sheet1").Select ActiveSheet.PrintOut From:=1, To:=1, PrintToFile:=True, Copies:=1, PrToFileName:=prtfileName End Sub 如何在 EXCEL 中 实现 连续编号自动更新 打印 ？ 用下列方法，无论你需要输入连续编号的 单元格 是否改变，均不需要改变代码。 第一步：将下列代码拷贝到 宏 中（方法请问度娘，搜代码的人应该会的）。 Sub 连续编号() [编号].NumberFormatLocal = “@” Dim i As Integer Dim b As Integer Dim a As Integer a = InputBox(“ 打印 份数”, “请输入 打印 份数”, 1) b = InputBox(“开始编号”, “请输入开始编 真正解决Windows下UnicodeDecodeError: ‘gbk‘ codec can‘t decode byte 0xff in position 0错误的方法 橘子小白不爱学: +1，我也是，请问解决了吗 Pandas 简明教程（二）：读取文件、DataFrame常用属性/方法/条件过滤/聚合/分组 算力鬼才信: 教程干净明了 《我的世界》Python编程入门（1）Minecraft（我的世界）Python编程环境搭建 听说你很酷: java --version 微信读书API分析 CheN__B: 这些api是微信官方的还是第三方的？ ECharts 示例——圆环图：数据标签详细设置 兜里只有三分钱~: 这个 % 百分号能去掉吗？