返回列表 上一主題 發帖

[發問] 三維陣列找最大值

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-5-15 17:59 | 只看該作者

[發問] 三維陣列找最大值

一個三維陣列PR(1 To 3, 1 To 30)
[ 5, 6, 2, 15, 11, ....]
[10, 21, 17, 5, 25, ...]
[11, 14, 8, 21, 24, ...]
該怎麼找PR(1, ), PR(2, ), PR(3, )的最大值?
收藏 分享

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-23 
2#
發表於 2018-5-19 20:58 | 只看該作者
Sub UTest()
Dim PR(1 To 3, 1 To 30), MX(1 To 3)
For i = 1 To 3
For j = 1 To 30
    PR(i, j) = Int(Rnd * 1000)
    If PR(i, j) > MX(i) Then MX(i) = PR(i, j)
Next
Next
MsgBox Join(MX, "_")
End Sub

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
3#
發表於 2018-5-20 20:32 | 只看該作者
回復 1# acdx
底下是二維陣列：
PR(1 To 3, 1 To 30)

雖不曾寫過三維陣列，但三維應該像如下表示式：
PR(1 To 3, 1 To 30, 1 To 10)

TOP

quickfixer

帖子
154 
主題
1 
精華
0 
積分
200 
點名
29  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-11-24 
4#
發表於 2018-5-20 21:23 | 只看該作者
本帖最後由 quickfixer 於 2018-5-20 21:32 編輯

  1. '自己把第7行的資料來源改成pr()2維陣列
  2. Sub test()
  3.     Dim findmax As Object, mx(1 To 3)
  4.     Set findmax = CreateObject("System.Collections.ArrayList")
  5.     For i = 1 To 3
  6.         For j = 1 To 30
  7.             findmax.Add Cells(i, j).Value
  8.         Next j
  9.         findmax.Sort: findmax.Reverse
  10.         mx(i) = findmax.Item(0)
  11.         findmax.Clear
  12.     Next i
  13.     MsgBox Join(mx, "_")
  14.     Set findmax = Nothing
  15. End Sub
複製代碼

TOP

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
5#
發表於 2018-5-24 14:32 | 只看該作者
回復 4# quickfixer


這寫法是我從沒嘗試過的  讓我開眼界了!
請問findmax.Sort: findmax.Reverse 是什麼意思?
感謝

TOP

nolookyou

帖子
65 
主題
18 
精華
0 
積分
71 
點名
0  
作業系統
WINXP、7、10、SERVER2012 
軟體版本
Office 2010-2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-27 
最後登錄
2021-10-7 
6#
發表於 2018-5-24 15:17 | 只看該作者
回復 5# acdx


    這邊有詳細的ArrayList解說與範例(英文)
    http://www.snb-vba.eu/VBA_Arraylist_en.html#L_11.1

TOP

quickfixer

帖子
154 
主題
1 
精華
0 
積分
200 
點名
29  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-11-24 
7#
發表於 2018-5-24 16:31 | 只看該作者
本帖最後由 quickfixer 於 2018-5-24 16:42 編輯

回復 5# acdx

從01 S大,那邊學來的,他常常有一些很特别的寫法出現
sort是從小到大排序
Reverse是把排序好的,改成從大到小排序
這樣item(0)就固定是最大值
資料少還沒什麼感覺,資料多時這個方式超快
其實資料不多,可以用worksheetfunction.max代替,程式比較短,速度一樣快

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題