c_c_lai

¦^´_ 2# Hsieh
¦^´_ 1# PJChen
¤£¦n·N«ä¡A­É¥Î Hsieh ª©¤jªº»yªkµy¥[­×¹¢¡G

1. Sub Test()
   
2.     Dim ans As Variant
   
3.    
   
4.     ans = RankData(Range("B2:B11"), True)
   
5.     MsgBox "³Ì¤j­È¬° " & ans
   
6.     ans = RankData(Range("B2:B11"), False)
   
7.     MsgBox "³Ì¤p­È¬° " & ans
   
8. End Sub
   
9. 
   
10. Function RankData(Rng As Range, asc As Boolean) As Variant
    
11.     Dim rn As Variant
    
12.    
    
13.     For Each rn In Rng
    
14.         If asc = True Then
    
15.             RankData = IIf(RankData = "", rn, IIf(rn > RankData, rn, RankData))
    
16.         Else
    
17.             RankData = IIf(RankData = "", rn, IIf(rn < RankData, rn, RankData))
    
18.         End If
    
19.     Next
    
20. End Function

½Æ»s¥N½X