［摘 要］ 本文以Excel 2003环境为基础，给出了账务与报表会计信息系统中的总分类账、损益表以及资产负债表等信息自动生成的VBA程序实现方法。这对于刚刚起步的中小企业实现会计信息化，具有很好的参考价值。
　　［关键词］ Excel 2003；账务与报表会计信息系统；设计方案
　　［中图分类号］F232［文献标识码］A［文章编号］1673-0194（2007）04-0003-03
　　
　　一、凭证数据的准备、总账科目、各报表项目的初始化
　　
　　我们要实现的是：一个小公司的账务与报表会计信息系统，即：在给定凭证数据和总账会计科目的期初数据的前提下，如何自动生成总分类账、资产负债表以及损益表。实现初始化的步骤如下：
　　1. 创建凭证工作表
　　进入Excel，单击“文件”菜单，再单击“新建”命令，创建一个新工作簿。在工作表sheet1上建立凭证工作表，方法是单击工作表标签sheet1，进入工作表sheet1，输入数据如表1所示，用鼠标双击工作表标签，改名为“凭证”。
　　2. 创建总分类账工作表
　　在工作表sheet2上建立总账工作表，方法是单击工作表标签sheet2，进入工作表sheet2，设置初始数据如表2中的A、B、C三列所示，D、E、F由第二节中的sczz（）程序自动生成，用鼠标双击工作表sheet2标签，改名为“总账”。
　　3. 创建损益表工作表
　　单击工作表标签sheet3，进入工作表sheet3，设置数据如表3所示，A列为设置的汉字项目，B列由第三节中的sysc()的程序自动生成，用鼠标双击工作表sheet3标签，改名为“损益表”。
　　4. 创建资产负债表工作表
　　单击工作表标签sheet4，进入工作表sheet4，用鼠标双击工作表sheet4标签，改名为“资产负债表”。资产负债表项目的设置，因项目太多，此处略。
　　
　　
　　二、总账数据自动生成的VBA程序实现方法
　　
　　为了实现总账数据的自动生成,编制VBA代码如下:
　　Sub sczz()
　　Dim zb(21), pj(21), pd(21) As Double
　　Sheets(“总账”).Select
　　For i = 1 To 21
　　zb(i) = Range(“a3”).Offset(i - 1, 0)
　　Next i
　　Sheets(“凭证”).Select
　　For i = 1 To 21
　　pj(i) = Application. Sum If(Range(“c:c”), zb(i), Range(“e:e”))
　　pd(i) = Application. Sum If(Range(“c:c”), zb(i), Range(“f:f”))
　　Next i
　　Sheets(“总账”).Select
　　For i = 1 To 21
　　 Range(“d3”).Offset(i - 1, 0) = pj(i)
　　 Range(“e3”).Offset(i - 1, 0) = pd(i)
　　 Range(“f3”).Offset(i - 1, 0) = Range(“c3”).Offset
　　(i - 1, 0) pj(i) - pd(i)
　　Next i
　　End Sub
　　
　　三