Min

　暱稱: 閔

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-5-3 20:54 | 只看該作者

[分享] 陣列排序方式

Sub TOP_Value()
'排序
Dim TT As Variant

TT = Array(5, 4, 2, 1, 2)

'由大到小排序
MsgBox Application.WorksheetFunction.Large(TT, 1)
MsgBox Application.WorksheetFunction.Large(TT, 2)
MsgBox Application.WorksheetFunction.Large(TT, 3)
MsgBox Application.WorksheetFunction.Large(TT, 4)
MsgBox Application.WorksheetFunction.Large(TT, 5)

'由小到大排序
MsgBox Application.WorksheetFunction.Small(TT, 1)
MsgBox Application.WorksheetFunction.Small(TT, 2)
MsgBox Application.WorksheetFunction.Small(TT, 3)
MsgBox Application.WorksheetFunction.Small(TT, 4)
MsgBox Application.WorksheetFunction.Small(TT, 5)
End Sub

樓主熱帖

am0251

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

14^#

發表於 2011-6-19 17:01 | 只看該作者

非常感謝各位前輩們的細心解釋,總算有個概念,不過真的要熟練的話,可惜還要花很多時間;不過,還可以介紹一下有什麼的情況會最多用到陣列的例子呢?我有在別的網站爬過一下,是否有大量同一種類的資料運算時用呢?謝謝!!

50 字節以內
不支持自定義 Discuz! 代碼

TOP

ryu0417

中學生 Rank: 2

帖子: 11
主題: 0
精華: 0
積分: 130
點名: 0
作業系統: XP
軟體版本: Offices 2003
閱讀權限: 20
註冊時間: 2010-10-21
最後登錄: 2019-3-8

13^#

發表於 2010-12-16 16:52 | 只看該作者

雖然版主跟前輩們解釋了很多也很精細
但是還是一頭霧水~ 看來要多練練才行...

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2010-5-7 07:56 | 只看該作者

回復 11# Min

感謝各位版主的用心
只是當新手們在拜讀板主們的帖子時
每位板主的文字敘述
都會有不同的解讀或是想像空間
承如閔版主最後一句話..就真的是我們初學者需要很注意的地方..
至於HS版主則是以中/高級階層有了解邏輯觀念的人去闡述的..
謝謝版主們的回覆

TOP

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

11^#

發表於 2010-5-6 21:24 | 只看該作者

呵呵呵~ 真的要像Hsieh兄所說要去修語文課程了~
GBKEE兄有提到! 陣列的範圍是可以指定的!
就由簡單的一維陣列來舉例
一般而言 dim arr() 這樣的寫法是指沒有範圍及型態限制但範圍是由預設的0開始
那如果是寫dim arr(50 to 100) as string 這樣的寫法是指範圍由50開始算起直到100 資料型態限制為文字型態

也許會有朋友認為那是不是直接寫dim arr()這樣就好...
但我個人認為初學過程要越嚴緊越好! 因為越寬鬆越有出錯機會(我指的出錯是流程出錯並非語法出錯~)

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2010-5-6 20:21 | 只看該作者

回復 9# Hsieh

板主
您真的很用心很認真
其實當您寫到3/4維陣列時當下的表示方式真的是一頭霧水...
不過當您花時間在回覆這封主題時
所寫出來的陣列就相當請楚了
只是當時想說不知您可以寫成這樣的方式嗎?
結果
看到回帖
正是想要表達的意思
謝謝!!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 261
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2010-5-6 19:19 | 只看該作者

回復 8# PD961A

我所說的是多維陣列的概念大致就像排隊集合一樣
只是當你在寫成陣列與法時是用他的INDEX表示
如Dim Ar(0 to 10,0 to 20,0 to 10,0 to 30)
這樣就宣告了一個4維陣列
只訂出這陣列中第一個元素就寫成
Ar(0,0,0,0)
最後一個元素就是Ar(10,20,10,30)
第一維有11個元素
第二維有21個元素
第三維有11個元素
第四維有11個元素

Sub nn()
Dim Ar(11, 21, 11, 31)
For i = 0 To 10
For j = 0 To 20
   For x = 0 To 10
      For y = 0 To 30
            Ar(i, j, x, y) = i + j + x + y: Next: Next: Next: Next
For i = 0 To 10
For j = 0 To 20
   For x = 0 To 10
      For y = 0 To 30
            MsgBox "Ar(" & i & "," & j & "," & x & "," & y & ")=" & i & "+" & j & "+" & x & "+" & y & "=" & Ar(i, j, x, y): Next: Next: Next: Next

End Sub

學海無涯_不恥下問

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2010-5-6 18:54 | 只看該作者

回復 6# Hsieh

板主您的淺顯易懂表達方式..在寫到3維及4維後..反而讓人不知所云..

閔板主敘述就一維陣列的型態
dim arr()
arr(0) arr(1) arr(2)....arr(65536)
但須注意的是array預設是由0開始!

二維陣列更是簡單 excel的cells本身就是二維
cells(1,1) 就如同arr(0,0)
cells(123,321) 就如同arr(123,321)的回答
和gbkee版主所說的都一樣...
所以應該是階級還不到寫出3維或4維的陣列
因此沒辦法想像
還是謝謝您!

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2010-5-6 17:54 | 只看該作者

回復 4# Min

就重一維陣列的型態開始說起...
以excel cells來說一維陣列就像是只有一欄的資料型態 ex.只有A1~A65536

如果:A = [A1:A65536] 整欄
A是(1 To 65536 , 1) 的二維陣列
如果:A = [A1:IV1] 整列
A是(1 , 1 To 256 ) 的二維陣列

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 261
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2010-5-6 13:08 | 只看該作者

本帖最後由 Hsieh 於 2010-5-7 21:54 編輯

回復 5# PD961A

淺顯易懂的文字敘述?
那各位版主就先來去修語文課程
把語言精煉後再來發文
開開玩笑啦!
陣列:
相信對一維陣列的話大家比較容易接受
就一堆資料規則的放入一排內就是一維陣列
以實物舉例
大家有上過學,學校有朝會或任何全校到操場集合的經驗吧!
當要各班整隊時
班長說排頭伍為準
這一伍的成員就是一維陣列的元素
我們把這排頭底下要對齊他的這些人
就是二維陣列的第二維的元素了
再把集合好的班級(二維陣列)
帶到操場時
操場上會分年級站好
每一個年級就會有好多班
這一個年級就是多個二維陣列的集合(三維陣列)
每個學校會有多個年級
那集合這麼多年級(三維陣列)就成了四維陣列
這樣對陣列的解釋不知是否比較實體化
比較容易了解呢?

Sub nn()
Dim Ar(3, 10, 10, 4) '定義Ar為4維陣列:每隊4排,每排10人,每年級有10班,共有3個年級(年級,班,人,排)
k = 42048
mystr = Chr(k)
For y = 0 To 2
For x = 0 To 9
For i = 0 To 3
For j = 0 To 9
Do Until mystr <> "?"
k = k + 1
mystr = Chr(k)
Loop
Ar(y, x, j, i) = Chr(k): k = k + 1: mystr = Chr(k): Next: Next: Next: Next
For y = 0 To 2
For x = 0 To 9
For i = 0 To 3
For j = 0 To 9
Cells(r + 1, 1) = y + 1 & "年" & x + 1 & "班第" & i + 1 & "排第" & j + 1 & "位同學姓:": _
Cells(r + 1, 2) = Ar(y, x, j, i): r = r + 1: _
Next: Next: Next: Next
End Sub

複製代碼

學海無涯_不恥下問

TOP