Question

请问一下在EXCEL中打印时怎么设置编码会自动增加

能讲详细点？谢谢

Answer 1

1、同时按下Alt+F11键，弹出如图对话框。

2、依次点击菜单栏，“插入-模块”：

3、插入模块后，弹出如图对话框：

4、模块对话框中输入：

Sub PR()

ActiveSheet.Printout

[D2]=[D2]+1

End Sub

其中【D2】为编码单元格。

5、点击打开excel选项：

6、点击选项后，点击自定义，选择开发工具选项卡：

7、选择宏安全性：

8、返回到主页，点击上面的宏安全性：

9、将宏设置为启用所有宏，打印的时候就会自动增加页码编号了。

Answer 2

代码和演示动画如下：

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。

运行的时候，按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

 

Sub PR()
For I = 1 To 500
    ActiveSheet.PrintOut
    [H3] = [H3] + 1
Next
End Sub

追问

能打印一张增加一次 要能保存下次再用呢

追答

关闭文件时点击保存就可以了，因为代码已经更改了H3单元格的值。

如果你想一次只打印一张，则代码只需要两句：

Sub PR()
ActiveSheet.PrintOut
[H3] = [H3] + 1
End Sub

追问

该怎么选择

追答

点击“否”，然后按下图红圈内的类型选择：

追问

保存打开怎么变空白了？

追答

保存后的文件后缀是不是“.xlsm”？如果不是，请检查你的操作，应该保存为启用宏的工作簿。

追问

不知哪里弄错了？

追答

这个问题和VBA编程无关。你试一下先打开Excel，然后点击左上角“文件”，“打开”，然后选择你的文件。试一下这样能打开吗？

追问

谢谢耐心教导 终于搞定 装了个新office就可以保存了

Answer 3

打印一次自动增加一次 有些情况下也是不可取的！因为你在打印的时候 有时候会出错 这时你需要重新打印……
如果 你想通过打印来自动增加这个“动作” 需要用VBA才能实现？你确认像这样做吗？

我倒是建议你 还是手动来设置这个 编号！除非你是批量打印 否则 没有必要这样做 这样做 的副作用 也是不小滴……………………

如果你是想批量打印的话 那么就要说说 你的数据规划了……你要打印 那些数据 原来的数据表 与要打印的 表 是怎样的关系……还是 你想批量打印相同内容的这个表格 只是修改 这个编号而已……
补充一下吧

Answer 4

使用这款现成的，勾选仅递增打印，选择Excel类型即可。