工作中我们遇到大量固定资产卡片打印的问题解决方案
工具/原料
1
电子表格 打印机
2
动手能力
方法/步骤
1
打开电子表格,设计打印内容及位置。要根据打印测试的效果不断完善
2
alt+F11进入,编写宏,内容如下:Sub 自动序号打印()y = InputBox('请输入打印页数')For I = 1 To yActiveSheet.PrintOuts = ActiveSheet.Cells(3, 6)s = Format(Val(Cells(3, 6)) + 1, '000')ActiveSheet.Cells(3, 6) = sNextEnd Sub
3
点图中圆圈图标,返回到电子表格界面
4
添加文本框并关联。
5
把刚才做的宏关联好。
6
测试一下。
7
测试后发现一切按目标实现了编号自动加。
8
保存,选择启用宏的工作簿这一选项,以备以后用。再次打开测试OK
注意事项
不输入页数时出错,不过无关紧要。
上一篇:EPLAN中部件清单如何生成
下一篇:岭南酥蛋挞的做法