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

alumi

Dim ary(1 To 4) As Integer
    ary(1) = 10
    ary(2) = 15
    ary(3) = 9
    ary(4) = 11
   
    Debug.Print WorksheetFunction.Min(Array(ary(2), ary(4)))
   目的: 調出 陣列 2~ 4 中, 的最小值
    上面是錯誤的程式碼,  只是回傳 11 , 而非 正確值 9
    程式碼雖然可以改成 Debug.Print WorksheetFunction.Min(Array(ary(2), ary(3), ary(4)))
    但卻無法適合於大型陣列中.
    是否有其他的寫法, 調中一維陣列中, 某一區段的極小值 ?

GBKEE

回復 1# alumi
上面是錯誤的程式碼,  只是回傳 11 , 而非 正確值 9
沒有錯啊 !
Debug.Print WorksheetFunction.Min(Array(ary(2), ary(4)))
ary(2)=15   ary(4)=11   那有 9.
試試  Debug.Print WorksheetFunction.Min(ary))

stillfish00

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

複製代碼

alumi

回復  alumi
上面是錯誤的程式碼,  只是回傳 11 , 而非 正確值 9
沒有錯啊 !
Debug.Print WorksheetFu ...
GBKEE 發表於 2012-10-27 07:05

    其實您說的沒錯.
    只是單純地想把 一些 Excel 功能, 直接 套入 VBA 來使用.
   例如:   
   debug.print WorkSheetFunction.Min(range(cells(5,"A") , cells(100, "A")))     ' 傳回 Cells (5 ~ 100 ,"A") 的最小值
   debug.print WorkSheetFunction.Min(ary) ' 雖然會傳回 陣列中的最小值, 是否 能夠指定 陣列中 "某一區間" 的最小值

   感謝您的回覆.

alumi

回復 3# stillfish00


    您的直覺方法，沒有問題．
　原先是在想，若有現成的函數可以直接拿來用，整個VBA 程式，會看起來比精簡．

GBKEE

回復 5# alumi
自訂函數

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xi As Integer, Ary(1 To 10) As Integer
   
4.     For xi = 1 To 10
   
5.         Ary(xi) = Int(100 * Rnd)       '亂數  
   
6.     Next
   
7.     MsgBox 區間值("Min", Ary, 5, 10)  ' Ary(5):Ary(10) 的區間
   
8. End Sub
   
9. Function 區間值(Max_Or_Min As String, 陣列 As Variant, 區間1 As Integer, 區間2 As Integer) As Long
   
10.    Dim xi As Integer, AR()
    
11.    ReDim AR(區間1 To 區間2)      '複製Ary(5):Ary(10) 的區間的陣列元素數
    
12.    For xi = 區間1 To 區間2
    
13.         AR(xi) = 陣列(xi)
    
14.     Next
    
15.     If UCase(Max_Or_Min) = "MAX" Then
    
16.         區間值 = WorksheetFunction.Max(AR)
    
17.     Else
    
18.         區間值 = WorksheetFunction.Min(AR)
    
19.     End If
    
20. End Function

複製代碼

alumi

回復 6# GBKEE

     感謝您花時間回覆，感恩～