GBKEE

¦^´_ 1# blueteddy

1. Sub test()
   
2.     Dim rbc6(5) As Double
   
3.      rbc6(0) = 5
   
4.      rbc6(1) = 6
   
5.      rbc6(2) = 3
   
6.      rbc6(3) = 111
   
7.      rbc6(4) = 2
   
8.      rbc6(5) = 1
   
9.     Ex(rbc6)
   
10. End Sub
    
11. Sub Ex(MyArray() As Double)
    
12.     Dim Ar, i As Integer
    
13.     Ar = MyArray
    
14.     For i = 0 To UBound(Ar)
    
15.         MyArray(i) = Application.WorksheetFunction.Small(Ar, i + 1)
    
16.     Next
    
17. End Sub

½Æ»s¥N½X