返回列表下一主題上一主題發帖

[發問] 請問各位大大如何合併報表總和統計

owen9399

中學生 Rank: 2

帖子: 94
主題: 16
精華: 0
積分: 128
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-1-30
最後登錄: 2015-11-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-11-15 15:01 | 只看該作者

[發問] 請問各位大大如何合併報表總和統計

本帖最後由 GBKEE 於 2015-11-16 07:36 編輯

請問各位大大如何合併報表總和統計

手寫日報表與電腦日報表與進貨表都是用手動輸入的方式填入
而總和統計表是將手寫日報表與電腦日報表與進貨表的數值做全部的加總

依序號由小到大排列 , 呈現一份報表
謝謝指導

總和統計表.rar (2.97 KB)

樓主熱帖

owen

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-15

2^#

發表於 2015-11-15 18:47 | 只看該作者

Sub TEST()
Dim j&, Jm&, Arr, Brr, xS As Worksheet, xD, N&
Sheets("總和統計表").UsedRange.Offset(1, 0).ClearContents
　
ReDim Brr(1 To 6000, 1 To 8) '＿陣列預設容納 6000 列，可自行調整
Set xD = CreateObject("Scripting.Dictionary")
　
For Each xS In Sheets(Array("手寫日報表", "電腦日報表", "進貨表"))
　　Arr = xS.UsedRange.Offset(1, 0).Value
　　For j = 1 To UBound(Arr)
　　　　Jm = xD(Arr(j, 1)): If Arr(j, 1) = "" Then GoTo 99
　　　　If Jm = 0 Then N = N + 1: xD(Arr(j, 1)) = N: Jm = N
　　　　Brr(Jm, 1) = Arr(j, 1): Brr(Jm, 2) = Arr(j, 2)
　　　　If xS.Name = "進貨表" Then
　　　　　　Brr(Jm, 5) = Brr(Jm, 5) + Arr(j, 4) + Arr(j, 5) '＿總進貨
　　　　　　If InStr(" " & Brr(Jm, 6) & " ", " " & Arr(j, 6) & " ") = 0 Then '＿排除重覆
　　　　　　　　Brr(Jm, 6) = Trim(Brr(Jm, 6) & " " & Arr(j, 6)) '＿紀念品
　　　　　　End If
　　　　　　Brr(Jm, 8) = Trim(Brr(Jm, 8) & " " & Arr(j, 7)) '＿備註
　　　　Else
　　　　　　Brr(Jm, 3) = Brr(Jm, 3) + Arr(j, 4) '＿總張數
　　　　　　Brr(Jm, 4) = Brr(Jm, 4) + Arr(j, 5) '＿總股數
　　　　　　Brr(Jm, 8) = Trim(Brr(Jm, 8) & " " & Arr(j, 6)) '＿備註
　　　　End If
　　　　Brr(Jm, 7) = Brr(Jm, 5) - Brr(Jm, 3) '＿總進貨-總張數
99: Next
Next
　
If N = 0 Then Exit Sub
With [總和統計表!A2:H2].Resize(N)
　　　.Value = Brr
　　　.Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
End With
End Sub

程式碼看起來很多, 其實都只是[參照位置]而已, 請自行去慢慢意會, 不多做說明了~~

TOP

owen9399