帖子: 23
主題: 10
精華: 0
積分: 85
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-9-11
最後登錄: 2022-3-10

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-11-22 18:31 | 只看該作者

[發問] 篩選後加總

請問如何篩選出，材質=A36，規格為RH為開頭的總重，並把符合材質和規格的總重加總呢???

篩選後加總.rar (5.14 KB)

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

12^#

發表於 2023-3-27 14:42 | 只看該作者

本帖最後由 Andy2483 於 2023-3-27 14:49 編輯

回復 1# 0939875756

謝謝前輩發表此主題與範例
後學藉此主題測試字典的特性,學習到很多知識,後學VBA的解決方案如下,請前輩參考
謝謝論壇,謝謝各位前輩

執行前:

執行結果:

'字典裡的陣列需要變數盛裝出來編輯,再放回字典,才有效
Option Explicit
Sub TEST()
Dim Y, i&, j&, 陣列()
Set Y = CreateObject("Scripting.Dictionary")
Set Y(1) = Range([1B!I1], [1B!A1].End(xlDown))
Y(2) = Y(1): Y(5) = 1: 陣列 = Y(2)
For i = 2 To UBound(陣列)
If 陣列(i, 4) Like "RH*" And 陣列(i, 5) = "A36" Then
   Y(5) = Y(5) + 1
   For j = 1 To UBound(陣列, 2)
      陣列(Y(5), j) = 陣列(i, j)
   Next
   Y(0) = Y(0) + 陣列(Y(5), 8)
End If
Next
Y(2) = 陣列
Workbooks.Add
[A1].Resize(Y(5), UBound(Y(2), 2)) = Y(2)
Cells(Y(5) + 1, 3) = "小計"
Cells(Y(5) + 1, 8) = Y(0)
Cells.Columns.AutoFit
Set Y = Nothing: Erase 陣列
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

aa7551

中學生 Rank: 2

帖子: 116
主題: 5
精華: 0
積分: 190
點名: 0
作業系統: xp
軟體版本: office 2002
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-17
最後登錄: 2024-10-27

11^#

發表於 2010-12-9 18:53 | 只看該作者

受教了,沒有合用的工具,想辦法組合....思考方向太侷限,要加強學習

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

發表於 2010-12-8 23:08 | 只看該作者

回復 9# aa7551

不指定用甚麼函數試試
=SUMPRODUCT((LEFT($D$2:$D$23,2)="RH")*($E$2:$E$23="A36"),$H$2:$H$23)

SUMIF加輔助欄
如:J2=LEFT(D2,2)&E2向下複製
=SUMIF(J2:J23,"RHA36",H2:H23)

學海無涯_不恥下問

TOP

aa7551

中學生 Rank: 2

帖子: 116
主題: 5
精華: 0
積分: 190
點名: 0
作業系統: xp
軟體版本: office 2002
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-17
最後登錄: 2024-10-27

9^#

發表於 2010-12-8 22:16 | 只看該作者

gong大大,雙條件加輔助x欄,可否增加說明,不是很了解意思

TOP

gong

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 455
主題: 8
精華: 1
積分: 480
點名: 0
作業系統: WINS home
軟體版本: OFFICE XP
閱讀權限: 100
性別: 男
來自: 平鎮
註冊時間: 2010-5-1
最後登錄: 2015-1-22

論壇貢獻勳章

8^#

發表於 2010-11-22 22:39 | 只看該作者

sumif()用在雙條件上以上,可以加一輔助欄
輔助x欄=a1&b1&c1&d1
=sumif(x:x,...,...)

知之為知之，不知為不知，誠實也！

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2010-11-22 21:56 | 只看該作者

本帖最後由 Hsieh 於 2010-11-22 21:59 編輯

2007版有SUMIFS
=SUMIFS(H:H,D:D,"RH*",E:E,"=A36")
其實用自動篩選就成啦

學海無涯_不恥下問

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2010-11-22 21:49 | 只看該作者

本帖最後由 oobird 於 2010-11-22 21:53 編輯

用公式可用sumproduct或lookup運算，雙條件不能用sumif.
你用的是sum陣列，也是可以的，自己做吧！
不過不建議，看這帖：http://forum.twbts.com/thread-1962-1-1.html

TOP

0939875756

中學生 Rank: 2

帖子: 23
主題: 10
精華: 0
積分: 85
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-9-11
最後登錄: 2022-3-10

5^#

發表於 2010-11-22 21:17 | 只看該作者

本帖最後由 Hsieh 於 2010-11-22 21:53 編輯

那是否能用sumif的方式做出來呢???

因為我只會用{=SUM(IF($E$2:$E$23=E30,IF($D$2:$D$23=F30,$H$2:$H$23,0),0))}

把符合A36 和 RH300X300X10X15X7754 這2個值算出來

是否能把符合A36和以RH開頭的總值以SUMIF的方式算出來呢??

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2010-11-22 20:23 | 只看該作者

你的問題是"篩選後加總", 不想要自動篩選還有進階篩選呀！

TOP