【正文】 。感謝這些授予我知識(shí)的老師們，沒有你們的傳授指引，我也無法深層次的了解這些知識(shí)。本次論文的設(shè)計(jì)，也結(jié)合了四年所學(xué)。在此向幫助和指導(dǎo)過我的各位老師同學(xué)表示最衷心的感謝！感謝這次財(cái)務(wù)辦公自動(dòng)化所涉及到的各位學(xué)者。當(dāng)然，我的同組一起走過四年大學(xué)生活的同學(xué)們，我們之間互相交流格式方面的事宜。尤其要強(qiáng)烈感謝我的指導(dǎo)老師—畢建濤老師，他對(duì)我進(jìn)行了無私的指導(dǎo)和幫助，每幾天就會(huì)和我不同形式的進(jìn)行論文方面事宜的討論。在設(shè)計(jì)此辦公自動(dòng)化系統(tǒng)過程中遇到了無數(shù)的困難和障礙，包括自學(xué)VBA開發(fā)，中間有很多同事、技術(shù)大佬對(duì)我進(jìn)行耐心的指導(dǎo)和幫助。參 考 文 獻(xiàn)[1] 林學(xué)華,[M].合肥:合肥工業(yè)大學(xué)出版社,[2] 佚名,李林辦公自動(dòng)化系統(tǒng) [EB/OL]. [2009,03,13]. [3] 李春葆,劉圣才, Basic程序設(shè)計(jì)[M]:清華大學(xué)出版社,[4] 鄧昀,謝昊. VB中改變窗體時(shí)控件的改變[J].科教文匯,2007,3(1):190.[5] VBA范例應(yīng)用[M]第2版（修訂本）.北京:人民郵電出版社,[6] 丁士鋒, VBA標(biāo)準(zhǔn)教程[M].北京:化學(xué)工業(yè)出版社,[7][M].北京：國(guó)防工業(yè)出版社,[8] 陽曉薇,吳晶,明子涵. 辦公室日常事務(wù)管理系統(tǒng)方案設(shè)計(jì)[J].電子制作,2016,1:5859.[9][M].北京:機(jī)械工業(yè)出版社,[10][M]:科學(xué)出版社,[11][美]羅摩克里希納(),[美]格爾基()著；[M]:清華大學(xué)出版社出版社,2004.[12][M].北京：清華大學(xué)出版社,2004[13][M]：清華大學(xué)出版社,[14]John Satzinger Robert，Jackson Stephen Burd著；耿志強(qiáng)，朱寶， [M]（原書第4版）.北京：機(jī)械工業(yè)出版社,2009[15] 李長(zhǎng)樹. 辦公自動(dòng)化系統(tǒng)的設(shè)計(jì)方法與實(shí)施策略[J]. 計(jì)算機(jī)應(yīng)用研究,2000,7(7):4750.致 謝歷時(shí)將近三個(gè)月的時(shí)間終于將這份辦公自動(dòng)化系統(tǒng)完成。看的見摸得著的系統(tǒng)才是信息系統(tǒng)，而不是人們總認(rèn)為的信息系統(tǒng)是虛擬的，看得見摸不著的。若想能在這個(gè)競(jìng)爭(zhēng)激烈的社會(huì)立足，就需要豐富自身。一言勝過十句說的就是這個(gè)道理。說的再好，規(guī)劃的再完善，如果不能用出色的代碼完成，這個(gè)系統(tǒng)也是效率不高的。處理效率欠佳的系統(tǒng)，生命周期也不會(huì)長(zhǎng)久，也很快會(huì)被淘汰，不會(huì)被廣泛的使用。要做到這個(gè)就需要用圖來表示，要用流程圖來把系統(tǒng)的處理流程表示出來，這樣能知道數(shù)據(jù)流和信息流是如何處理的，也為數(shù)據(jù)庫(kù)設(shè)計(jì)鋪墊好了路程。分析階段，并不是紙上談兵，而是要做詳盡的規(guī)劃，紙上能演示出的錯(cuò)誤，盡量不要讓其在系統(tǒng)中出現(xiàn)。從前期的調(diào)研開始，對(duì)要做的領(lǐng)域進(jìn)行了解，前景如何，是否可以用自動(dòng)化、信息化的手段加以完善。但不足的是，未設(shè)有管理員登錄驗(yàn)證和用戶登錄驗(yàn)證，現(xiàn)在基本面向所有人可操作，開放性過高，后期可通過設(shè)定或增加代碼，對(duì)前臺(tái)增加登錄。內(nèi)部擁有其他功能可通過對(duì)前臺(tái)控件改變指定宏即可，無需進(jìn)入后臺(tái)。本系統(tǒng)根據(jù)需求具有生成模板，核算金額，差異化對(duì)比、導(dǎo)出報(bào)表等功能。 ii)GoTo SKIPElseEnd IfNextSKIP:NextEnd Sub：”添加檢查”對(duì)照表數(shù)據(jù)進(jìn)結(jié)果表運(yùn)行結(jié)果6 結(jié) 論經(jīng)過三個(gè)多月的辛苦努力。 ii) ThenSheets(上導(dǎo)模板).Range(O amp。b = Sheets(添加檢查).a = Sheets(上導(dǎo)模板).Range(A65535).End(xlUp).Row – 1 //表中最后一行數(shù)b = Sheets(添加檢查).Range(A65535).End(xlUp).RowFor i = 2 To a For ii = 2 To bIf Sheets(上導(dǎo)模板).Range(L amp。 1) = Value date(VALUT)表結(jié)構(gòu)建立End Sub：代碼如下：Sub tianjia()Dim a As IntegerDim b As IntegerDim i As Integer //設(shè)置參數(shù)Dim ii As Integer39。 1) = Transaction typeSheets(上導(dǎo)模板).Range(W amp。 1) = AmountSheets(上導(dǎo)模板).Range(U amp。 1) = AssignmentSheets(上導(dǎo)模板).Range(S amp。 1) = Internal orderSheets(上導(dǎo)模板).Range(Q amp。 1) = Cost CentreSheets(上導(dǎo)模板).Range(O amp。 1) = AccountSheets(上導(dǎo)模板).Range(M amp。 1) = Document header textSheets(上導(dǎo)模板).Range(K amp。 1) = RateSheets(上導(dǎo)模板).Range(I amp。 1) = Company codeSheets(上導(dǎo)模板).Range(G amp。 1) = Ledger GroupSheets(上導(dǎo)模板).Range(E amp。 1) = Document dateSheets(上導(dǎo)模板).Range(C amp。 d + 1) = SUM2表結(jié)構(gòu)建立Sheets(上導(dǎo)模板).Range(A amp。 b) = 40Sheets(上導(dǎo)模板).Range(Q amp。 3)Sheets(上導(dǎo)模板).Range(G amp。 b) = SASheets(上導(dǎo)模板).Range(F amp。ElseEnd IfNext39。Sheets(上導(dǎo)模板).Range(C amp。 i)Sheets(上導(dǎo)模板).Range(B amp。 i)Sheets(上導(dǎo)模板).Range(C amp。 i) ThenSheets(上導(dǎo)模板).Range(B amp。 b), 10)ElseSTRA = Right(Sheets(上導(dǎo)模板).Range(S amp。 b), Len(Sheets(上導(dǎo)模板).Range(S amp。 b) = Sheets(操作手冊(cè)).Range(E amp。 2)39。Sheets(上導(dǎo)模板).Range(B amp。 b) = 139。 4)添加數(shù)據(jù)SUM2 = 0For b = 2 To dSUM2 = SUM2 + Sheets(上導(dǎo)模板).Range(T amp。 d + 1) = 8000Sheets(上導(dǎo)模板).Range(S amp。 d + 1) = 50Sheets(上導(dǎo)模板).Range(L amp。 d + 1) = Sheets(操作手冊(cè)).Range(E amp。 3)Sheets(上導(dǎo)模板).Range(G amp。 d + 1) = SASheets(上導(dǎo)模板).Range(F amp。 d + 1) = Sheets(操作手冊(cè)).Range(E amp。 d + 1) = Sheets(操作手冊(cè)).Range(E amp。 b)End If End IfEnd IfNextd = f添加數(shù)據(jù)Sheets(上導(dǎo)模板).Range(A amp。 b) Sheets(結(jié)果2).Range(J amp。 b)) Sheets(上導(dǎo)模板).Range(p amp。 f)) Sheets(上導(dǎo)模板).Range(t amp。 b) Sheets(上導(dǎo)模板).Range(s amp。 b) amp。 b) amp。 b) amp。 b) amp。 b) Sheets(上導(dǎo)模板).Range(s amp。 b) Sheets(上導(dǎo)模板).Range(n amp。 b)Else Sheets(上導(dǎo)模板).Range(l amp。 b) Sheets(結(jié)果2).Range(J amp。 b)) Sheets(上導(dǎo)模板).Range(p amp。 f)) Sheets(上導(dǎo)模板).Range(t amp。 b) Sheets(上導(dǎo)模板).Range(s amp。 b) amp。 b) amp。 b) amp。 b) Sheets(上導(dǎo)模板).Range(s amp。 b) Sheets(上導(dǎo)模板).Range(n amp。 b) = 通訊費(fèi)辦公室網(wǎng)絡(luò)專線 Then Sheets(上導(dǎo)模板).Range(l amp。 b) = 營(yíng)業(yè)所水費(fèi) Or Sheets(doradoreport).Range(E amp。 b) End If Else f = f + 1 If Sheets(doradoreport).Range(E amp。 b) Sheets(結(jié)果2).Range(J amp。 b)) Sheets(上導(dǎo)模板).Range(p amp。 f)) Sheets(上導(dǎo)模板).Range(t amp。 b) Sheets(上導(dǎo)模板).Range(s amp。 b) amp。 b) amp。 b) amp。 b) Sheets(上導(dǎo)模板).Range(s amp。 b) Sheets(上導(dǎo)模板).Range(n amp。 b) Else f = f + 1 Sheets(上導(dǎo)模板).Range(l amp。 f) = Sheets(上導(dǎo)模板).Range(T amp。 b) = Sheets(doradoreport).Range(X amp。 b) End IfElse If Sheets(doradoreport).Range(E amp。 b) Sheets(結(jié)果2).Range(J amp。 b)) Sheets(上導(dǎo)模板).Range(p amp。 f)) Sheets(上導(dǎo)模板).Range(t amp。 b) Sheets(上導(dǎo)模板).Range(s amp。 b) amp。 b) amp。 b) amp。 b) Sheets(上導(dǎo)模板).Range(s amp。 b) Sheets(上導(dǎo)模板).Range(n amp。 b) Else f = f + 1 Sheets(上導(dǎo)模板).Range(l amp。 f) = Sheets(上導(dǎo)模板).Range(T amp。 b) = Sheets(doradoreport).Range(W amp。 b), 2) = ER And Sheets(doradoreport).Range(G amp。If Left(Sheets(doradoreport).Range(F amp。 Sheets(doradoreport).Range(E amp。 Sheets(doradoreport).Range(C amp。 Sheets(doradoreport).Range(D amp。 Sheets(doradoreport).Range(n amp。 b) = Sheets(doradoreport).Range(f amp。 Sheets(doradoreport).Range(n amp。 b) = Sheets(doradoreport).Range(f amp。 1) = 模板金額明細(xì)Sheets(清單).Range(L amp。 e) = Int(Sheets(清單).Range(L amp。 e) Sheets(清單).Range(D amp。 d) ThenSheets(清單).Range(L amp。 e) = 金額為0End If