序时账簿是指按照经济业务发生的时间先后顺序，逐日、逐笔连续记录经济业务的账簿。在审计项目开展过程中，审计人员经常需要根据被审计单位提供的序时账簿，对会计科目及对方科目的发生额进行分析。随着信息技术的发展及会计电子化程度的提高，越来越多地被审计单位在提供序时账簿时采用Excel表格的形式。审计人员在对获取的Excel表格进行分析时，可以通过对科目编码字段进行筛选，查询特定科目的总借贷方，但借助Excel表格的基本功能，无法快速统计特定科目的对方科目及金额汇总情况。笔者结合序时账簿特点以及审计工作实践，总结了一种基于VBA的电子化序时账簿数据整理方法。 序时账簿产生过程具有业务相关、时序相连、借贷一致、金额相抵的特点。与此同时，在实际审计过程中，审计人员也经常发现序时账簿存在单一凭证下对应多笔经济业务或多个事项、部分凭证借贷总额存在小额差异进行月末或年末冲抵等情况。 以银行存款科目为例，通过统计其在借方科目时，贷方科目的种类及金额，可以迅速摸清其银行存款的记账来源，与银行流水比对，有助于迅速锁定问题线索，打破僵局。 结合序时账簿特点，本算法的实现流程如下： 一是通过设置类指针方式，对电子账目进行逐行扫描。设置初始事件变量i为1，指针初始指向第1行。 二是将事件变量i的值填充至Serial字段，表明本行记录属于本年度第i个经济活动对应的一条记录；读取借贷字段，根据其结果填充借方累加值jz或贷方累加值dz。 三是判断扫描至本行记录时，jz和dz的值是否相等。若相等，则说明Serial为i的经济活动全部记录已统计完，下一行记录为第i+1项经济活动的记录，此时充值借贷累加值清零同时记录变量i累加；若不相等，说明该经济活动的记录并未统计完，下一行记录仍为该经济活动记录，记录变量i、jz和dz不变。 四是扫描本行分析完成后，开始下一行扫描。 审计人员在进行某第三方支付公司备付金管理审计时，要求该公司提供近三年的序时账簿，该账簿符合上述分析中所述的特点。根据算法描述，笔者所在数据组根据借贷判别、分类累加、总值比对、单一凭证纠错的原则，实现了对数据的整理。 整理完成后，笔者所在数据组利用SQL语句（也可采用类似Python、VBA等脚本语言），统计完成对应发生额的汇总及整理。以查找某公司基本户银行存款科目100201借方发生额对方科目为例，其SQL语句如下： select[科目编码]，[科目名称]，sum（金额）as汇总金额 from[SFGL].[dbo].[XXX公司20xx年序时账簿] where[借贷方向]like‘%贷%’ and[Serial]in （select[Serial] from[SFGL].[dbo].[XXX公司20xx年序时账簿] where方向like‘%借%’ and科目编码like‘100201’） order by[科目编码] 实践证明，除利息收入科目存在多借方对应单一贷方外，其余科目种类及数额汇总额完全一致，对相应数据取证经被审计单位近三年财务核算，数据完全一致，保证了取证的顺利开展。 综上所述，使用VBA实现电子化序时账簿规整后，由同一行为导致的借贷双方已形成子类，借助SQL语句或其他脚本语言，可快速统计某一科目全部对方科目及其金额，在节省人力资源的同时，也提高了审计工作账目核对及疑点发现的效率，推动了整体项目的进展。
