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

帖子: 7
主題: 2
精華: 0
積分: 50
點名: 0
作業系統: win
軟體版本: office
閱讀權限: 20
性別: 男
註冊時間: 2016-7-19
最後登錄: 2016-11-29

2^#

發表於 2016-8-1 16:55 | 只看該作者

網路上有說明 http://blog.xuite.net/smile1000mile/blog/95167875-EXCEL+VBA%EF%BC%8E%E5%9C%A8%E7%A8%8B%E5%BC%8F%E7%A2%BC%E4%B8%AD%E5%88%A9%E7%94%A8%E3%80%94%E9%99%A3%E5%88%97%E3%80%95%E9%80%B2%E8%A1%8C%E8%B3%87%E6%96%99%E7%9A%84%E3%80%94%E6%8E%92%E5%BA%8F%E3%80%95

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

3^#

發表於 2016-8-1 21:47 | 只看該作者

回復 2# kaiclous

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

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

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-2-26

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 2016-8-2 16:39 | 只看該作者

本帖最後由 lpk187 於 2016-8-2 16:47 編輯

回復 3# VBALearner

1.application.transpose為工作表函數：TRANSPOSE 函數會將儲存格之垂直範圍以水平範圍的格式傳回，詳見Excel說明，常見功能
2.詳見VBE說明 Application.Evaluate 方法

版主 Rank: 7 Rank: 7 Rank: 7

ML089

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^#

發表於 2016-8-2 19:48 | 只看該作者

回復 3# VBALearner

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

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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

6^#

發表於 2016-8-2 20:45 | 只看該作者

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

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

7^#

發表於 2016-8-3 00:07 | 只看該作者

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

回復 5# ML089

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

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

8^#

發表於 2016-8-3 00:10 | 只看該作者

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

回復 6# 准提部林

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

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

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

9^#

發表於 2016-8-3 10:12 | 只看該作者

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

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

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

10^#

發表於 2016-8-3 11:15 | 只看該作者

回復 9# 准提部林

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