电子表格打印固定资产卡片

电子表格打印固定资产卡片

工作中我们遇到大量固定资产卡片打印的问题解决方案

打开电子表格，设计打印内容及位置。要根据打印测试的效果不断完善

alt+F11进入，编写宏，内容如下：

Sub 自动序号打印()

y = InputBox("请输入打印页数")

For I = 1 To y

ActiveSheet.PrintOut

s = ActiveSheet.Cells(3, 6)

s = Format(Val(Cells(3, 6)) + 1, "000")

ActiveSheet.Cells(3, 6) = s

Next

End Sub

点图中圆圈图标，返回到电子表格界面

添加文本框并关联。

把刚才做的宏关联好。

测试一下。

测试后发现一切按目标实现了编号自动加。

保存，选择启用宏的工作簿这一选项，以备以后用。再次打开测试OK