【正文】 .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。If Left(Sheets(doradoreport).Range(F amp。 b), 2) = ER Then If Left(Sheets(doradoreport).Range(F amp。 b), 2) = ER And Sheets(doradoreport).Range(G amp。 b) = 出差 Then If Sheets(doradoreport).Range(W amp。 b) = Sheets(doradoreport).Range(W amp。 b 1) Then Sheets(上導模板 ).Range(T amp。 f) = Sheets(上導模板 ).Range(T amp。 f) + Sheets(doradoreport).Range(t amp。 b) 某財務辦公自動化系統(tǒng)設計與實現 33 Else f = f + 1 Sheets(上導模板 ).Range(l amp。 f) = Sheets(doradoreport).Range(l amp。 b) Sheets(上導模板 ).Range(n amp。 f) = Sheets(doradoreport).Range(n amp。 b) Sheets(上導模板 ).Range(s amp。 f) = Sheets(doradoreport).Range(C amp。 b) amp。 Sheets(doradoreport).Range(D amp。 b) amp。 Sheets(doradoreport).Range(G amp。 b) amp。 Sheets(doradoreport).Range(F amp。 b) Sheets(上導模板 ).Range(s amp。 f) = (Sheets(上導模板 ).Range(s amp。 f)) Sheets(上導模板 ).Range(t amp。 f) = Val(Sheets(doradoreport).Range(t amp。 b)) Sheets(上導模板 ).Range(p amp。 f) = Sheets(doradoreport).Range(p amp。 b) Sheets(結果 2).Range(J amp。 f) = Sheets(doradoreport).Range(B amp。 b) End If Else If Sheets(doradoreport).Range(E amp。 b) Like 交通費 * Then If Sheets(doradoreport).Range(X amp。 b) = Sheets(doradoreport).Range(X amp。 b 1) Then Sheets(上導模板 ).Range(T amp。 f) = Sheets(上導模板 ).Range(T amp。 f) + Sheets(doradoreport).Range(t amp。 b) Else f = f + 1 Sheets(上導模板 ).Range(l amp。 f) = Sheets(doradoreport).Range(l amp。 b) 某財務辦公自動化系統(tǒng)設計與實現 34 Sheets(上導模板 ).Range(n amp。 f) = Sheets(doradoreport).Range(n amp。 b) Sheets(上導模板 ).Range(s amp。 f) = Sheets(doradoreport).Range(C amp。 b) amp。 Sheets(doradoreport).Range(D amp。 b) amp。 Sheets(doradoreport).Range(U amp。 b) amp。 Sheets(doradoreport).Range(F amp。 b) Sheets(上導模板 ).Range(s amp。 f) = (Sheets(上導模板 ).Range(s amp。 f)) Sheets(上導模板 ).Range(t amp。 f) = Val(Sheets(doradoreport).Range(t amp。 b)) Sheets(上導模板 ).Range(p amp。 f) = Sheets(doradoreport).Range(p amp。 b) Sheets(結果 2).Range(J amp。 f) = Sheets(doradoreport).Range(B amp。 b) End If Else f = f + 1 If Sheets(doradoreport).Range(E amp。 b) = 通訊費 手機 Or Sheets(doradoreport).Range(E amp。 b) = 營業(yè)所水費 Or Sheets(doradoreport).Range(E amp。 b) = 營業(yè)所電費 Or Sheets(doradoreport).Range(E amp。 b) = 通訊費 辦公室網絡專線 Then Sheets(上導模板 ).Range(l amp。 f) = Sheets(doradoreport).Range(l amp。 b) Sheets(上導模板 ).Range(n amp。 f) = Sheets(doradoreport).Range(n amp。 b) Sheets(上導模板 ).Range(s amp。 f) = Sheets(doradoreport).Range(C amp。 b) amp。 Sheets(doradoreport).Range(E amp。 b) amp。 Sheets(doradoreport).Range(U amp。 b) amp。 Sheets(doradoreport).Range(F amp。 b) 某財務辦公自動化系統(tǒng)設計與實現 35 Sheets(上導模板 ).Range(s amp。 f) = (Sheets(上導模板 ).Range(s amp。 f)) Sheets(上導模板 ).Range(t amp。 f) = Val(Sheets(doradoreport).Range(t amp。 b)) Sheets(上導模板 ).Range(p amp。 f) = Sheets(doradoreport).Range(p amp。 b) Sheets(結果 2).Range(J amp。 f) = Sheets(doradoreport).Range(B amp。 b) Else Sheets(上導模板 ).Range(l amp。 f) = Sheets(doradoreport).Range(l amp。 b) Sheets(上導模板 ).Range(n amp。 f) = Sheets(doradoreport).Range(n amp。 b) Sheets(上導模板 ).Range(s amp。 f) = Sheets(doradoreport).Range(C amp。 b) amp。 Sheets(doradoreport).Range(D amp。 b) amp。 Sheets(doradoreport).Range(E amp。 b) amp。 Sheets(doradoreport).Range(U amp。 b) amp。 Sheets(doradoreport).Range(F amp。 b) Sheets(上導模板 ).Range(s amp。 f) = (Sheets(上導模板 ).Range(s amp。 f)) Sheets(上導模板 ).Range(t amp。 f) = Val(Sheets(doradoreport).Range(t amp。 b)) Sheets(上導模板 ).Range(p amp。 f) = Sheets(doradoreport).Range(p amp。 b) Sheets(結果 2).Range(J amp。 f) = Sheets(doradoreport).Range(B amp。 b) End If End If End If Next 某財務辦公自動化系統(tǒng)設計與實現 36 d = f 添加數據 Sheets(上導模板 ).Range(A amp。 d + 1) = 1 Sheets(上導模板 ).Range(B amp。 d + 1) = Sheets(操作手冊 ).Range(E amp。 2) Sheets(上導模板 ).Range(C amp。 d + 1) = Sheets(操 作手冊 ).Range(E amp。 2) Sheets(上導模板 ).Range(E amp。 d + 1) = SA Sheets(上導模板 ).Range(F amp。 d + 1) = Sheets(操作手冊 ).Range(E amp。 3) Sheets(上導模板 ).Range(G amp。 d + 1) = CNY Sheets(上導模板 ).Range(J amp。 d + 1) = Sheets(操作手冊 ).Range(E amp。 4) Sheets(上導模板 ).Range(K amp。 d + 1) = 50 Sheets(上導模板 ).Range(L amp。 d + 1) = 205501203 Sheets(上導模板 ).Range(M amp。 d + 1) = 8000 Sheets(上導模板 ).Range(S amp。 d + 1) = Sheets(操作手冊 ).Range(E amp。 4) 添加數據 SUM2 = 0 For b = 2 To d SUM2 = SUM2 + Sheets(上導模板 ).Range(T amp。 b) Sheets(上導模板 ).Range(A amp。 b) = 1 39。 39。Sheets(上導模板 ).Range(B amp。 b) = Sheets(操作手冊 ).Range(E amp。 2) 39。Sheets(上導模板 ).Range(C amp。 b) = Sheets(操作手冊 ).Range(E amp。 2) 某財務辦公自動化系統(tǒng)設計與實現 37 If Mid(Sheets(上導模板 ).Range(S amp。 b), Len(Sheets(上導模板).Range(S amp。 b)) 7, 1) = B Then STRA = Right(Sheets(上導模板 ).Range(S amp。 b), 10) Else STRA = Right(Sheets(上導模板 ).Range(S amp。 b), 9) End If 添加日期 For i = 2 To a If STRA = (F amp。 i) Then Sheets(上導模板 ).Range(B amp。 b) = (Y amp。 i) Sheets(上導模板 ).Range(C amp。 b) = (Z amp。 i) Sheets(上導模板 ).Range(B amp。 b).NumberFormatLocal = yyyymd。@ Sheets(上導模板 ).Range(C amp。 b).NumberFormatLocal = yyyymd。@ Else End If Next 39。添加日期 Sheets(上導模板 ).Range(E amp。 b) = SA Sheets(上導模板 ).Range(F amp。 b) = Sheets(操作手冊 ).Range(E amp。 3) Sheets(上導模板 ).Range(G amp。 b) = CNY Sheets(上導模板 ).Range(K amp。 b) = 40 Sheets(上導模板 ).Range(Q amp。 b) = J0 Next Sheets(上導模板 ).Range(T amp。 d + 1) = SUM2 表結構建立 Sheets(上導模板 ).Range(A amp。 1) = Indicator Sheets(上導模板 ).Range(B amp。 1) = Document date Sheets(上導模板 ).Range(C amp。 1) = Posting date 某財務辦公自動化系統(tǒng)設計與實現 38 Sheets(上導模板 ).Range(D amp。 1) = Ledger Group Sheets(上 導模板 ).Range(E amp。 1) = Document type Sh