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

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

5^#

發表於 2010-5-15 22:47 | 只看該作者

這種類型資料彙整
照正常來說使用樞紐分析比較快

但看了data
data排列要再修正
才會更好執行
長期來說修正data使用樞紐會更方便

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

b9208

中學生 Rank: 2

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

6^#

發表於 2010-5-16 00:26 | 只看該作者

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

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2010-5-16 19:51 | 只看該作者

感謝阿吉兄
熱心指導說明，但〞樞紐分析〞超出小弟的能力太多了。
還是感謝您
b9208 發表於 2010-5-16 00:26

您好
其實樞紐分析
比VBA整理資料快很多
也沒那麼複雜
照步驟做....不會太難!

B2-2樞紐分析概圖.rar (136.33 KB)
謝謝!

TOP

b9208

中學生 Rank: 2

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

8^#

發表於 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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 90
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-18

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2010-5-18 08:38 | 只看該作者

回復 8# b9208

這方法就是寫公式,何必多此一舉
R1C1表示法
R1C1→A1
RC1→同列A欄
R1C→同欄第一列
R[1]C→同欄下一列
RC[1]→同列向右一欄

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 90
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-18

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2010-5-18 23:25 | 只看該作者

回復 8# b9208

若真的不去改變資料庫格式,不嫌麻煩的話
參考附件

B2.rar (20.77 KB)

學海無涯_不恥下問

TOP