wps如何设置表格打印后编码自动加1!

Question

如题所述

Answer 1

代码和演示动画如下：

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

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

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

更多追问追答

追问

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

追答

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

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

 Sub PR()ActiveSheet.PrintOut[H3] = [H3] + 1End Sub本回答被网友采纳