巧用EXCEL宏功能快速核对银行对账单与银行日记账，本文主要内容关键词为：银行论文,账单论文,巧用论文,快速论文,功能论文，此文献不代表本站观点，内容供学术参考，文章仅供参考阅读下载。
核对银行对账单与单位银行存款日记账（以下简称单位日记账）是对银行存款审计中一项重要的步骤。通过核对银行对账单与单位日记账，可以找出未达账项，从而为发现出租、出借账户、挪用公款、非法出借资金等违规问题提供线索。审计人员查找未达账项时一般采用的都是手工逐行核对的方法，这种方法不仅耗时耗力，而且一旦数据量达到一定程度更是无法做到一一核对。本文试图通过EXCEL表的“宏”功能，编写语句来快速实现银行对账单与单位日记账之间的核对。
一、采集银行对账单和单位日记账数据，并进行必要的整理。整理后将单位银行存款日记账的日期、凭证号、借方金额、贷方金额复制到时先建好的EXCEL表格的A、B、C、D列中，将银行对账单的日期、凭证号、借方金额、贷方金额复制到H、I、J、K列中，复制后的表格如下：
二、如下图所示，在相应单元格内输入对账标识1、对账标识2等字段。如图所示。
三、新建一个按钮控件，名字为自动对账，鼠标右键点击“指定宏”菜单，将新建宏命名为ZDDZ，点击新建进入vb编辑器，输入以下语句，并进行保存。
Sub zdhd（）
Dim Irow As Integer,i As Integer，j As Integer
Irow=[a1].CurrentRegion.Rows.Count’取得行数
For i=3 To Irow’数据从第3行开始
Forj=3 To Irow
If Cells（i，＂C＂）=Cells（j，＂k＂）Then’如果C列i行等于K列j行
If Cells（i，＂D＂）=Cells（j，＂J＂）Then’并且D列i行等于J列j行
If Cells（i，＂C＂）＜＞＂＂Then’并且C列i行不为空
If Cells（j，＂L＂）=＂＂Then’并且L列j行为空
Cells（i，＂E＂）=＂√＂’则E列i行的值为√
Cells（j，＂L＂）=＂√＂’则L列j行的值为√
Exit For
’如果找到该单元格，则退出查找
End If:End If:End If:End If
Next j：Next i
End Sub
具体如图一所示：
四、上述步骤完成后，左键单击自动对账按钮，EXCEL将自动完成对账，如图二所示。
五、完成上述步骤后已基本完成对账任务，但还需要对E、L列进行筛选，找出单位已付银行未付、单位已收银行未收、银行已付单位未付、银行已收单位未收等记录。如：对账标识1为空，而单位日记账借方数＜＞0，则该记录为单位已收银行未收款项。具体如图三所示。
审计人员在首次使用本文所示的方法对账时，按上述办法操作并将表格保存即可。以后再次使用时，可以直接将银行存款单位日记账以及银行对账单记录复制到已建好表格的相应位置后执行第四、五步骤就可以轻松完成对账任务。