资源描述：
《运用EXCEL实现银行对账自动化.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、......运用运用运用运用EXCELEXCELEXCELEXCEL实现银行对账自动化实现银行对账自动化实现银行对账自动化实现银行对账自动化许国吴光校银行对账是指每月单位的银行存款日记账和银行对账单核对,勾销已达账,生成银行存款余额调节表的过程，这是保证资金安全的最重要手段。一般财务系统也带有银行对账模块，但在实际操作中存在这样那样的问题，要么银行对账单的数据文件格式与财务系统不符,要么财务系统的对账模块不能正常使用，这样只能用手工核对，但这要花较长时间，而且容易出错，一旦出错，核查起来更麻烦。本人充分运用E
2、xcel的VBA功能实现了银行对账自动化。一、收集对账数据1、从账务系统中导出银行存款明细账的数据，并保存为EXCEL文档，然后把相应的内容复制到图1中对应的栏目内。.专业资料.......2、银行对账单数据文件一般为DBF格式，也有的为EXCEL文档，如果为DBF文件，就需要转化为EXCEL文档，然后把对应的内容复制到图1中对应的栏目内。处理完后的EXCEL文档如图1，并把“sheet1”工作表重命名为“对账数据”。图1二、自动核对对账数据1、在“对账数据”工作表中选择[工具]→［宏］→［VisualBas
3、ic编辑器］菜单，进入VBA编辑窗口，执行［插入］→［模块］命令，插入模块1，然后在编辑窗口中输入如下代码。Subzdhd()DimIrowAsInteger,iAsInteger,jAsIntegerIrow=[a1].CurrentRegion.Rows.Count’取得行数Fori=3ToIrow’数据从第3行开始Forj=3ToIrowIfCells(i,"C")=Cells(j,"K")Then’如果C列i行等于K列j行IfCells(i,"D")=Cells(j,"L")Then’并且D列i行等于
4、L列j行.专业资料.......IfCells(i,"C")<>""Then’并且C列i行不等于空Cells(j,"L")="√"’则L列j行的值为√Cells(i,"D")="√"’则D列i行的值为√ExitFor’如果找到该单元格,则退出查找lls(i,"D")=""Then鈥欏鏋淒鍒梚琛岀瓑浜庣┖EndIf:EndIf:EndIf:Nextj:NextiFori=3ToIrow’注释与上相似Forj=3ToIrowIfCells(i,"E")=Cells(j,"I")ThenIfCells(i,"F"
5、)=Cells(j,"J")ThenIfCells(i,"E")<>""ThenCells(j,"J")="√":Cells(i,"F")="√"ExitFor：EndIf：EndIf：EndIf：Nextj：Nexti.专业资料.......EndSub注：单引号后的文字为代码注释，可以不输入，另外为节省篇幅,在一行中使用了冒号隔开多条指令(下同)。2、源代码编辑无误后保存并退出，然后选择［视图］→［工具栏］→［窗体］命令，出现［窗体］控件，单击［按钮］，光标变成小十字形，然后将小十字形移到适当位置，按下左
6、键拖动鼠标，直到出现的方框大小合适后，释放鼠标左键，形成一个按钮，点击按钮输入“自动核对”文字，然后在此按钮上单击右键，选择［指定宏］命令，弹出“宏”对话框，选定宏“zdhd”，单击对话框右上方的［确定］按钮，完成后按“自动核对”按钮即可勾对已达账，如图2。图2三、生成银行存款调节表1、把“sheet2”工作表重命名为“银行调节表”，设置好1至9行的内容,然后按前面的方法插入一个模块2，并在编辑窗口中输入如下代码。Sublhtjb()DimIrowAsInteger,iAsInteger.专业资料......
7、.Irow=Sheet1.[a1].CurrentRegion.Rows.CountSheets("对账数据").Activate’激活对账数据工作表Fori=3ToIrow’数据从第3行开始IfCells(i,"D")=""Then’如果D列i行等于空owIfCells(i,"C")=Cells(j,"K")Then雚MJPEndIf:EndIf:EndIf:Nextj:NextiFori=3ToIrow’注释与上相似Forj=3ToIrowIfCells(i,"E")=Cells(j,"I")The
8、nIfCells(i,"F")=Cells(j,"J")ThenIfCells(i,"E")<>""ThenCells(j,"J")="√":Cells(i,"F")="√"ExitFor：EndIf：EndIf：EndIf：Nextj：Nexti.专业资料.......EndSub注：单引号后的文字为代码注释，可以不输入，另外为节省篇幅,在一行中使用了冒号隔开多条指令(下同)。2、源代码编辑无误后
