运用EXCL实现银行对账自动化.docVIP

运用EXCEL实现银行对账自动化 许国 吴光校 银行对账是指每月单位的银行存款日记账和银行对账单核对,勾销已达账,生成银行存款余额调节表的过程，这是保证资金安全的最重要手段。一般财务系统也带有银行对账模块，但在实际操作中存在这样那样的问题，要么银行对账单的数据文件格式与财务系统不符,?要么财务系统的对账模块不能正常使用，这样只能用手工核对，但这要花较长时间，而且容易出错，一旦出错，核查起来更麻烦。本人充分运用Excel的VBA功能实现了银行对账自动化。一、收集对账数据1、从账务系统中导出银行存款明细账的数据，并保存为EXCEL文档，然后把相应的内容复制到图1中对应的栏目内。2、银行对账单数据文件一般为DBF格式，也有的为EXCEL文档，如果为DBF文件，就需要转化为EXCEL文档，然后把对应的内容复制到图1中对应的栏目内。处理完后的EXCEL文档如图1，并把“sheet1”工作表重命名为“对账数据”。??图1二、自动核对对账数据1、在“对账数据”工作表中选择[工具]?→［宏］→［Visual?Basic编辑器］菜单，进入VBA编辑窗口，执行［插入］→［模块］命令，插入模块1，然后在编辑窗口中输入如下代码。Sub?zdhd()Dim?Irow?As?Integer,?i?As?Integer,?j?As?Integer?Irow?=?[a1].CurrentRegion.Rows.Count??’取得行数For?i?=?3?To?Irow??’数据从第3行开始For?j?=?3?To?IrowIf?Cells(i,?C)?=?Cells(j,?K)?Then???’如果C列i行等于K列j行If?Cells(i,?D)?=?Cells(j,?L)?Then???’并且D列i行等于L列j行If?Cells(i,?C)???Then??’并且C列i行不等于空Cells(j,?L)?=?√???’则L列j行的值为√Cells(i,?D)?=?√???’则D列i行的值为√Exit?For??’如果找到该单元格,则退出查找End?If:End?If:End?If:Next?j:Next?iFor?i?=?3?To?Irow?’注释与上相似For?j?=?3?To?Irow??If?Cells(i,?E)?=?Cells(j,?I)?ThenIf?Cells(i,?F)?=?Cells(j,?J)?ThenIf?Cells(i,?E)?ThenCells(j,?J)?=?√:Cells(i,?F)?=?√Exit?For：End?If：End?If：End?If：Next?j：Next?iEnd?Sub注：单引号后的文字为代码注释，可以不输入，另外为节省篇幅,在一行中使用了冒号隔开多条指令(下同)。2、源代码编辑无误后保存并退出，然后选择［视图］?→［工具栏］?→［窗体］命令，出现［窗体］控件，单击［按钮］，光标变成,,,,十字形，然后将,,,,十字形移到适当位置，按下左键拖动鼠标，直到出现的方框大,,,,合适后，释放鼠标左键，形成一个按钮，点击按钮输入“自动核对”文字，然后在此按钮上单击右键，选择［指定宏］命令，弹出“宏”对话框，选定宏“zdhd”，单击对话框右上方的［确定］按钮，完成后按“自动核对”按钮即可勾对已达账，如图2。?　图2三、生成银行存款调节表1、把“sheet2”工作表重命名为“银行调节表”，设置好1至9行的内容,然后按前面的方法插入一个模块2，并在编辑窗口中输入如下代码。Sub?lhtjb()Dim?Irow?As?Integer,?i?As?IntegerIrow?=?Sheet1.[a1].CurrentRegion.Rows.Count?Sheets(对账数据).Activate?’激活对账数据工作表For?i?=?3?To?Irow?’数据从第3行开始If?Cells(i,?D)?=??Then??’如果D列i行等于空If?Cells(i,?C)???Then??’并且C列i行不等于空Range(Cells(i,?A),?Cells(i,?C)).Select?’则选中A列i行至C列i行单元格Selection.Copy?_’然后复制到银行调节表中相应的单元格中Sheets(银行调节表).Cells(i?+?7,?A)?End?If:End?If:Next?iFor?i?=?3?To?Irow?’’注释与上相似If?Cells(i,?F)?=??Then:If?Cells(i,?E)???ThenRange(Cells(i,?1),?C