VBA在中小企业增值税发票管理中的应用

自2016年全面营业税改征增值税以来，增值税发生了翻天覆地的变化，在推动“互联网+税务”改革，推广增值税电子发票，扩大增值税发票管理新系统使用范围的大背景下，企业增值税发票管理需求日渐提升。

一、增值税发票管理现状

企业传统的增值税发票管理局限于增值税专用发票的扫描认证。随着国家税务总局推行增值税专用发票勾选政策以来，发票认证方式发生重大变化，财务人员在办理发票认证时通常有两种做法：(1)从发票勾选系统导出增值税专用发票清单，对照纸质发票逐一识别。(2)手工录入增值税专用发票号码，通过Excel函数与导出增值税专用发票清单进行匹配，筛选核对一致的发票。

二、增值税发票管理面临的问题

上述两种方法在增值税发票管理中存在以下两个方面的问题。

（一）重复报销风险骤增

目前发票勾选系统只包含增值税专用发票，增值税普通发票和增值税电子发票均未安全纳入认证系统。随着电子发票的推广，增值税电子发票重复报销风险显著增加。由于电子发票可以重复打印，增值税发票生成与实际报销的时间跨度大等原因，财务人员难以有效识别发票是否重复。财务人员通常需要通过台账的等方式进行辅助管理，容易错、效率低。

（二）真伪查询效率低下

增值税电子发票相对于传统纸质增值税发票，无法通过目视的方式有效识别，最有效的鉴别方式就是通过国家税务总局增值税发票查验平台进行查询。查询过程中需要打开网站，逐一输入发票代码、发票号码、发票金额、开票日期、校验码等信息，效率较低。

三、VBA解决方案

本项目基于中小企业降本增效的考虑，选择Excel VBA开发增值税发票管理系统，只需一把二维码扫描枪成本，即可有效预防发票的重复报销和快速查验发票真伪两大功能。

（一）数据库及窗体设计

(1)数据库设计。我们对最常见的3种增值税发票(即增值税专用发票、增值税普通发票、增值税电子发票)二维码信息进行对比分析，形成了发票二维码信息数据结构，如表1:

此外，数据库增设报销人和报销日期字段，用于记录报销人和时间，实现发票的可追溯。报销人手工录入，报销日期由系统自动生成当前日期和时间。

(2)窗体设计。本系统窗体主要由3个Label标签(其中，1个位于Frame中)、2个文本框、1个Frame和四个按钮组成，窗体如下：

(3)定义变量。为确保项目变量的可理解性，系统中定义了如下变量名称：

Dim strEWM,FPLX,FPDM,FPHM,KPRQ,JYM,MW,BXR BXRQ As String

'二维码、发票类型、发票代码、发票号码、开票日期、校验码、密文、报销人、报销日期

Dim KJJE,LastRow,i,iRept As Long

'开具金额、最后一行、循环变量、重复数据所在行

Dim T As Variant'

'用于提取二维码各个字段

Dim cf As Long

'用于判断是否重复

（二）增值税发票重复报销的预防

(1)自定义查重复函数。在比对数据是否重复时，选取发票代码、发票号码及开票日期三个字段进行比对。自定义查重复函数CCF代码如下：

(2)调用函数，自动查重复。使用扫描设备，识别发票二维码，提取并合并二维码字符串中的发票代码、发票号码和开票日期，调用自定义查重复函数，与发票数据库工作表信息进行比对，并将比对结果通过提示信息进行显示。代码如下：

（三）增值税发票真伪查验

通过对全国增值税发票查验平台网页进行分析，系统实现了自动提取发票二维码信息，并自动传递至国家税务总局全国增值税发票查验平台，只需输入国家税务总局全国增值税发票查验平台验证码，即可实现发票真伪的查询。

发票查验。使用扫描设备，识别发票二维码，提取发票真伪查询所需信息，并将相关发票信息传递至国家税务总局全国增值税发票查验平台。VBA代码如下：

（四）数据存储

基于中小企业应用，本系统选择Excel工作表存储发票信息。对于拥有SQL Server数据库的企业，可以通过对代码进行调整，将数据储存于SQL Server数据库，从而实现多用户同时使用本系统。

在保存发票前，系统首先调用查重复事件，确保在不重复的情况下，录入发票信息。在保存发票信息时，我们除了存储发票票面信息外，还存储报销人，并自动记录当前日期和时间。

（五）重置录入窗体

为精简代码，在模块myModual中插入过程ClearBox，用于清空文本框及组合框所有信息。重置窗体时，先调用过程ClearBox，再设置焦点。VBA代码如下：

（六）程序的启动和关闭

(1)启动程序。系统启动时，选中发票数据库工作表，显示主窗体。VBA代码如下：

(2)关闭程序。关闭工作簿时，自动保存。VBA代码如下：

四、结语

本系统具有以下优点：第一：成本低，只需购置一把二维码扫描枪。第二，自动比对发票，预防重复报销。第三：发票真伪查验效率高，实现自动将发票信息传递至国家税务总局增值税发票查验平台。另外，通过该系统收集到的发票信息，财务人员还可以继续进行后续开发和应用。如：与增值税发票勾选数据进行比对，自动生成勾选清单等。

摘要：自2016年全面营业税改征增值税以来，尤其是增值税电子发票的推广以来，增值税发票管理需求日渐提升。财务人员在日常会计审核监督和发票管理中面临着发票的重复报销、发票真伪查验的问题突显。笔者通过Excel VBA开发了增值税发票管理系统，有效预防发票的重复报销、实现增值税发票的快速真伪查验，确保报销发票的唯一性和真实性。

关键词：VBA,增值税发票,重复报销,真伪查验

参考文献

[1] 姚瑶,王战红.中文版Excel 2016高级VBA编程宝典(第8版)[M].北京:清华大学出版社,2017.