当前位置:首页>审计交流

巧用VBA实现审计大数据的高效切割

发布单位:www.bet28365365.com  

发布时间:2017年09月21日  分享至:

  在平时工作中,审计人员经常要对大数据筛选出的疑点分发至各组核实,常规方法是筛选、复制、粘贴后形成归口数据再分发,该方法重复性高,效率低,数据量大、单位多时显得颇为不足,该如何快速切割大数据,提高审计工作效率呢?笔者以部门预算审计中总体分析为例,运用EXCEL VBA函数实现大数据的高效切割,供大家参考学习。

  

   

  步骤一:源数据准备

   

  基于预算指标和国库支付数据,对预算单位项目预算执行进行总体分析,分析后需要按单位切割疑点再下发至各组核实取证。打开项目预算执行分析电子表(已启用宏),如下图,从第3行开始切割,每个子表都保留表头和标题,“唯一码”为切割依据和电子表格命名。

   

                         

  

  步骤二:创建模块

   

  单击表名“表2-项目预算执行分析”——右键——选中查看代码:

                                         

   

  在模块1中添加函数:

                               

   

  具体代码如下:

                        

  步骤三:运行结果 

  选择VB窗口中“运行”---“运行子过程/用户窗体”或者按“F5”,执行编写的“拆分”模块,运行结束后,在项目预算执行分析电子表同级目录下已新建 “切割出的表格”目录,所有数据已切割完成,效果如下:

                             

  分割出的表格数据:

                                        

  VBA是Visual Basic的一种宏语言,是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。这次工作,通过运用VBA编程,极大地提高了工作效率,一百多个单位的工作表在几秒钟之内全部切割完成,准确率百分之百。程序代码具有重用性,其他相关工作可以再利用,有一劳永逸的效果。

   

Copyright by Gaoming People`s Government of Foshan All Rights Reserved
版权所有佛山市www.bet28365365.com 粤ICP备040685
地址:广东省佛山市高明区米兰路42号 邮编:528500
电话:0757-88288567 传真:0757-88282881 邮箱:fsgmshenji@126.com

粤公网安备 44060802000017号