運(yùn)用EXCEL實(shí)現(xiàn)銀行對賬自動(dòng)化

1、運(yùn)用EXCE國現(xiàn)銀行對賬自動(dòng)化許國吳光校銀行對賬是指每月單位的銀行存款日記賬和銀行對賬單核對，勾銷已達(dá)賬，生成銀行存款余額調(diào)節(jié)表的過程，這是保證資金安全的最重要手段。一般財(cái)務(wù)系統(tǒng)也帶有銀行對賬模塊，但在實(shí)際操作中存在這樣那樣的問題，要么銀行對賬單的數(shù)據(jù)文件格式與財(cái)務(wù)系統(tǒng)不符，要么財(cái)務(wù)系統(tǒng)的對賬模塊不能正常使用，這樣只能用手工核對，但這要花較長時(shí)間，而且容易出錯(cuò)，一旦出錯(cuò)，核查起來更麻煩。本人充分運(yùn)用Excel的VBA功能實(shí)現(xiàn)了銀行對賬自動(dòng)化。一、收集對賬數(shù)據(jù)1、從賬務(wù)系統(tǒng)中導(dǎo)出銀行存款明細(xì)賬的數(shù)據(jù)，并保存為EXCEL文檔，然后把相應(yīng)的內(nèi)容復(fù)制到圖1中對應(yīng)的欄目內(nèi)。2、銀行對賬單數(shù)據(jù)文件一般為D

2、BF格式，也有的為EXCE戊檔，如果為DBF文件，就需要轉(zhuǎn)化為EXCEL文檔，然后把對應(yīng)的內(nèi)容復(fù)制到圖1中對應(yīng)的欄目內(nèi)。處理完后的EXCE戊檔如圖1,并把“sheetl”工作表重命名為“對賬數(shù)據(jù)”。圖1二、自動(dòng)核對對賬數(shù)據(jù)1、在“對賬數(shù)據(jù)”工作表中選擇工具-宏-VisualBasic編輯器菜單，進(jìn)入VBA編輯窗口，執(zhí)行插入-模塊命令，插入模塊1,然后在編輯窗口中輸入如下代碼。Subzdhd()DimIrowAsInteger,iAsInteger,jAsIntegerIrow=a1.CurrentRegion.Rows.Count'取得行數(shù)Fori=3ToIrow'數(shù)據(jù)從第3行

3、開始Forj=3ToIrowIfCells(i,"C")=Cells(j,"K")ThenIfCells(i,"D")=Cells(j,"L")Then'如果C列i行等于K列j行'并且D列i行等于L歹Uj行IfCells(i,"C")<>""Then并且C列i行不等于空Cells(j,"L")="V"'則L列j行的值為，Cells(i,"D")="V"'

4、則D列i行的值為，ExitFor如果找到該單元格，則退出查找EndIf:EndIf:EndIf:Nextj:NextiFori=3ToIrow'注釋與上相似Forj=3ToIrowIfCells(i,"E")=Cells(j,"I")ThenIfCells(i,"F")=Cells(j,"J")ThenIfCells(i,"E")<>""ThenCells(j,"J")="v/":Cells(i,"F&qu

5、ot;)="V"ExitFor:EndIf:EndIf:EndIf:Nextj:NextiEndSub注：單引號后的文字為代碼注釋，可以不輸入，另外為節(jié)省篇幅，在一行中使用了冒號隔開多條指令(下同)。2、源代碼編輯無誤后保存并退出，然后選擇視圖-工具欄-窗體命令，出現(xiàn)窗體控件，單擊按鈕,光標(biāo)變成小十字形，然后將小十字形移到適當(dāng)位置，按下左鍵拖動(dòng)鼠標(biāo)，直到出現(xiàn)的方框大小合適后，釋放鼠標(biāo)左鍵，形成一個(gè)按鈕，點(diǎn)擊按鈕輸入“自動(dòng)核對”文字，然后在此按鈕上單擊右鍵，選擇指定宏命令，彈出“宏”對話框，選定宏“zdhd”，單擊對話框右上方的確定按鈕，完成后按“自動(dòng)核對”按鈕即可勾對已達(dá)賬

