[發問] 有關Excel VBA陣列使用方式...

VBALearner

Excel VBA的問題
請問如果我有個一維陣列
裡面有10個數字分別對應陣列(1~10)
假設我今天要排序陣列中數值大到小
那我要如何知道排名前5大數值的原始標籤(就是原本的1~10排序被打亂後 如何呼叫)?
感謝回答

1. option explicit
   
2. dim total(50) as variant
   
3. 
   
4. for i = 1 to 50
   
5. total(i) = application.worksheetfunction.sum(range(cells(i,1),cells(i,10)))
   
6. next
   
7. 
   
8. sorting....%#$?!
   
9. index of top 20?!

複製代碼

或是有其他更好的方式?!

VBALearner

回復 12# 准提部林

是是! 我慢慢累積琢磨後再來向您請教，感謝您OvO

准提部林

回復 11# VBALearner


   
程式方法少人用, 一定有它的道理,
微軟會提供不同方法去處理類似需求, 也有它的道理,
所以, 沒有好不好用問題, 只有適不適用?
VBA靠經驗, 慢慢摸, 慢慢磨, 花的時間夠多, 對于資料的處理, 其實就那幾個方法吧!

VBALearner

回復 9# 准提部林

咦...這麼看來...Evaluate其實很好用欸?!!
application.worksheetfunction都免叫了
平常用習慣的工作表函數都直接用Evaluate呼叫也行，是吧?!(不科學阿xD~~~)
可是好像沒有很多人在用Evaluate，市面上的書都沒介紹它...
那想請問大大，除了上述功能外，有甚麼Evaluate常用的用法嗎OwO?
謝謝指教!

VBALearner

回復 9# 准提部林

喔喔完全懂了! 感謝您仔細地回答!!!
原來array還有橫式跟直式的區別...我以為就只是存在記憶體裡面的資料而已，我愛用甚麼形狀貼上就用什麼形狀貼上......恩~總之感謝!

准提部林

application.transpose
為〔轉置〕之用，原設array陣列為〔橫式〕，須轉置一次才能以〔直式-由上而下〕貼入欄位

application.evaluate
用來將〔文字字串〕的〔計算式〕，以工作表函數方式直接計算出其結果，
例如：MsgBox Application.Evaluate("=A1>A2")
因範例題中含〔文字〕的比較大小，VBA與公式的比較結果是不一樣的，
為了達到VBA排序的結果能與工作表排序結果一致，所以利用了Evaluate，
若是〔純數值〕的比較，直接使用 a>B 即可。

VBALearner

回復 6# 准提部林

我會用sorting功能 但是我的資料有標籤號碼 我要排序完後還能讀取相對應的標籤號碼
而且我同時處理多種資料
所以不想貼到worksheet上面處理
然後剛樓上提到的方法我之前也沒想過xD
目的是要找多種資料排名前100大的資料交集的標籤號碼

另外，我可以問您application.transpose的問題嗎? 他好像只是單純貼上的功能?!!
還有application.evaluate，這好像有很多功能....? 其中一種好像是可以把字串變數值? 還有其他...? 不太懂
還請賜教!

VBALearner

回復 5# ML089

喔喔感謝您!!
把編碼加在後面的方法真是太聰明了!!!

准提部林

EXCEL本身的排序功能最好用, 也適合大部份的資料型態(尤其是多欄位的資料),
為何不用它???

ML089

回復 3# VBALearner

如何知道排名前5大數值的原始標籤(就是原本的1~10排序被打亂後 如何呼叫)?

可以
1. 使用2個一維陣列，一個紀錄原始標籤(或順位)，一個紀錄資料陣列
2. 使用2維陣列，一維紀錄原始標籤(或順位)，另一維紀錄資料陣列
3. 或原始資料與原始標籤合併，
例如  
1  33 合併為 33001
2  11 合併為 11002
3  44 合併為 44003
排序後取資料後3碼就是原始標籤(或順位)