【正文】 1) = Document type Shee。 1) = Posting date 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 38 Sheets(上導(dǎo)模板 ).Range(D amp。 1) = Indicator Sheets(上導(dǎo)模板 ).Range(B amp。 b) = J0 Next Sheets(上導(dǎo)模板 ).Range(T amp。 b) = CNY Sheets(上導(dǎo)模板 ).Range(K amp。 b) = Sheets(操作手冊(cè) ).Range(E amp。添加日期 Sheets(上導(dǎo)模板 ).Range(E amp。 b).NumberFormatLocal = yyyymd。 b).NumberFormatLocal = yyyymd。 b) = (Z amp。 b) = (Y amp。 b), 9) End If 添加日期 For i = 2 To a If STRA = (F amp。 b)) 7, 1) = B Then STRA = Right(Sheets(上導(dǎo)模板 ).Range(S amp。 2) 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 37 If Mid(Sheets(上導(dǎo)模板 ).Range(S amp。Sheets(上導(dǎo)模板 ).Range(C amp。 b) = Sheets(操作手冊(cè) ).Range(E amp。 39。 b) Sheets(上導(dǎo)模板 ).Range(A amp。 d + 1) = Sheets(操作手冊(cè) ).Range(E amp。 d + 1) = 205501203 Sheets(上導(dǎo)模板 ).Range(M amp。 4) Sheets(上導(dǎo)模板 ).Range(K amp。 d + 1) = CNY Sheets(上導(dǎo)模板 ).Range(J amp。 d + 1) = Sheets(操作手冊(cè) ).Range(E amp。 2) Sheets(上導(dǎo)模板 ).Range(E amp。 2) Sheets(上導(dǎo)模板 ).Range(C amp。 d + 1) = 1 Sheets(上導(dǎo)模板 ).Range(B amp。 f) = Sheets(doradoreport).Range(B amp。 f) = Sheets(doradoreport).Range(p amp。 f) = Val(Sheets(doradoreport).Range(t amp。 f) = (Sheets(上導(dǎo)模板 ).Range(s amp。 Sheets(doradoreport).Range(F amp。 Sheets(doradoreport).Range(U amp。 Sheets(doradoreport).Range(E amp。 Sheets(doradoreport).Range(D amp。 f) = Sheets(doradoreport).Range(C amp。 f) = Sheets(doradoreport).Range(n amp。 f) = Sheets(doradoreport).Range(l amp。 f) = Sheets(doradoreport).Range(B amp。 f) = Sheets(doradoreport).Range(p amp。 f) = Val(Sheets(doradoreport).Range(t amp。 f) = (Sheets(上導(dǎo)模板 ).Range(s amp。 Sheets(doradoreport).Range(F amp。 Sheets(doradoreport).Range(U amp。 Sheets(doradoreport).Range(E amp。 f) = Sheets(doradoreport).Range(C amp。 f) = Sheets(doradoreport).Range(n amp。 f) = Sheets(doradoreport).Range(l amp。 b) = 營(yíng)業(yè)所電費(fèi) Or Sheets(doradoreport).Range(E amp。 b) = 通訊費(fèi) 手機(jī) Or Sheets(doradoreport).Range(E amp。 f) = Sheets(doradoreport).Range(B amp。 f) = Sheets(doradoreport).Range(p amp。 f) = Val(Sheets(doradoreport).Range(t amp。 f) = (Sheets(上導(dǎo)模板 ).Range(s amp。 Sheets(doradoreport).Range(F amp。 Sheets(doradoreport).Range(U amp。 Sheets(doradoreport).Range(D amp。 f) = Sheets(doradoreport).Range(C amp。 f) = Sheets(doradoreport).Range(n amp。 f) = Sheets(doradoreport).Range(l amp。 f) + Sheets(doradoreport).Range(t amp。 b 1) Then Sheets(上導(dǎo)模板 ).Range(T amp。 b) Like 交通費(fèi) * Then If Sheets(doradoreport).Range(X amp。 f) = Sheets(doradoreport).Range(B amp。 f) = Sheets(doradoreport).Range(p amp。 f) = Val(Sheets(doradoreport).Range(t amp。 f) = (Sheets(上導(dǎo)模板 ).Range(s amp。 Sheets(doradoreport).Range(F amp。 Sheets(doradoreport).Range(G amp。 Sheets(doradoreport).Range(D amp。 f) = Sheets(doradoreport).Range(C amp。 f) = Sheets(doradoreport).Range(n amp。 f) = Sheets(doradoreport).Range(l amp。 f) + Sheets(doradoreport).Range(t amp。 b 1) Then Sheets(上導(dǎo)模板 ).Range(T amp。 b) = 出差 Then If Sheets(doradoreport).Range(W amp。 b), 2) = ER Then If Left(Sheets(doradoreport).Range(F amp。 b) Next Sheets(doradoreport).Range(Sheets(doradoreport).Cells(2, 1), Sheets(doradoreport).Cells(a, 26)).Sort _ Key1:=Sheets(doradoreport).Range(X2), _ Order1:=xlAscending f = 1 SUM1 = 0 For b = 2 To a 39。 b) amp。 b) _ amp。 b) amp。 b) amp。 b) Sheets(doradoreport).Range(X amp。 b) amp。 1) = 差異 End Sub 最后形成截圖，如圖 所示： 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 31 圖 生成的 SAP 模板 運(yùn)行截圖 生成最后導(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 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 32 For b = 2 To a Sheets(doradoreport).Range(w amp。 e) * 10000 + ) / 10000 Else End If Next Next Sheets(清單 ).Range(J amp。 d) Sheets(清單 ).Range(L amp。 e) = Sheets(清單 ).Range(K amp。 e) = Sheets(清單 ).Range(B amp。 e) = 0 Then Sheets(清單 ).Range(M amp。 e) = Sheets(結(jié)果 ).Range(B amp。 e) = Sheets(結(jié)果 ).Range(E amp。 5) = 模板總金額 Sheets(清單 ).Range(H amp。 1) = 清單總金額 Sheets(清單 ).Range(H amp。 c) * 10000 + ) / 10000 Next Sheets(清單 ).Range(F amp。 c) Sheets(清單 ).Range(F amp。 c) = Sheets(清單 ).Range(D amp。 c) Sheets(原始數(shù)據(jù) ).Range(E amp。Sheets(原始數(shù)據(jù) ).Range(F amp。 c) = Sheets(結(jié)果 ).Range(B amp。 Sheets(結(jié)果 ).Range(E amp。 d) = Sheets(清單 ).Range(B amp。 c) = Sheets(結(jié)果 ).Range(E amp。 c) + SUM2 Next For c = 2 To a For d = 2 To b 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 29 39。 c) = 0 Then Sheets(清單 ).Range(G amp。b = Sheets(結(jié)果 ). //可執(zhí)行次數(shù)數(shù) For c = 2 To a SUM1 = Sheets(清單 ).Range(D amp。相關(guān)代碼如 下： Sub we2() Dim a As Integer a = Sheets(結(jié)果 ). //清空結(jié)果表 Sheets(清單 ). //清空清單表 Sheets(上導(dǎo)模板 ). //清空上導(dǎo)模版 表 Sheets(新下 載模板 ). //清空新下載模板 表 Sheets(結(jié)果 2). //清空結(jié)果 2 表 End Sub 生成 SAP 模板并匯總金額： Sub 檢查金額 () Dim a As Integer Dim b As Integer 某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 28 Dim c As Integer Dim d As Integer //參數(shù)定義 Dim e As Integer Dim SUM1 As Double Dim SUM2 As Double Dim sum3 As Double SUM1 = 0 SUM2 = 0 sum3 = 0 a = Sheets(清單 ).Range(A65535).End(xlUp).Row //有效數(shù)據(jù)數(shù) b = Sheets(結(jié)果 ).Range(A65535).End(xlUp).Row //有效數(shù)據(jù)數(shù) 39。具體更替如圖 所示：某財(cái)務(wù)辦公自動(dòng)化系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 27 圖 控件功能更替 清空結(jié)果表 DoradoReport 以及結(jié)果表數(shù)據(jù)： 為了保證數(shù)據(jù)結(jié)果的準(zhǔn)確性，在不確定上次操作時(shí)，操作員是否對(duì)表格數(shù)據(jù)進(jìn)行清空， 因此設(shè)立此控件。 [15] 主 操作界面 設(shè)計(jì) 本財(cái)務(wù)辦公自 動(dòng)化系統(tǒng)界面上做到了直觀，控件名稱也是操作名稱，能給使用者做到明顯直觀的使用體驗(yàn)。 [14] 而辦公自動(dòng)化系統(tǒng)的實(shí)施是一項(xiàng)復(fù)雜的系統(tǒng)工程。 [13] 本財(cái)務(wù)辦公自動(dòng)化系統(tǒng)共分為 5 個(gè)表 ，集成在一個(gè)工作簿中，相關(guān)字段數(shù)據(jù)類型如下表所示： 清單信息表如表 所示： 表 清單信息表 字段名稱 類型 長(zhǎng)度 小數(shù)位數(shù) 允許空 字段說明 序號(hào) 數(shù)值 4 無 是 自動(dòng)生成的序號(hào) 報(bào)銷單號(hào) 文本 9 無 否 規(guī)定單號(hào) 姓名 文本 16 無 是 人名 金額 數(shù)值 10 2 是 報(bào)銷金額 結(jié)果信息表如表 所示： 表 結(jié)果信息表 字段名稱 類型 長(zhǎng)度 小數(shù)位數(shù) 允許空 字段說明 總賬科目 數(shù)值 9 無 否 對(duì)應(yīng)的會(huì)計(jì)科目 成本中心編碼 數(shù)值 無 否 規(guī)定編碼 金額 數(shù) 值 10 2 是 報(bào)銷金額 詳細(xì)情況 文本 100 無 是 大致消費(fèi)情況（包括時(shí)間 類別） 報(bào)銷編 號(hào) 文本 9 無 否 規(guī)定單號(hào)