返回列表 上一主題 發帖

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

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

本帖最後由 VBALearner 於 2016-7-31 23:53 編輯

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

  3. for i = 1 to 50
  4. total(i) = application.worksheetfunction.sum(range(cells(i,1),cells(i,10)))
  5. next

  6. sorting....%#$?!
  7. index of top 20?!
複製代碼
或是有其他更好的方式?!

回復 2# kaiclous

試用了其程式碼之後 我有幾個問題想再請教

第一個就是application.transpose在裡面的功能是甚麼? 只是單純貼上而已嗎? 我很少看到這個功能...
第二個是application.evaluate是甚麼意思? 我找了一些文章 還是不太清楚他的功能 只知道好像是個蠻好用的語法..?!
第三個就是原本的問題,我還是無法得知在原本的資料序列裡,排行前幾的資料編號是那些,這只是單純排序資料數值而已,還請k大幫忙再看仔細我的問題,謝謝~

TOP

本帖最後由 VBALearner 於 2016-8-3 00:18 編輯

回復 5# ML089

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

TOP

本帖最後由 VBALearner 於 2016-8-3 00:19 編輯

回復 6# 准提部林

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

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

TOP

回復 9# 准提部林

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

TOP

回復 9# 准提部林

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

TOP

回復 12# 准提部林

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

TOP

        靜思自在 : 修行要繫緣修心,藉事練心,隨處養心。
返回列表 上一主題