6、，如圖2。圖2三、生成銀行存款調(diào)節(jié)表1、把“sheet2”工作表重命名為“銀行調(diào)節(jié)表”，設(shè)置好1至9行的內(nèi)容，然后按前面的方法插入一個(gè)模塊2,并在編輯窗口中輸入如下代碼。Sublhtjb()DimIrowAsInteger,iAsIntegerIrow=Sheet1.a1.CurrentRegion.Rows.CountSheets("對賬數(shù)據(jù)").Activate'激活對賬數(shù)據(jù)工作表Fori=3ToIrow'數(shù)據(jù)從第3行開始IfCells(i,"C")<>""Then'并且C列i行不等于空Rang

7、e(Cells(i,"A"),Cells(i,"C"),Select'則選中A列i行至C列i行單元格Selection.Copy_'然后復(fù)制到銀行調(diào)節(jié)表中相應(yīng)的單元格中Sheets("銀行調(diào)節(jié)表").Cells(i+7,"A")EndIf:EndIf:NextiFori=3ToIrow''注釋與上相似IfCells(i,"F")=""Then:IfCells(i,"E")<>""ThenRan

8、ge(Cells(i,1),Cells(i,3).SelectSelection.CopySheet2.Cells(i+7,"A")Cells(i,"E").SelectSelection.CopySheet2.Cells(i+7,"D")EndIf:EndIf:NextiFori=3ToIrow'注釋與上相似IfCells(i,"J")=""Then:IfCells(i,"I")<>""ThenRange(Cells(i,"

9、H"),Cells(i,"I").SelectSelection.CopySheet2.Cells(i+7,"E")EndIf:EndIf:NextiFori=2ToIrow'注釋與上相似IfSheet1.Cells(i,"J")=""ThenIfSheet1.Cells(i,"K")<>""ThenCells(i,"H").SelectSelection.CopySheet2.Cells(i+7,"E")

10、Selection.CopySheet2.Cells(i+7,"G")EndIf:EndIf:NextiSheets("銀行調(diào)節(jié)表").Activate'激活銀行調(diào)節(jié)表工作表EndSub2、源代碼編輯無誤后保存并退出，再按上面的方法創(chuàng)建一個(gè)窗體按鈕，并輸入“生成調(diào)節(jié)表”文字，然后把“l(fā)htjb”宏指定給此按鈕，完成后按“生成調(diào)節(jié)表”按鈕即可生成如圖3所示的銀行存款余額調(diào)節(jié)表。圖3四、整理銀行存款余額調(diào)節(jié)表1、仍按前面的方法插入一個(gè)模塊3,然后在編輯窗口中輸入如下代碼。Sublhtzbzl()DimiAsInteger,IrowAsIntegerI

11、row=Sheet1.a1.CurrentRegion.Rows.Count'取得行數(shù)Sheets("銀行調(diào)節(jié)表").Activate'激活銀行調(diào)節(jié)表工作表Fori=10ToIrow'數(shù)據(jù)從第10行開始IfCells(i,"A")=""Then'如果A列i行等于空'則選中A列i行至D列i行單元格Sheet2.Range(Cells(i,"A"),Cells(i,"D").SelectSelection.DeleteShift:=xlUp'向上刪除選中單元格EndIf:Nexti:Fori=10ToIrow'同上IfCells(i,"E")=""ThenSheet2.Range(Cells(i,"E"),Cells(i,"G").SelectSelection.DeleteShift:=xlUpEndSub2、源代碼編輯無誤后保存并退出，再按上面的方法創(chuàng)建一個(gè)窗體按鈕，并輸入“整理調(diào)節(jié)表”文字，然后把上面的“Ihtzbzl”宏指定給此按鈕，完成后按“整理調(diào)節(jié)表”按鈕即可把未達(dá)賬的空