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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

21^# 跳轉到 »

發表於 2011-7-31 09:02 | 只看該作者

你把Private Sub Ex()
前面的Private 拿掉
就可在工作列~巨集內看到它
建立巨集時對話方塊存放位置就選"個人巨集活頁簿"
這樣開每個檔案都會隨之開啟
存增益集是另存，選"xla",存好後在增益集中載入

TOP

gctsai

等待驗證會員

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

22^#

發表於 2011-7-31 11:07 | 只看該作者

本帖最後由 gctsai 於 2011-7-31 11:15 編輯

你把Private Sub Ex()
前面的Private 拿掉
就可在工作列~巨集內看到它
建立巨集時對話方塊存放位置就選" ...
oobird 發表於 2011-7-31 09:02

謝謝大大,可是如果把"前面的Private 拿掉"的話那還可以自動更新嗎?

增益集不知道要選那一個??

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

23^#

發表於 2011-7-31 11:18 | 只看該作者

Private表示 Sub 程序只在宣告它之模組裏的程序所使用。
與自動更新毫無關係。

TOP

gctsai

等待驗證會員

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

24^#

發表於 2011-8-1 22:47 | 只看該作者

大大請問一下為什麼把"條件"從[A2]移到[C2],結果序號[E2]就變成了商品品名[G2]

text.rar (12.51 KB)

TOP

GBKEE

超級版主 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兔年全勤獎章

25^#

發表於 2011-8-2 17:39 | 只看該作者

回復 24# gctsai
程序裡請加上紅字部分
f = Application.Match(.[b1].Text, Sheets("來源").Rows(1), 0) 'f: 在來源中尋找統計的欄位
f = f - 2 '你A欄從移到C欄 ***** Rng.Offset會改變
If Rng = .Range("A2") Then D(Rng.Offset(, f- 1).Value) = D(Rng.Offset(, f - 1).Value) + 1

TOP

gctsai

等待驗證會員

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

26^#

發表於 2011-8-2 20:37 | 只看該作者

回復 25# GBKEE

從 A欄移到C欄要加 f=f-2
那從A欄移到E欄是不是要加 F=F-4
也就是如果移多少欄就要減回來嗎??

TOP

sonynetmd

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 女
註冊時間: 2010-12-23
最後登錄: 2011-8-3

27^#

發表於 2011-8-3 10:01 | 只看該作者

請問各位大大, 如果計算"數量"可否不是利用等於號(=) 絕對值 {0,1,2...}, 而改為大於/小於可以嗎?
小學生 sony

TOP

GBKEE

超級版主 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兔年全勤獎章

28^#

發表於 2011-8-3 15:05 | 只看該作者

回復 26# gctsai
修改如下就必去計算欄位了

Sub Ex()
Dim D As Object, Rng As Range, f As Variant
Set D = CreateObject("SCRIPTING.DICTIONARY") '設立字典物件
With Sheets("來源")
Set Rng = .[c2] '設立儲存格物件
f = Application.Match(Sheets("統計").[b1].Text, .Rows(1), 0) 'f: 在來源中尋找統計的欄位
If IsError(f) Then MsgBox "統計的欄位不存在!!!": Exit Sub
Do While Rng <> "" 'Rng的值為空白時不執行 Do的迴圈
If Rng = Sheets("統計").Range("A2") Then D(.Cells(Rng.Row, f).Value) = D(.Cells(Rng.Row, f).Value) + 1
' .[A2] ->Sheets("統計")[A2] '字典物件(KEY)=ITEM + 1
Set Rng = Rng.Offset(1) 'Rng下移一列位
Loop
End With
With Sheets("統計").[B2:C2]
.Resize(.CurrentRegion.Rows.Count, 2) = ""
.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
Set D = Nothing
Set Rng = Nothing
End Sub