[發問] VBA 搜尋資料列對應的最大值或最小值

帖子: 16
主題: 4
精華: 0
積分: 20
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 10
註冊時間: 2014-11-27
最後登錄: 2015-1-3

2^#

發表於 2014-12-3 22:45 | 顯示全部帖子

謝謝 owen06 及 stillfish00前輩的指導，不過小弟所希望的方式是可以由VBA程式自動匯入的, 但還是謝謝你們撥空指導, 讓我學到EXCEL不同的分析方法 ~ ^^

帖子: 16
主題: 4
精華: 0
積分: 20
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 10
註冊時間: 2014-11-27
最後登錄: 2015-1-3

3^#

發表於 2014-12-3 23:11 | 顯示全部帖子

回復 3# joey0415

謝謝前輩的指導~
由於小弟VBA資歷尚淺
是否可以請前輩撥空稍加說明用法及語法呢
以便小弟方便應用及查詢相關的資訊呢??

其中有幾行小弟不太了解的地方如下:
1.
Set rs = cn.Execute("select 班級,max(年紀) as 最大年紀,min(年級) as 最小年紀 from 某某表 group by 班級")
其中的『最大年紀』及『最小年紀』是要自己先輸入的嗎?
P.S.小弟的需求是希望G2:I4的儲存格都是VBA自動分析產生的

2.
For Each tt In rs.Fields '顯示表單名稱
請問tt所代表的是工作表的名稱嗎?

不好意思~~~
再麻煩前輩撥空指導了
感激不盡~~!!

帖子: 16
主題: 4
精華: 0
積分: 20
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 10
註冊時間: 2014-11-27
最後登錄: 2015-1-3

4^#

發表於 2014-12-11 21:15 | 顯示全部帖子

回復 junkwei
GBKEE 發表於 2014-12-4 07:01

真的很感謝GBKEE前輩的指導!!
這個code正是我要的功能!
vba果然功能強大...也看到好多沒看過的語法...0rz
但小弟研究前輩的code還是有些地方無法了解...上網查詢似乎也還是不太懂...
希望前輩可以不吝指導..
1. Set Rng = Range("iv1")
請問這樣定義的range是怎麼樣的range呢?? iv1 不是表示舊版excel的第一欄的最後一格嗎?

2. Range("a:a").AdvancedFilter xlFilterCopy, , Rng, True
請問a:a是怎麼樣的範圍呢??這行code的邏輯我想半天還是想不通...

3.請問為什麼code中要把Ar()矩陣先以轉置後的位置輸入篩選，再以轉置後的位置輸出呢???

不好意思如果有敘述不好的地方請多見諒
再麻煩前輩指導了~謝謝~!!

帖子: 16
主題: 4
精華: 0
積分: 20
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 10
註冊時間: 2014-11-27
最後登錄: 2015-1-3

5^#

發表於 2014-12-14 20:51 | 顯示全部帖子

回復 junkwei

Range("a:a").AdvancedFilter xlFilterCopy, , Rng, True
"a:a" -> A欄整欄
AdvancedF ...
GBKEE 發表於 2014-12-12 07:13

原來如此~~真的謝謝GBKEE版主的指導!!

關於您的code小弟尚有幾個問題想向您再確認一下:
1. 請問一開始的 Set Rng = Range("iv1") 是不是隨便指定一個range就可以了呢??
因為不是後面就被AdvancedFilter的結果取代掉了??

2.
         .Replace Rng.Cells(i), "=EX", xlWhole '各班級換置為錯誤值
         With .SpecialCells(xlCellTypeFormulas, xlErrors)
            .Value = Rng.Cells(i)             '錯誤值換置回為各班級
         End With
   這幾行的目的似乎是將各班級的年紀值挑出來後, 再對其取MAX跟MIN
   有爬到版主之前的文章對SpecialCells也都有類似的用法..
   但看了半天跟上網搜尋還是無法完全掌握正確的用法...
   想請問的第二個參數的 xlErrors是如何判定為錯誤的呢?  為什麼取代為"=EX"  就是錯誤值呢?
   xlCellTypeFormulas不是表示"使用公式的儲存格"嗎??

以上兩個問題再麻煩您撥空解惑了!!  謝謝~~~!

帖子: 16
主題: 4
精華: 0
積分: 20
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 10
註冊時間: 2014-11-27
最後登錄: 2015-1-3

6^#

發表於 2014-12-16 23:35 | 顯示全部帖子

回復 junkwei
"=EX" 如沒這公式傳回錯誤值 "#NAME?"

請詳看VBA 的說明
GBKEE 發表於 2014-12-15 07:10

感謝GBKEE 版主的說明
原來只要填入錯誤的公式讓他回傳錯誤值就可以了
如此可以在特殊的範圍裡作業
感覺這真的很實用
謝謝指導~~!