利用Excel VBA完成天翼财务软件明细账簿目录编制

韩莹 郝帅杰 徐春兰 李雪梅

[摘 要] 本文针对天翼财务会计软件中账簿目录编制工作量大的问题，利用Excel VBA二次开发功能，结合工作中具体的实务，形成复旦天翼财务软件导出的Excel会计明细账簿目录的自动化处理，减少了大量手工录入，提高了工作效率。

[关键词] 科目明细账；摘要；目录

[中图分类号] F232 [文献标识码] A [文章编号] 1673 - 0194（2014）15- 0023- 02

目前，北京市教委下属的各学校普遍采用上海复旦天翼财务软件进行核算。年度终了时，打印出的科目明细账簿不能自动生成账簿目录，财务人员只能等待账簿打印完毕后，根据已经完成的纸质账簿自行手工编制，由于使用会计科目接近400个，科目级次达到9级，编制账簿目录工作量大且效率低下。通过观察，笔者认为，虽然导出的每个明细账簿文件中并不显示科目名称，但会显示科目代码，利用代码可以对每个科目进行区分，故可以先将导出的每个Excel明细账进行合并，然后根据Excel形式账簿按照打印输出的账簿格式进行设置，最终取得科目页码。

1 准备工作

（1）从天翼财务系统中以Excel方式导出各科目明细账本，根据单位需求分别以资产、负债、净资产、支出、收入等建立账簿。如欲编制资产类科目明细账，需将所有资产类科目明细账簿按顺序全部导出，可直接采用天翼系统自动形成科目明细账簿时的Excel文件名。

（2）在导出明细账簿的同一文件夹下创建一个新的Excel工作簿。将SHEET 1改名为汇总，并将导出的文件内容全部按顺序粘贴于“汇总”页，限于篇幅，本文将导出文件顺序粘贴于“汇总”页的程序部分略去不述，类似程序可参考互联网；将SHEET 2改名为目录，用以存放输出结果。

2 编程说明

（1）每页账簿共计21行，由于第一行标题行不变动，实质内容部分为20行，以下本文仅描述此20行，不再提及标题行。

（2）账簿中“摘要”列的处理。“摘要”的长短决定了摘要所占行数，较长的摘要虽然在Excel表格中反映在一个单元格，但由于Excel文本设置中将摘要列设置为自动换行模式，所以账簿打印时所占的高度就会超过1个标准行，在程序中将以其占用的标准行高度为分行标准。同时“摘要”单元格的列宽决定了“摘要”行的行数，故将“摘要”列宽作为分行的依据。

（3）“过次页”和“承前页”的设置。原则上每页第20行显示为“过次页”，次页第一行显示为“承前页”，但有两类特殊情况：一是如果某页摘要行占据了第19～20行，此时不再加“过次页”行，直接过渡到次页，但次页第一行仍显示为“承前页”；二是如果第20行正好是“累计”，则本页不再添加“过次页”行，次页第一行也不再为“承前页”，直接显示账簿内容。

3 程序代码

4 其 他

（1）程序输出结果为各页的具体开始页码，可能需要在科目编码后加上汉字显示的科目目录才会更加实用。

（2）北京市教委下属各单位普遍采用天翼财务软件，本程序主要的控制依据为摘要栏：一是摘要行高，二是摘要列宽。笔者在程序中的设置为本单位采用的格式，如果与本单位设置不同，只需将程序开始部分的字号、行高、列宽加以修改即可使用，故此程序具有一定的通用性。

（3）本程序已经经过实践检验，具有可操作性。

主要参考文献

[1]罗刚君.Excel VBA程序开发自学宝典[M].第2版.北京：电子工业出版社，2011.

[2]韩莹，等.利用Excel VBA完成教育专项资金银行存款对账[J].中国管理信息化，2012（10）.