Sortingµ{¦¡½X¤£¯à°õ¦æ

stevenliu555

±z¦n¡G

¦³Ãösorting¡A·Q½Ð±Ð¦p¤Uµ{§Ç¡A¬°¤°»ò¤£¯à°õ¦æ¡H¥ª¬Ý¥k¬Ý´N¬O¬Ý¤£¥X¦³»~¡H½Ð«e½ú«ü¾É¸Ñ´b¡CÀɮצpªþ¡C

Sub SortData()
    Range("A1").Sort Key1:=Cells(1, 4), Order1:=xlAscending, Key2:=Cells(1, 6), Order2:=xlAscending, Header:=xlYes
End Sub

stevenliu Sorting.rar (14.67 KB)

¤U¸ü¦¸¼Æ: 16

2013-12-22 21:39

owen06

¦^´_ 1# stevenliu555

§Ú¦b°õ¦æ¤W¨S¦³¥ô¦ó°ÝÃD­C¡A§A¬O¤£¬O¦]¬°°õ¦æ¹L¤@¦¸¡A±Æ§Ç§¹¦¨«á¡A¦A«ö´N¨S¦³¤ÏÀ³¡A¥H¬°¤£¦æ¤F¡H
§A¥i¥H¦A·s¼W¤@­Ó»¼´î±Æ§Çªº¡A´N¥i¥H½T©w¬O¤£¬O¤@¤Á¥¿±`¤F¡C
OrderX:=xlAscending---»¼¼W±Æ§Ç
OrderX:=xldescending--»¼´î±Æ§Ç

c_c_lai

¦^´_ 2# owen06

¤U¸ü (68.61 KB)

2013-12-23 09:59

owen06

¦^´_ 3# c_c_lai


³o´N©Ç¤F¡A§Ú¦b2003¤W°õ¦æ³o­ÓÀɮ׬O¥¿±`ªº¡A·|¥ý«ö·Ó©Ê§O»¼¼W±Æ§Ç¡A µM«á¦A±N¦P©Ê§O¤Uªº¦~ÄÖ»¼¼W±Æ§Ç¡C

c_c_lai

¦^´_ 4# owen06
³oºØ¬Û®e©Ê°ÝÃD¬O«D±`¥O¤H§xÂZªº¡A¦³¨Ç¦b2003¯à°õ¦æªº¥¼¥²¬Û®e©ó 2007¡B2010¡C

stevenliu555

§ÚªºEXCEL¬O2007¡A°õ¦æµ²ªG»Pc_c_lai¤@¼Ë¡A¦pªG­n¥Î©óEXCEL2007¡A½Ð°Ý¸Ó¦p¦ó§ó§ï¡HÁÂÁ¡C

owen06

¦^´_ 6# stevenliu555


§A¥i¥H¥ýª½±µ¥Î¿ý»sªº¥\¯àÅý¥LÀ°§A¼g¦n¤º®e¡AµM«á¦A¦Û¤v¥h§â¦h¾lªº²ÖÂاR±¼¡A³o¼Ë¤ñ¸û¤£·|¦³¬Û®e©Êªº°ÝÃD¡C

GBKEE

¦^´_ 6# stevenliu555
¸Õ¸Õ¬Ý,¬O§_¥i¦æ(§Ú¨S¦³2007)

1. Sub SortData()
   
2.     Range("A1").Sort Key1:=Range("D1"), Order1:=xlAscending, Key2:=Range("F1"), Order2:=xlAscending, Header:=xlYes
   
3. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 8# GBKEE
Same Error as shown on 3#.

owen06

¦^´_ 6# stevenliu555

§Ú­è¥Î2007¿ý»s¥X¨Ó¡A¦A¤@­Ó¤@­ÓºCºC§R¡A³Ìºë²¦ü¥G´N¤@©w­n³o¼Ë¤F¡A¦A²¤U¥h´N¤£¯à°õ¦æ¤F¡AÁÙ®¼³Â·Ðªº@@

1. Sub sortdata()
   
2. Sheets("·|­û¦W¥U").Sort.SortFields.Clear
   
3. Sheets("·|­û¦W¥U").Sort.SortFields.Add Key:=Range("D2"), Order:=xlAscending        '¥ý¥HD2»¼¼W±Æ§Ç
   
4. Sheets("·|­û¦W¥U").Sort.SortFields.Add Key:=Range("F2"), Order:=xlAscending         '¦A¥HF2»¼¼W±Æ§Ç
   
5.    With Sheets("·|­û¦W¥U").Sort
   
6.      .SetRange Range("A1:J31")
   
7.      .Header = xlYes
   
8.      .Apply
   
9.     End With
   
10. End Sub

½Æ»s¥N½X