c_c_lai

¦^´_ 6# stevenliu555
¦^´_ 10# owen06
ªº½T¦b 2003 »P 2007¡B2010 ¤Wªí¹F¬O¦³¨Ç·Lªº®t²§©Ê¡A
¦hÁ owen06 ¤j¤jªº¥Î¤ß¡I

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

½Æ»s¥N½X

stevenliu555

·PÁÂ10#, 11#ªº±Ð¾É¡A¯uªº¥i¥H­C¡C
¦ý¬O¡A§ÚÁÙ¬O¦³ÂI½èºÃ¡A¬°¤°»òEXCEL 2007¡B2010µ{¦¡½X·|Åܱo½ÆÂø¡A¤Ï¦ÓÃø¥Î¡A¤£¸Ñ¡C

owen06

¦^´_ 12# stevenliu555


   ¥i¯à¬O¹ï©ó¤@¯ë¨Ï¥ÎªÌ¨Ó»¡¡A¦b·Æ¹«¾Þ§@ªº¤¶­±¥\¯àÅܪº¶W±j¤j¡A¶W²«K¡A
   ¦ý¬O¬Û¹ïªº¡Aµ{¦¡»y¨¥¤]´NÅܪº§ó½ÆÂø¤F¡C²qªº°Õ¡K