【正文】 1) = Document date Sheets(上導(dǎo)模板 ).Range(C amp。 b) = SA Sheets(上導(dǎo)模板 ).Range(F amp。 i) Sheets(上導(dǎo)模板 ).Range(C amp。 b) = Sheets(操作手冊 ).Range(E amp。 4) 添加數(shù)據(jù) SUM2 = 0 For b = 2 To d SUM2 = SUM2 + Sheets(上導(dǎo)模板 ).Range(T amp。 3) Sheets(上導(dǎo)模板 ).Range(G amp。 b) End If End If End If Next 某財務(wù)辦公自動化系統(tǒng)設(shè)計與實現(xiàn) 36 d = f 添加數(shù)據(jù) Sheets(上導(dǎo)模板 ).Range(A amp。 b) Sheets(上導(dǎo)模板 ).Range(s amp。 b) amp。 b) Sheets(結(jié)果 2).Range(J amp。 b) amp。 b) Sheets(上導(dǎo)模板 ).Range(n amp。 b) Sheets(結(jié)果 2).Range(J amp。 b) amp。 b) 某財務(wù)辦公自動化系統(tǒng)設(shè)計與實現(xiàn) 34 Sheets(上導(dǎo)模板 ).Range(n amp。 b) End If Else If Sheets(doradoreport).Range(E amp。 b) Sheets(上導(dǎo)模板 ).Range(s amp。 b) Sheets(上導(dǎo)模板 ).Range(s amp。 b) = Sheets(doradoreport).Range(W amp。 Sheets(doradoreport).Range(C amp。 Sheets(doradoreport).Range(n amp。 e) Sheets(清單 ).Range(D amp。 e) Sheets(清單 ).Range(K amp。 c) = Int(Sheets(清單 ).Range(F amp。 d) 39。If Sheets(清單 ).Range(B amp。使用時，點擊即可，也不用復(fù)查表格，增加工作時間。 [12] Excel 單元格中可以包括數(shù)據(jù)類型有數(shù)值、日期時間、文本、邏輯值和錯誤值，期中邏輯值和錯誤值通常是公式產(chǎn)生的，其他某財務(wù)辦公自動化系統(tǒng)設(shè)計與實現(xiàn) 23 幾種類型則需要輸入，或者通過 ExcelVBA 實現(xiàn)辦公自動化完成填充。 ER 圖的好處是在物理設(shè)計階段前，能夠給直觀的給設(shè)計人員看到數(shù)據(jù)庫的模型結(jié)構(gòu)，以便后來的系統(tǒng)集成數(shù)據(jù)庫后的集成度會大大有保障。 數(shù)據(jù)庫設(shè)計往往交給一人來完成的話不容易發(fā)現(xiàn)細微的問題，常常是多人完成，這樣既能保證質(zhì)量和進度，又能分段把關(guān)。為何數(shù)據(jù)庫設(shè)計處于如此關(guān)鍵的節(jié)點呢？主要還是和它自身的特點有關(guān)： 首先，具有反復(fù)性。對本系統(tǒng)進行設(shè)計時，要給這系統(tǒng)進行個總體的架構(gòu)搭建，下圖為某財務(wù)自動化系統(tǒng)的系統(tǒng)結(jié)構(gòu)圖 ，如圖 所示 ： 某財務(wù)辦公自動化系統(tǒng)設(shè)計與實現(xiàn) 17 前 臺 使 用 模 塊清空上次操作的表數(shù)據(jù)分割模塊所需元素將新模板導(dǎo)入新下載模板里輸出模板檢查清單和下載模板金額生成SAP模板匯總金額添加會計科目等項目個性要求后 臺 功 能 模 塊查找最小值輸出模板檢查輸入金額生成對照表數(shù)據(jù)添加其他相關(guān)內(nèi)容某 財 務(wù) 辦 公 自 動 化 系 統(tǒng) 圖 某財務(wù)辦公自動化 系統(tǒng)結(jié)構(gòu)圖 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫通俗的講，就是存放數(shù)據(jù)的“倉庫”，而且數(shù)據(jù)是按一定 的格式存放的。 如何從若干方案中選擇一個盡可能好的，是決策問題。 圖 數(shù)據(jù)流程圖的符號 某財務(wù)辦公自動化系統(tǒng)數(shù)據(jù)流程圖如圖 所示。 之后，兩張表進入制成的 ExcelVBA 小工具中，系統(tǒng)會根據(jù)代碼自動把兩個表中的有效內(nèi)容整合，生成一張結(jié)果表。同時，前臺使用人員對照 Excel 的前臺界面 對于業(yè)務(wù)熟悉的他們可以根據(jù)業(yè)務(wù)點擊相應(yīng)的控件，完成自己想要辦公自動化工具實現(xiàn)的功能，也方便使用人員的管理。而用 ExcelVBA 進行開發(fā)，真的是物美價廉。 本章節(jié)將主要從技術(shù)可行性、經(jīng)濟可行性和管理可行性三方面進行分析。 [7] 例如 在可口可樂共享服務(wù)中心 中，有個 Infoshare 組負責(zé)可口可樂的 ExcelVBA 的 OA 系統(tǒng)開發(fā)和維護。也就是說，要想使 VBA 程序得以運行，必須先打開 Word、 Excel等程序。當 Excel 逐步發(fā)展過程中， Excel 從 2021 版后對宏的安全性相較于之前的 Excel 版本有了進一步的提高，當錄制好宏之后，如果將宏保存在當前的工作簿，并且以普通的 xlsx 格式保存時，Excel 會提示無法保存宏的對話框，為此 Excel 提供了啟用宏的工作簿格式 ——xlsm 格式來保存帶有宏的工作簿，使得與不帶有宏的工作簿進行明顯的區(qū)分?？墒窃谥匦落浿七@個宏的過程中有一個嚴重的錯誤，那么改正這個錯誤的唯一辦法就是重新錄制這個宏。 [4] 6．多個應(yīng)用向?qū)? VB 提供了多種向?qū)鐟?yīng)用向?qū)?、安裝向?qū)?、?shù)據(jù)對象向?qū)Ш蛿?shù)據(jù)窗體向?qū)ㄟ^它們可以快速地創(chuàng)建區(qū)別類型、區(qū)別功能應(yīng)用 7．聯(lián)機幫助功能。當然在網(wǎng)絡(luò)功能中也提供了快捷別寫 Inter 程序的能力。 第五章 ：財務(wù)辦公自動化系統(tǒng)的各個模塊截圖和代碼功能介紹。 [1]對于企業(yè)用戶來說 ， 辦公自動化 是一個好幫手 ，是企業(yè) 的“管家 ”。 本系統(tǒng)，首先在用戶體驗中能夠很輕松方便的處理財務(wù)的事務(wù)，開發(fā)過程也較簡單，實踐度也高，能夠在財務(wù)辦公中得到很有力的幫助，提高了工作的效率，也能節(jié)省了企業(yè)成本。而若想其能實現(xiàn)辦公自動化，就需要靠代碼和其他輔助工具 。 。同樣，對編程不懂的人，從業(yè)務(wù)角度也能編制 ExcelVBA 辦公自動化小工具，只需要后天進行學(xué)習(xí)即可。辦公自動化的到來會很大程度上解決這個問題。 某財務(wù)辦公自動化系統(tǒng)設(shè)計與實現(xiàn) 2 第二章：對所做的辦公自動化系統(tǒng)應(yīng) 用的關(guān)鍵技術(shù)進行介紹。 VB 具有簡單易學(xué)的特性，只要稍有計算機語言基礎(chǔ)就可以很快掌握它。 4．結(jié)構(gòu)化設(shè)計語言 VB 具有豐富數(shù)據(jù)類型是種符合結(jié)構(gòu)化設(shè)計思想語言而且簡單易學(xué)此外作為種設(shè)計語言 VB 還有許多獨到之處。當知心宏命令所對應(yīng)的任務(wù)組合時， Excel 會自動啟動該 VBA 程序模塊中的應(yīng)用程序。正因為宏的這種特性，使得曾經(jīng)一些惡意的軟件編程人員研發(fā)出了極具破壞性的宏病毒。與VB 相比， VBA 輕便的多。財務(wù)與數(shù)字、人有關(guān)，但 是如果達到一定的數(shù)量，憑紙質(zhì)表格已經(jīng)無法勝任，若為其購置一套相關(guān)的 ERP 設(shè)備又顯得太小題大做。因此，能讓 OA 辦公管理系統(tǒng)的建設(shè)定位在這個層面上 ,才能使企業(yè)辦公變得更加高效。 經(jīng)濟可行性 經(jīng)濟可行性方面針對企業(yè)我 們肯定更多的會考慮成本的問題。 管理可行性 管理可行性是 在管理功能的基礎(chǔ)上將其細化， 使得每個部分可控可管理。 在業(yè)務(wù)流程圖中，重中之重是要標出 與該業(yè)務(wù)相關(guān)的報表、單據(jù)的來源、去向與應(yīng)用 。數(shù)據(jù)流程分析包括對數(shù)據(jù)的手機、傳遞、處理和儲存的分析。 某財務(wù)辦公自動化系統(tǒng)設(shè)計與實現(xiàn) 16 4 系統(tǒng) 設(shè)計 系統(tǒng)設(shè)計主要考慮的是為實現(xiàn)某一個系統(tǒng)或子系統(tǒng)，應(yīng)該設(shè)計幾個功能模塊。 可靠性：系統(tǒng)的可靠性包括軟件硬件的可靠性，一般可以從以下幾個方面來考慮：文件存取限制，主要為安全性和完整性的問題，什么人可以訪問，什么人不可以；建立運行日志和信息追蹤 ，由于一些特殊業(yè)務(wù)的需要，管理層可能需要系統(tǒng)每天提供處理那些任務(wù)的報告，如何處理的。對于數(shù)據(jù)庫開發(fā)人員來說，數(shù)據(jù)庫設(shè)計就是對一個給定的實際應(yīng)用環(huán)境，如何利用數(shù)據(jù)庫正確的反應(yīng)軟件現(xiàn)實能滿足的 情況，而且還能滿足使用這的各種應(yīng)用需求是數(shù)據(jù)庫設(shè)計的關(guān)鍵之一。有各式各樣的要求和制約元素，它們往往勢不兩立。一般利用 ER 圖來實現(xiàn)。應(yīng)當注意的是，需要知道每個屬性的域和主碼。 [15] 主 操作界面 設(shè)計 本財務(wù)辦公自 動化系統(tǒng)界面上做到了直觀，控件名稱也是操作名稱，能給使用者做到明顯直觀的使用體驗。 c) = 0 Then Sheets(清單 ).Range(G amp。 Sheets(結(jié)果 ).Range(E amp。 c) = Sheets(清單 ).Range(D amp。 5) = 模板總金額 Sheets(清單 ).Range(H amp。 e) = Sheets(清單 ).Range(B amp。 1) = 差異 End Sub 最后形成截圖，如圖 所示： 某財務(wù)辦公自動化系統(tǒng)設(shè)計與實現(xiàn) 31 圖 生成的 SAP 模板 運行截圖 生成最后導(dǎo)出的模板 代碼如下所示： Sub GX 模板生成 () Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim f As Integer Dim i As Integer Dim STRA As String Dim SUM1 As Double Dim SUM2 As Double a = Sheets(doradoreport).Range(A65535).End(xlUp).Row 某財務(wù)辦公自動化系統(tǒng)設(shè)計與實現(xiàn) 32 For b = 2 To a Sheets(doradoreport).Range(w amp。 b) amp。 b), 2) = ER Then If Left(Sheets(doradoreport).Range(F amp。 f) = Sheets(doradoreport).Range(l amp。 Sheets(doradoreport).Range(G amp。 f) = Sheets(doradoreport).Range(p amp。 f) + Sheets(doradoreport).Range(t amp。 Sheets(doradoreport).Range(D amp。 f) = Val(Sheets(doradoreport).Range(t amp。 b) = 營業(yè)所電費 Or Sheets(doradoreport).Range(E amp。 Sheets(doradoreport).Range(E amp。 f) = Val(Sheets(doradoreport).Range(t amp。 f) = Sheets(doradoreport).Range(n amp。 Sheets(doradoreport).Range(U amp。 f) = Sheets(doradoreport).Range(p amp。 2) Sheets(上導(dǎo)模板 ).Range(E amp。 d + 1) = 205501203 Sheets(上導(dǎo)模板 ).Range(M amp。 b) = Sheets(操作手冊 ).Range(E amp。 b), 9) End If 添加日期 For i = 2 To a If STRA = (F amp。 b).NumberFormatLocal = yyyymd。 b) = J0 Next Sheets(上導(dǎo)模板 ).Range(T amp。 1) = Document type Shee。 b) = CNY Sheets(上導(dǎo)模板 ).Range(K amp。 b).NumberFormatLocal = yyyymd。 b)) 7, 1) = B Then STRA = Right(Sheets(上導(dǎo)模板 ).Range(S amp。 39。 4) Sheets(上導(dǎo)模板 ).Range(K amp。 2) Sheets(上導(dǎo)模板 ).Range(C amp。 f) = Val(Sheets(doradoreport).Range(t amp。 Sheets(doradoreport).Range(E amp。 f) = Sheets(doradoreport).Range(l amp。 f) = (Sheets(上導(dǎo)模板 ).Range(s amp。 f) = Sheets(doradoreport).Range(C amp。 b) = 通訊費 手機 Or Sheets(doradoreport).Range(E amp。 f) = (Sheets(上導(dǎo)模板 ).Range(s amp。 f) = Sheets(doradoreport).Range(C amp。 b 1) Then Sheets(上導(dǎo)模板 ).Range(T amp。 f) = Val(Sheets(doradoreport).Range(t amp。 Sheets(doradoreport).Range