返回列表 上一主題 發帖

VBA & WorkSheetFunction.min 調出陣列極小值

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2012-10-27 08:44 | 顯示全部帖子
Debug.Print WorksheetFunction.Min(Array(ary(2), ary(4)))
   目的: 調出 陣列 2~ 4 中, 的最小值   
...
alumi 發表於 2012-10-27 00:40

最直覺的方法...
  1.     Dim i, minValue As Integer
  2.     minValue = ary(2)
  3.     For i = 2 To 4
  4.         If ary(i) < minValue Then minValue = ary(i)
  5.     Next i
複製代碼

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題