Excel使用VAB代码建立宏控件,每打印一次自动递增一次编号

原创 kaixinit  2019-03-31 19:34  阅读 1,514 次

案例:每点击打印按钮,打印完毕后,编号输入框数值自动递增1次

操作:

1.在excel内I2为数字变化单元格,数值格式为:'000,数值前面加个'号

2.sheet1表名上右键查看代码输入:

Sub 打印()
ActiveWindow.SelectedSheets.PrintOut
s = Val(Range("I2"))
s = s + 1
Range("I2") = "'" & Right("00000000" & s, 8)
End Sub

注:

"I2"指定的变化单元格,

s = s + 1指的是递增1次

("00000000" & s, 8)中的"00000000" 指的是八位数值编码,8为变化数位为8位,这个根据实际情况改为("0000" & s, 5)也可以

代码输入完毕后,另存为excel启用的工作簿,即:Microsoft Excel 启用宏的工作表 (.xlsm)格式

3.打开Microsoft Excel 启用宏的工作表 (.xlsm),可以建立控件

首先打开表格,视图工具栏处点击右键-自定义功能区,红色标注处:开发工具处√,确认,在工具栏就可以看到开发工具一栏了

开发工具-插入-表单控件选择红色标注:按钮(窗体控件),在指定需要的位置画个合适的按钮框后,出现指定宏,第二排 sheet1.打印,选中确定。把出现的按钮4更为文字为打印。然后选择打印按钮就可以进行打印了,每打印一次I2的编号自动会增加一次。

本文地址:http://www.kaixinit.com/info/office/1948.html
版权声明:本文为原创文章,版权归 kaixinit 所有,欢迎分享本文,转载请保留出处!

发表评论


表情