1234
返回列表 上一主題 發帖

[發問] 有條件的統計

gctsai

帖子
42 
主題
10 
精華
0 
積分
72 
點名
0  
作業系統
WIN 
軟體版本
XP 
閱讀權限
0 
註冊時間
2010-12-12 
最後登錄
2019-6-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-7-20 22:50 | 只看該作者

[發問] 有條件的統計

請問各位大大:
我有一個工作表如下(SHEET1)

我需要統計A公司的品名及數量如下(SHEET2)
2.JPG
要如何做呢?

1.jpg (23.72 KB)

1.jpg

收藏 分享

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
2#
發表於 2011-7-20 23:22 | 只看該作者
建議用樞鈕吧
Z.gif

TOP

AnitaHuang99

帖子
15 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
WINDOW 
軟體版本
Office 2003, 2010, 2016 
閱讀權限
20 
性別
女 
來自
TPE 
註冊時間
2011-6-28 
最後登錄
2023-4-25 

2020鼠年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇榮譽勳章論壇贊助勳章
3#
發表於 2011-7-21 10:15 | 只看該作者
如果只是要得到各別小計數, 建議可以試試用sumproduct把公司, 月份, 品名的條件放進去

TOP

gctsai

帖子
42 
主題
10 
精華
0 
積分
72 
點名
0  
作業系統
WIN 
軟體版本
XP 
閱讀權限
0 
註冊時間
2010-12-12 
最後登錄
2019-6-8 
4#
發表於 2011-7-21 20:30 | 只看該作者
謝謝chin15大大
我現在是用樞紐,但是存檔後檔案變的很大
所以我想如果用vba會不會檔案變的比較小
還有如果有兩個以上的條件呢
如 "A" 公司在 "1" 月份的品名數量呢?
PS.因為同樣的檔案有很多所以如果用VBA後再做個按鈕就可以使用很多個檔案了(不用每個檔案都做樞紐).

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2011-7-22 07:34 | 只看該作者
本帖最後由 GBKEE 於 2011-7-22 07:37 編輯

回復 4# gctsai
先學基本功  3樓提議的工作表函數SUMPRODUCT
圖一  SHEET1 (資料區)

圖二 SHEET2

數量的公式
B5=SUMPRODUCT((Sheet1!$A$2:$A$65525=$A$2)*(Sheet1!$B$2:$B$65525=$B$2)*(Sheet1!$C$2:$C$65525=$C$2)*(Sheet1!$D$2:$D$65535=A5))
B6=SUMPRODUCT((Sheet1!$A$2:$A$65525=$A$2)*(Sheet1!$B$2:$B$65525=$B$2)*(Sheet1!$C$2:$C$65525=$C$2)*(Sheet1!$D$2:$D$65535=A6))
B7=SUMPRODUCT((Sheet1!$A$2:$A$65525=$A$2)*(Sheet1!$B$2:$B$65525=$B$2)*(Sheet1!$C$2:$C$65525=$C$2)*(Sheet1!$D$2:$D$65535=A7))
B8=SUMPRODUCT((Sheet1!$A$2:$A$65525=$A$2)*(Sheet1!$B$2:$B$65525=$B$2)*(Sheet1!$C$2:$C$65525=$C$2)*(Sheet1!$D$2:$D$65535=A8))

TOP

gctsai

帖子
42 
主題
10 
精華
0 
積分
72 
點名
0  
作業系統
WIN 
軟體版本
XP 
閱讀權限
0 
註冊時間
2010-12-12 
最後登錄
2019-6-8 
6#
發表於 2011-7-24 20:00 | 只看該作者
謝謝GBKEE大大
1.因為只知道公司及月份而品名的名稱及種類無法知道(如可能會有增加鳳梨,龍眼之類的)
2.因為我目前有50個類似的檔案,不想一個個檔案去做,所以才想說用vba的

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2011-7-24 20:43 | 只看該作者
回復 6# gctsai
VBA程序是要量身套製的,所以附黨上來規定條件要放那裡說明白, 回答才會明確.

TOP

gctsai

帖子
42 
主題
10 
精華
0 
積分
72 
點名
0  
作業系統
WIN 
軟體版本
XP 
閱讀權限
0 
註冊時間
2010-12-12 
最後登錄
2019-6-8 
8#
發表於 2011-7-26 16:02 | 只看該作者
1.大大我的問題是要如何用vba做(如附檔)
2.要如何從來源的工作頁中統計出"三洋"公司的序號出現的次數
3.其中條件"三洋"是不用顯示的
4.因為有很多檔案如果用樞紐分析的話要每一個檔案都做,重點是檔案會變很大
text.rar (4.68 KB)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2011-7-27 08:28 | 只看該作者
回復 8# gctsai
試試看
  1. Sub Ex()
  2.     Dim D As Object, Rng As Range
  3.     Set D = CreateObject("SCRIPTING.DICTIONARY") '設立字典物件
  4.     Set Rng = Sheets("來源").[A2]                                       '設立儲存格物件
  5.     With Sheets("統計")
  6.         Do While Rng <> ""        'Rng的值為空白時不執行 Do的迴圈
  7.             If Rng = .[A2] Then D(Rng.Offset(, 1).Value) = D(Rng.Offset(, 1).Value) + 1
  8.             '        .[A2] ->Sheets("統計")[A2]      '字典物件(KEY)=ITEM + 1
  9.             Set Rng = Rng.Offset(1)  'Rng下移一列位
  10.         Loop
  11.         With .[B2:C2]
  12.             .Cells(1).Resize(D.Count) = Application.Transpose(D.KEYS)
  13.             .Cells(2).Resize(D.Count) = Application.Transpose(D.ITEMS)
  14.             .Resize(D.Count, 2).Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo
  15.         End With
  16.     End With
  17.     Set D = Nothing
  18.     Set Rng = Nothing
  19. End Sub
複製代碼

TOP

gctsai

帖子
42 
主題
10 
精華
0 
積分
72 
點名
0  
作業系統
WIN 
軟體版本
XP 
閱讀權限
0 
註冊時間
2010-12-12 
最後登錄
2019-6-8 
10#
發表於 2011-7-27 20:37 | 只看該作者
謝謝GBKEE大大
已經可以用了,而且還可以直接把條件(如"三洋")打在vba內

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
1234
返回列表 上一主題