Question

怎么设置使Excel表格内某个单元格内的数字可以打印后自动加一.

就是这个单元格,比如我要打印100份,我想设置好之后,第一张是000001,第二张自动打印出000002,第三张自动变成000003,以此类推,到最后一张变成000100.有什么方法可以设置吗?而且比如现在图片上编号是000999,要可以直接打出第一张是000999,第二张是变成001000,不要设置好之后只能从000001开始往后打.求答案.谢谢
我用的是WPS Office 抢鲜版,2013的,不是传统微软的2003office

Answer 1

假设编码在G1单元格键友镇，使用下面代码可实现打印和自动编码递增。
按ALT+F11打开VBA窗口，插入一个模块，把下面代码复制进去。
回到excel窗口，按“视图－工具栏”，点“窗体”，调出“窗体”工具栏，在上面选一个按钮，添加到表格上，并指定宏为“打印”。
使用时，每稿粗点击一下添加的按钮，就会打印一次，并告敏使编号自动加一。

Sub 打印()
ActiveWindow.SelectedSheets.PrintOut
s = Val(Range("g1"))
s = s + 1
Range("g1") = "'" & Right("0000" & s, 5)
End Sub

追问

您好,在吗?我用的是WPS Office 抢鲜版 2013版,按ALT+F11电脑没有反应,视图工具里也没有窗体选项.请问怎么办

追答

你点击上面选项卡有“开发工具”，就可以看到有visual basic编辑器

追问

灰色,无法选择

追答

刚才吃饭去了，呵呵
VBA安装不正确，或没有安装。
个人版不带VBA程序，需要自己另行安装。安装VBA后才可用开发工具。

追问

请问为什么我安装不上?

我是win7的系统,32位和64位下我都试过了,都是这样

Answer 2

这个只能通过渗缓袭VBA来实现，在workbook的BeforePrint事件中来响应
右键任意一个工作表标签——查看代码，然后左边工程资源管理器中选择对应工作簿的thisworkbook对象，在右边代码窗口中输入：
'（”工作表名"可根据需要修改，CELLS(1，1)为在工作表的A1单元格显哪脊示，可根据需要修丛兄改）
Private Sub Workbook_BeforePrint(Cancel As Boolean)
worksheets("工作表名").Cells(1, 1).Value = worksheets("工作表名").Cells(1, 1).Value + 1
End Sub

Answer 3

这个貌似在打印设置里面可以搬到的