Excel如何实现表单编号自动递增？

Excel经常被用作业务单据的制作，例如出库单，一个很现实的需求是表单自动编号，希望每次打印时编号会自动递增。

很幸运Excel能够支持自动编号的实现，网上的方法很多，但自己找了半天也没能成功实现。不过网上还是找到了些许灵感。

首先，要知道Excel提供了一个Workbook_BeforePrint事件，这个事件可以在打印或打印预览之前被执行，由于打印预览不是真正的打印，所以如果在
Workbook_BeforePrint这个事件中递增编号显然不对。怎么办呢？Excel有没有Workbook_AfterPrint事件呢？很遗憾没有。

要是能区分打印预览和打印就好了，然而区分几乎是不可能的，所以，我觉得将系统自带的打印和打印预览功能失效掉。

失效很简单，只要设置Cancel=true就可以了。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

好，我已经将系统打印功能失效了，那么我就要自己编写打印的代码。不知道怎么写代码？没有关系，可以录制宏。

执行打印的命令是：ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

实现自动递增，
Range("B1").Select
ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + 1

这里，我定义一个全局变量isPrint，在宏中设置，要打印时就设置成isPrint=true，这样我就可以事件中判断是否需要打印。

完整代码

Public isPrint As Boolean

        Sub Macro1()

            isPrint = True

            ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

             Range("B1").Select

            ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + 1

        End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)

            Cancel = True

            If isPrint = False Then Exit Sub

            Cancel = False

            isPrint = False

        End Sub

Excel如何实现表单编号自动递增？相关推荐

excel设置图片自动更新_智能Excel排班表，日期自动更新，三班排班一键统计，极简轻松...
Hello大家好,我是帮帮.今天跟大家分享一张智能Excel排班表,日期自动更新,班次一键统计,极简轻松. 为了让大家能更稳定的下载模板,我们又开通了全新下载方式(见文章末尾),以便大家可以轻松获得免 ...
泛微html模板与表单分离,泛微eteams业务表单，自动生成数据和报表
原标题:泛微eteams业务表单,自动生成数据和报表 eteams业务表单用数据重新定义协作,台帐记录.数据汇报.外部调研收集一并搞定.彻底告别传统纸笔数据收集方式,实时完成数据提交,自动生成数据和报 ...
excel数据表单_新的改进的Excel数据输入表单
excel数据表单 Many moons ago, Dave Peterson created a sample Excel worksheet data entry form and kindly ...
关于表单回车自动提交的讨论
关于表单回车自动提交的讨论在做超限查询时,为了用户操作的易用性,在用户输入车牌号码后,直接回车就进行查询的操作,而不是等用户用鼠标点击"查询"了才发送请求去查询.可能我们都以为很 ...
Java POJO Bean 对象与 Web Form 表单的自动装配
PS: 我一直在找寻为什么 struts2有自动将form字段和getter setter 自动匹配的功能, 这篇文章解答了我的疑惑深度剖析:Java POJO Bean 对象与 Web Form ...
iOS表单input自动填充后背景色变为黄色
ios表单Input自动填充背景色变为黄色问题描述解决方案问题描述在开发页面的时候发现,在iOS上input框自动填充后input的背景色变为黄色,再点击一下就可以恢复正常. 解决方案设置自 ...
html表单注册跳转页面,出现一个问题，点击“注册”按钮页面进入注册表单后自动跳转回登录页面...
源自:4-5 单页面应用Demo2(2) 出现一个问题,点击"注册"按钮页面进入注册表单后自动跳转回登录页面用户名: 密码: 登录注册用户名: 密码: 再次输入密码: 确定 ...
from 表单回车自动提交
自动提交的情况 1 表单只有单个输入框 2 type='submit 这里注意button默认type为submit 解决方法 1 添加一个隐藏的输入框 2 form添加属性 οnsubmit=&q ...
Excel 模拟form表单提交
前端模拟form表单 function batSubmit() {var temp_form = document.createElement("form");//temp_for ...

Excel如何实现表单编号自动递增？

Excel如何实现表单编号自动递增？相关推荐

最新文章

热门文章