有條件的統計 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 有條件的統計

1 234 下一頁

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

[發問] 有條件的統計

超級版主 Rank: 8 Rank: 8

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

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

15^# 跳轉到 »

發表於 2011-7-29 23:49 | 只看該作者

回復 13# gctsai

我想你是程式碼放錯模組吧!
注意GBKEE提示該程式碼必須置放在來源工作表模組內

學海無涯_不恥下問

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

14^#

發表於 2011-7-29 23:22 | 只看該作者

改用Worksheet_Calculate事件試試

等待驗證會員

帖子: 42
主題: 10
精華: 0
積分: 72
點名: 0
作業系統: WIN
軟體版本: XP
閱讀權限: 0
註冊時間: 2010-12-12
最後登錄: 2019-6-8

13^#

發表於 2011-7-29 22:44 | 只看該作者

大大我在"來源"增加了一列資料如下
A B C
三洋 D25-MOTO NOKIA
可是"統計"也沒有自動再計算一次,而是要在執行一次巨集後才會從新計算

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2011-7-29 06:32 | 只看該作者

回復 11# gctsai
使用工作表的預設事件Worksheet_Change,這是你附件Sheets("來源")的程式碼.

Private Sub Worksheet_Change(ByVal Target As Range)
Ex
End Sub
Private Sub Ex()
Dim D As Object, Rng As Range
Set D = CreateObject("SCRIPTING.DICTIONARY") '設立字典物件
Set Rng = Sheets("來源").[A2] '設立儲存格物件
With Sheets("統計")
Do While Rng <> "" 'Rng的值為空白時不執行 Do的迴圈
If Rng = .[A2] Then D(Rng.Offset(, 1).Value) = D(Rng.Offset(, 1).Value) + 1
' .[A2] ->Sheets("統計")[A2] '字典物件(KEY)=ITEM + 1
Set Rng = Rng.Offset(1) 'Rng下移一列位
Loop
With .[B2:C2]
.Cells(1).Resize(D.Count) = Application.Transpose(D.KEYS)
.Cells(2).Resize(D.Count) = Application.Transpose(D.ITEMS)
.Resize(D.Count, 2).Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo
End With
End With
Set D = Nothing
Set Rng = Nothing
End Sub

複製代碼

等待驗證會員

帖子: 42
主題: 10
精華: 0
積分: 72
點名: 0
作業系統: WIN
軟體版本: XP
閱讀權限: 0
註冊時間: 2010-12-12
最後登錄: 2019-6-8

11^#

發表於 2011-7-28 22:55 | 只看該作者

大大另外如果我想要在資料有變更或增加時自動更新結果呢?

等待驗證會員

帖子: 42
主題: 10
精華: 0
積分: 72
點名: 0
作業系統: WIN
軟體版本: XP
閱讀權限: 0
註冊時間: 2010-12-12
最後登錄: 2019-6-8

10^#

發表於 2011-7-27 20:37 | 只看該作者

謝謝GBKEE大大
已經可以用了,而且還可以直接把條件(如"三洋")打在vba內

超級版主 Rank: 8 Rank: 8

帖子: 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
試試看

Sub Ex()
Dim D As Object, Rng As Range
Set D = CreateObject("SCRIPTING.DICTIONARY") '設立字典物件
Set Rng = Sheets("來源").[A2] '設立儲存格物件
With Sheets("統計")
Do While Rng <> "" 'Rng的值為空白時不執行 Do的迴圈
If Rng = .[A2] Then D(Rng.Offset(, 1).Value) = D(Rng.Offset(, 1).Value) + 1
' .[A2] ->Sheets("統計")[A2] '字典物件(KEY)=ITEM + 1
Set Rng = Rng.Offset(1) 'Rng下移一列位
Loop
With .[B2:C2]
.Cells(1).Resize(D.Count) = Application.Transpose(D.KEYS)
.Cells(2).Resize(D.Count) = Application.Transpose(D.ITEMS)
.Resize(D.Count, 2).Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo
End With
End With
Set D = Nothing
Set Rng = Nothing
End Sub

複製代碼

等待驗證會員

帖子: 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)

超級版主 Rank: 8 Rank: 8

帖子: 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程序是要量身套製的,所以附黨上來規定條件要放那裡說明白, 回答才會明確.

等待驗證會員

帖子: 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的

靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -

1 234 下一頁

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