1234
返回列表 上一主題 發帖

[發問] 有條件的統計

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 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: 8Rank: 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

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

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

帖子
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
修改如下就必去計算欄位了
  1. Sub Ex()
  2.     Dim D As Object, Rng As Range, f As Variant
  3.     Set D = CreateObject("SCRIPTING.DICTIONARY") '設立字典物件
  4.     With Sheets("來源")
  5.         Set Rng = .[c2]    '設立儲存格物件
  6.         f = Application.Match(Sheets("統計").[b1].Text, .Rows(1), 0) 'f: 在來源中尋找統計的欄位
  7.         If IsError(f) Then MsgBox "統計的欄位不存在!!!": Exit Sub
  8.         Do While Rng <> ""        'Rng的值為空白時不執行 Do的迴圈
  9.            If Rng = Sheets("統計").Range("A2") Then D(.Cells(Rng.Row, f).Value) = D(.Cells(Rng.Row, f).Value) + 1
  10.             '        .[A2] ->Sheets("統計")[A2]      '字典物件(KEY)=ITEM + 1
  11.             Set Rng = Rng.Offset(1)  'Rng下移一列位
  12.         Loop
  13.     End With
  14.     With Sheets("統計").[B2:C2]
  15.         .Resize(.CurrentRegion.Rows.Count, 2) = ""
  16.         .Cells(1).Resize(D.Count) = Application.Transpose(D.KEYS)
  17.         .Cells(2).Resize(D.Count) = Application.Transpose(D.ITEMS)
  18.         .Resize(D.Count, 2).Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo
  19.     End With
  20.     Set D = Nothing
  21.     Set Rng = Nothing
  22. End Sub
複製代碼

TOP

am0251

帖子
65 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2012-5-21 
29#
發表於 2011-8-3 16:35 | 只看該作者
不好意思,GBKEE大大,可以解釋一下"SCRIPTING.DICTIONARY"的用法呢?這個我還沒學過,謝謝!
50 字節以內
不支持自定義 Discuz! 代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
30#
發表於 2011-8-3 16:52 | 只看該作者
回復 29# am0251


    http://forum.twbts.com/thread-20-1-1.html

TOP

        靜思自在 : 甘願做、歡喜受。
1234
返回列表 上一主題