c_c_lai

¦^´_ 1# 317
´£¨Ñ©p°Ñ¦Ò»P´ú¸Õ¡A±Æ§Ç¹ï¶H¬° ©±¾Q¦WºÙ¡BÃþ§O¡B°Ó«~¦WºÙ¡B¾P°âª÷ÃBµ¥¶¶§Ç¡C

1. Option Base 1
   
2. Option Explicit
   
3. 
   
4. ' -------------------------------------------
   
5. '    A3 = ªÅ¥ÕÄæ
   
6. '    B3 = §Ç¸¹
   
7. '    C3 = ©±¾Q¦W¡G  ¤¤¤s°Ï¡B¥j«F°Ï µ¥
   
8. ' * D3 = ©±¾Q¦WºÙ  ±Æ§Ç¤è¦¡¡G  (»¼¼W)
   
9. ' * E3 = Ãþ§O      ±Æ§Ç¤è¦¡¡G      (»¼¼W)
   
10. ' * F3 = °Ó«~¦WºÙ  ±Æ§Ç¤è¦¡¡G  (»¼¼W)
    
11. '    G3 = ³æ»ù
    
12. '    H3 = ¼Æ¶q
    
13. ' * I3 = ¾P°âª÷ÃB  ±Æ§Ç¤è¦¡¡G   (»¼´î)
    
14. '    J3 = ³Æµù
    
15. ' -------------------------------------------
    
16. Sub Sorting_Sample()
    
17.     Dim sortKey As Variant
    
18.     Dim sortSeq As Variant
    
19.     Dim i As Long
    
20.    
    
21.     sortKey  = Array("D", "E", "F", "I")
    
22.     sortSeq = Array("A", "A", "A", "D")
    
23.    
    
24.     For i = UBound(sortKey ) To 1 Step -1
    
25.         Range("B3").CurrentRegion.Sort _
    
26.             Key1:=Cells(3, sortKey (i)), _
    
27.             Order1:=IIf(sortSeq(i) = "A", _
    
28.             xlAscending, xlDescending), _
    
29.             Header:=xlYes, Orientation:=xlTopToBottom
    
30.     Next i
    
31. End Sub

½Æ»s¥N½X