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

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

关闭宏窗口，将EXCEL文件保存为 启用宏的工作簿（*.xlsm）
在 视图 选项卡， 宏 组中，点击 宏 按钮
在弹出的执行宏窗口中，选择 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 的宏功能强大，可以实现我们的很多目的，但是一谈到宏，很多人都觉得很难。在这篇文章里，我通过教大家写一个简单的宏，让大家对 excel 宏有一个初步认识，并且让你明白，其实 excel 的宏并没有你想象中的那么困难。在这篇文章，我在 excel 新建一个按钮，只要点击这个按钮，屏幕就会显示"hello world"。请看以下步骤： 1.首先，要写一个宏，我们要把相应的工具栏给显示出来。打开 excel 表...

些情况下，我们在打印 Excel 文件时，有很多文件，比如打印员工卡，内容格式都一样，就是个别 单元格 的内容不同，只能改一次打印一次，效率低不说，可能不小心还会改错。当然可以做成几十甚至上百页依次打印，但这也不是高效的方法。提高 Excel 效率， VBA 就要一显身手了。今天就为大家介绍，如何利用 VBA 实现， Excel 表格每打印一次，个别 单元格 的内容变化一次。这里介绍两种情况，一种是 单元格 内容有规律的变化，另一种是 单元格 内容随着数据库变化。 单元格 内容有规律变化的情况模型：sheet1中，已经设置好了打印区域。要求

如何在 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 示例——圆环图：数据标签详细设置兜里只有三分钱~: 这个 % 百分号能去掉吗？