b9208

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-5-11 23:29 | 顯示全部帖子

[發問] 多重條件式統計與加總

各位先進們好！
多重條件式統計與加總
如附件，雖然可以用 {=SUM( )}完成
但請先進們可否用VBA程式來執行
非常感謝指導

B.rar (5.4 KB)

樓主熱帖

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

2^#

發表於 2010-5-14 17:17 | 顯示全部帖子

各位先進前輩
次數統計問題己解決，但數量加總懇請協助指導。
例如：
[E35]之值為單號=ABS and 地區=WZ and 品名=K 符合上述三條件之銷售數量加總。
請看附件B1
下列程式如何修改成可以加總
For i = 5 To 11
For m = 35 To 42
.Cells(m, i) = f(.Cells(10, i) & .Cells(m, 3) & .Cells(m, 4))
Next m
Next i

感謝

B1.rar (20.62 KB)

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

3^#

發表於 2010-5-15 14:14 | 顯示全部帖子

各位先進前輩
上網查詢到使用 Application.Evaluate("sumproduct()")
程式碼如下：但執行後儲存格內為〞#NAME?〞
懇請前輩們指導。
m = Sheets("Re").Range("C65536").End(xlUp).Row
For i = 5 To 11
For j = 35 To 42
Cells(j, i) = Application.Evaluate("sumproduct((MID(Re!C7:C100, 5, 3) = cells(34, i))*(Re!K7:K100 = cells(j, 3))*(Re!AM7:AS100 = cells(j, 4))*(Re!BA7:BG100))")
Next j
Next i

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

4^#

發表於 2010-5-15 14:16 | 顯示全部帖子

抱歉上信沒有附加檔案 B2.rar

B2.rar (20.85 KB)

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

5^#

發表於 2010-5-16 00:26 | 顯示全部帖子

感謝阿吉兄
熱心指導說明，但〞樞紐分析〞超出小弟的能力太多了。
還是感謝您

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

6^#

發表於 2010-5-17 23:27 | 顯示全部帖子

各位前輩
以下使用R1C1方式可用，供大家參考。

For i = 5 To 11
For j = 35 To 42
   Cells(j, i).FormulaR1C1 = "=SUMPRODUCT((MID(Re!R7C3:R100C3, 5, 3) =R34C)*(Re!R7C11:R100C11 =RC3)*(Re!R7C39:R100C45 =RC4)*(Re!R7C53:R100C59))"
   Cells(j, i) = Cells(j, i).Value
Next
Next

請指導一下：上式中 R34C 及 RC3 代表什麼，因書中R OR C 後面有數字，如 R5C7, R10C70.....
例如
Cells(35, 5).FormulaR1C1 ====> R34C = ?,    RC3 = ?
Cells(36, 5).FormulaR1C1 ====> R34C = ?,    RC3 = ?
Cells(35, 6).FormulaR1C1 ====> R34C = ?,    RC3 = ?

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

7^#

發表於 2010-5-21 13:15 | 顯示全部帖子

[attach]790[/attach]
非常感謝前輩指導
程式可以使用。
想增加單位每日銷售數量表單，如ABS, ORO, SHE...。
研究幾天還是無法於前輩程式中增加程式來完成。
功力有待加強（理解力不足）

Set Rng = .Cells(A.row, "AM").Resize(, 7)
If Application.CountA(Rng) > 0 Then Set Rng = Rng.SpecialCells(xlCellTypeConstants) Else GoTo 10
For Each B In Rng

上列程式中，如 Reg 中只有 AM, AP, AR, AS等四欄位有資料（AN. AO, AQ三欄空白），
請問 For Each B In Rng 會執行幾迴圈？

感謝

TOP

b9208