ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦^´_ 2# owen06

TOP

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

TOP

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

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD