EXCEL 会计核算中记账凭证的查询与打印设计 摘要院在电算化会计核算中，记账凭证查询与打印是不可缺少的一个环节。本文通过建立凭证框架，设置查询公式，引入VBA 代码操作来实现会计记账凭证的查询以及批量打印工作。 Abstract: In the computerized accounting, the inquiry and print of accounting voucher is an indispensable link. By establishingvoucher framework, this paper set the inquiry formula, and introduced VBA code operation to achieve the inquiry and batch printing ofaccounting vouchers.关键词院记账凭证；EXCEL 公式；VBA 代码；查询；打印Key words: accounting voucher；EXCEL formula；VBA code；inquiry；print中图分类号院F232 文献标识码院A 文章编号院1006-4311（2014）31-0149-02 0 引言记账凭证又称记账凭单，是一种由财会部门根据原始凭证或原始凭证汇总表编制的会计凭证，它真实准确地记录了经济主体的经济业务情况，是会计人员进行账簿登记的直接依据。在日常会计工作中，会计人员必须严格按照记账凭证的内容对原始凭证进行分类和整理，做好账簿登记。 1 Excel 中记账凭证栏目设计在对Excel 中记账凭证栏目进行设计时，必须考虑其实用性，尽量使其与实际凭证栏目相一致，具体来看，必须包括以下几部分内容：淤记账凭证的名称和种类；于日期；盂核算单位；榆凭证号；虞所附原始凭证张数；愚有无附件，具体张数；舆摘要；余会计科目；俞经济业务中双方金额；逾有关财会人员盖章。 在设计时，会计人员可以建立一个新的工作表，并对其进行重命名，即凭证查询，一边会计人员随时查询。在设计个栏目时，会计人员可由B 列开始依次记录各栏目情况文档，同时在工作表中加入数值调节钮的控件来方便控制凭证号输入，最终设计效果如图1 所示。 假定事前我们已经准备好一张记录有各项经济业务的会计凭证表，为了方便起见，会计人员一般会将凭证编号、摘要名称、明细、金额等内容准确记录下来，以便查询，具体见图2。 2 设计思路在设计凭证查询时，会计人员先在凭证查询表中调节好凭证号，再通过具体查询公式最终获取凭证号所在行号，并引用该行不同栏目数据。如本例中，先在表H5 中输入2，即可得到凭证号为2 的所在行号，即5、6 行，同时还可以进行数据引用，具体见图3。 3 设计步骤及函数以及VBA 应用第一步：根据凭证编号进行一对一设计首先在Excel 表格中运用SMALL函数查询出所求区域中第K 个最小值，通过ROW 函数来控制K 的大小。本例中可以使用调节按钮对凭证编号进行调节（也可以直接手工填写凭证编号），再从会计凭证表中选取相同凭证号所对应数值，并从第一个最小的行值开始。具体公式设置操作如下：选中“凭证查询”表[B8]单元格，并在编辑一栏输入=SMALL((会计凭证表! $D$3:$D$1000<>$H$5)/1%%+ROW( $3:$1000),ROW(A1))，输入完后，同时按Ctrl+Shift+Enter。 这时你就会发现[B8]单元格就已经显示为你所需要查询的凭证号在“会计凭证表”中首次出现的行号，其他B9-B17 单元格，自动填充公式即可。为了后期凭证的美观，可以将该辅助区域（[B8:B17]）的单元格字体颜色改为“白色”。 第二步：记账凭证表中不同栏目的取数设计。运用INDIRECT 函数，完成凭证中各栏目取数。本例中，在[C8]单元格输入公式=INDIRECT("会计凭证表! F"&$B8（) 因为摘要列在会计凭证表的F 列，如果取总账科目就需要在[D8]单元格写公式=INDIRECT("会计凭证表! H"&$B8)，因为总账科目在会计凭证表的H 列。）。其他各项仿照[C8]单元格公式输入，输入完成后，选择[C8:L8]单元格，复制，然后选中下面的[C9:L17]单元格，选择性黏贴，选择“公式”即可。附件栏的公式设置采用VLOOKUP 函数。[K5]单元格输入公式=IF(COUNTIF(会计凭证表! D:D,H5),VLOOKUP(H5,会计凭证表! $D:$L,9,),0)。 第三步，金额单元格设置：选中“借方金额”，“贷方金额”所在单元格区域，设置单元格数值显示方式为“千分位”。再选择凭证需要打印的区域，设置打印区域。 第四步，在[D18]单元格输入公式，用来显示凭证合计金额的大小写：="合计："&SUBSTITUTE(SUBSTITUTE(IF(-RMB(G18),IF(G18>0,,"负")&TEXT(INT(ABS(G18)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(G18),2),"[dbnum2]0 角0 分;;整"),),"零角",IF(G18^2<1,,"零")),"零分","整")第五步，设置VBA 代码，实现会计凭证的批量化查询打印。 通过在工作表中添加按钮控件跟代码结合，就可以实现会计记账凭证的批量化打印。 操作方法：在“开发工具”中插入表单控件，如下图红框标示的按钮，点击一下，在工作表中需要插入按钮区域再按鼠标左键，然后在“指定宏”窗口中按“新建”按钮，就会进入VBE 编辑窗口，再将以下的代码贴入模块窗口中就好了。 连续打印功能的代码为：Dim i As IntegerIf MsgBox("开始打印？", vbOKCancel, "提示！")= vbOK ThenFor i = 1 To 56 '56 是我当前需要打印的凭证号数，你可以修改指定为你的最大凭证号。 Sheets("凭证查询").[H5]=iSheets("凭证查询").PrintOutNextEnd If这样设置好后，只要一按按钮就会提示是否要“开始打印？”，如果选择是，就会从1 号凭证一直打印到56 号凭证（目前我的最大凭证号就是56。）经过上述操作，操作人员可最终使用计算机生成记账凭证，再通过打印机完成打印。 参考文献院[1]李敏.Excel 会计核算中记账凭证查询与打印设计[J].中国管理信息化,2012(17).[2]贺相英.高校会计核算记账凭证中摘要的填制探讨[J].科技创新与应用,2014(03).[3]史艳伟,张岩庆,刘克胜.基于RFID 系统的安全性问题研究[J].计算机科学，2012(S1). 本文来源：https://www.wddqw.com/doc/71a151a7670e52ea551810a6f524ccbff021caca.html