《运用EXCEL实现银行对账自动化》由会员分享,可在线阅读,更多相关《运用EXCEL实现银行对账自动化(25页珍藏版)》请在金锄头文库上搜索。
1、.运用运用运用运用 EXCELEXCELEXCELEXCEL 实现银行对账自动化实现银行对账自动化实现银行对账自动化实现银行对账自动化许国吴光校银行对账是指每月单位的银行存款日记账和银行对账单核对,勾销已达账 ,生成银行存款余额调节表的过程 ,这是保证资金安全的最重要手段。一般财务系统也带有银行对账模块,但在实际操作中存在这样那样.专业资料 .的问题 ,要么银行对账单的数据文件格式与财务系统不符, 要么财务系统的对账模块不能正常使用 ,这样只能用手工核对,但这要花较长时间,而且容易出错,一旦出错 ,核查起来更麻烦。本人充分运用Excel 的 VBA功能实现了银行对账自动化。一、收集对账数据1、
2、从账务系统中导出银行存款明细账的数据,并保存为EXCEL文档 ,然后把相应的内容复制到图1 中对应的栏目内 。2、银行对账单数据文件一般为DBF 格式 ,也有的为EXCEL 文档 ,如果为DBF 文件,.专业资料 .就需要转化为EXCEL 文档,然后把对应的内容复制到图1 中对应的栏目内。处理完后的EXCEL文档如图 1,并把“sheet1 ”工作表重命名为 “对账数据 ”。图 1二、自动核对对账数据1、在 “对账数据 ”工作表中选择工具 宏 VisualBasic 编辑器 菜单 ,进入VBA 编辑窗口 ,执行插入 模块 命令 ,插入模块1,然后在编辑窗口中输入如下代码。.专业资料 .Sub
3、zdhd()Dim Irow As Integer, i As Integer, j As Integer取得行数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 行的值为
4、 Exit For如果找到该单元格,则退出查找lls(i, D) = Then鈥欏鏋淒鍒梚琛岀瓑浜庣 End If:End If:End If:Next j:Next iFor i = 3 To Irow注释与上相似.专业资料 .For j = 3 To IrowIf 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 i.专业
5、资料 .End Sub注:单引号后的文字为代码注释,可以不输入 ,另外为节省篇幅,在一行中使用了冒号隔开多条指令 (下同 )。2 、源代码编辑无误后保存并退出,然后选择 视图 工具栏 窗体 命令,出现窗体控件,单击 按钮 , 光标变成小十字形,然后将小十字形移到适当位置,按下左键拖动鼠标,直到出现的方框大小合适后 ,释放鼠标左键,形成一个按钮, 点击按钮输入“自动核对 ”文字 ,然后在此按钮上单击右键,选择指定宏 命令 ,弹出 “宏 ”对话框 ,选定宏 “zdhd ”,单击对话框右上方的确定 按钮 ,完成后按 “自.专业资料 .动核对 ”按钮即可勾对已达账,如图 2 。图 2三、生成银行存款调
6、节表1、把 “sheet2 ”工作表重命名为“银行调节表 ”,设置好 1 至 9 行的内容 ,然后按前面的方法插入一个模块2,并在编辑窗口中输入如下代码。Sub lhtjb()Dim Irow As Integer, i As Integer.专业资料 .Sheets( 对账数据 ).Activate激活对账数据工作表For i = 3 To Irow数据从第3 行开始If Cells(i, D) = Then如果 D 列 i 行等于空owIf Cells(i, C) = Cells(j, K) Then雚 MJPEnd If:End If:End If:Next j:Next i.专业资料
7、.For i = 3 To Irow注释与上相似For j = 3 To IrowIf 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 i.专业资料 .End Sub注:单引号后的文字为代码注释,可以不输入 ,另外为节省篇幅,在一行中使用了冒号隔开多条指令 (下同 )。2 、源代码编辑无误后保存并退出,然后选择 视图 工具栏
8、 窗体 命令,出现窗体控件,单击 按钮 , 光标变成小十字形,然后将小十字形移到适当位置,按下左键拖动鼠标,直到出现的方框大小合适后 ,释放鼠标左键,形成一个按钮, 点击按钮输入“自动核对 ”文字 ,然后在此按钮上单击右键,选择指定宏 命令 ,弹出 “宏 ”对话框 ,选定宏 “zdhd ”,单击对话框右上方的确定 .专业资料 .按钮 ,完成后按 “自动核对 ”按钮即可勾对已达账,如图 2 。图 2三、生成银行存款调节表1、把 “sheet2 ”工作表重命名为“银行调节表 ”,设置好 1 至 9 行的内容 ,然后按前面的方法插入一个模块2,并在编辑窗口中输入如下代码。Sub lhtjb().专业资料 .Dim Irow As Integer, i As IntegerSheets( 对账数据 ).Activate激活对账数据工作表For i = 3 To Irow数据从第3 行开始If Cells(i, D) = Then如果 D 列 i 行等于空lls(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 _然后复制到银行调节表中相应的单元格中