利用excel vba 实现财务数据的高效汇总

《利用excel vba 实现财务数据的高效汇总》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、2011年03月山西经济管理干部学院学报Mar．2011第19卷第1期JOURNALOFSHANXIECONOMICMANAGEMENTINSTITUTEVol．19No．1利用ExcelVBA实现财务数据的高效汇总□王占福(太原强业经济建设投资担保中心，山西清徐030400)【摘要】本文首先简要对在Excel中汇总财务数据的三种方法进行了对比，接着重点论述了如何利用ExcelVBA实现财务数据的高效汇总。【关键词】ExcelVBA;财务数据;高效汇总【中图分类号】F232【文献标识码】A【文章编号】1008－9101(2011)01－0045－031实际工作中财务数据汇总的几种

2、方式为了提高工作效率，财务人员往往采取以下几种办在会计实务工作中，经常涉及到财务数据的汇法:第一种方法是，事先设计好固定格式的Excel表总与计算，如固定资产明细表、存货明细表等;在资格，表格的表头、表尾、行列数、行标题预先设计好，产评估工作中，也存在类似于会计数据的汇总，如机并在最后一行设置“小计”行，并设置求和公式。如器设备评估明细表等。当企业规模较大时，明细数表1中的格式:据常常在几百条甚至上千条，汇总的工作量较大。表1固定资产———机器设备清查评估明细表资产占有单位名称:评估基准日:年月日金额:人民币元账面价值评估价值序号设备名称规格型号数量计量单位购置日期增值率﹪原值净

3、值原值成新率﹪净值12……1920小计然后，财务人员逐页录入明细数据到Excel工并用公式计算得出结果，直至最后一页，并求出最后作表，并把每页作为一个工作表依次保存在同一工的总计数。它的特点是:所有数据在一张Excel表作簿中。最后再设置公式将每页中的“小计”数汇中输入，不用分表输入，输完所有数据后再手工分页总到最后一页最后一行的“合计”数中。这种处理汇总合计，工作量也较大。第三种方法是，将数据输方法的特点是:思路清晰，但工作量大。第二种方法入到Excel一页表中，然后通过建立ExcelVBA代是，将原始数据输入到同一个Excel表格中，如一次码，实现财务数据的自动分页汇总，本文

4、拟论述利用性将几百条数据输入到一页Excel表格中，然后用ExcelVBA来实现财务数据的快速汇总，以提高工手工分页的方式，手工在每页末尾插入“小计”行，作效率。收稿日期:2010－11－22作者简介:王占福(1972－)，男，山西清徐人，学士，现工作于太原强业经济建设投资担保中心，会计师，研究方向:会计学。452利用ExcelVBA来实现财务数据的高效汇总流实现步骤:程(1)整理并录入机器设备明细数据到Excel工下面以机器设备评估明细表的汇总实例来讲述作表中，如表2所示:表2固定资产———机器设备清查评估明细表资产占有单位名称:三阳毛纺织厂评估基准日:2009年12月31日金

5、额:人民币元规格计量购置账面价值评估价值增值率序号设备名称数量型号单位日期原值净值原值成新率﹪净值﹪1洗衣机1台10，450．005，020．1510，000．0055002OKK一针机1台2001．01684，358．44467，644．84685，000．001389，050．00－80．96……303粗纱机B465A1台2000．01180，885．44116，821．96180，000．001527，000．00－76．89304细纱机B583A2台1983．01139，640．00400，000．00520，000．00305粗纱机B465A1台1986．01108，9

6、12．4218，484．95180，000．00610，800．00－41．57本例假定，机器设备的明细数据共305条，已录13Range("h"＆hang)=．Sum(Range("h"＆入到Excel工作簿(机器设备评估明细表．XLS)的hang－20＆":h"＆hang－1))“原始数据表”中。复制“原始数据表”到另一新表14Range("k"＆hang)=．Sum(Range("k"＆中，并重命名为“评估汇总表”，然后在该表中进行hang－20＆":k"＆hang－1))关键性的下一步汇总操作。15EndWith(2)在“评估汇总表”中，打开Excel菜单:工具16Nex

7、thang→宏→VisualBasic编辑器;17Range("a"＆hang－20)．Select辅入以下过程并保存:18Selection．Value="总计"Sub汇总操作()19WithApplication．WorksheetFunction＇Macro1Macro20Range("i"＆hang－20)．Value=．Sum＇宏由User录制，内容:自动每20行分页汇总(Range("i"＆6＆":i"＆hang－21))*0．5代码21Range("h"＆hang－