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

°}¦C±Æ§Ç¿z¿ï¤@°Ý

°}¦C±Æ§Ç¿z¿ï¤@°Ý

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2016/10/2 09:05): ¥Î¥¨¶°¿ý»s¸Õ¬Ý¬Ý

¤p§Ì­è¤Jªù
½Ð°Ý¦p¦ó¥ÎVBA»yªk
¨Ï¥ÎArray¥h°µ±Æ§Ç¿z¿ï
¥HPG¬°Àu¥ý(¥u­n¨Ì·Ó¦r¥À±Æ¦C)
¦¸­n¬OBS ¦r¦ê¤@¼ËªºÂ\¤@°_
¦A¨Ó¬OLC ¥Ñ¤j±Æ¨ì¤p
µM«á¥u­n¨ú¥X¸Ì­±ªº
CT .DT .PG .LC .BS
¨ì·sªº¬¡­¶Ã¯

½Ð¦U¸ô°ª¤â«ü¾É   ÁÂÁ§A­Ì

TEST.zip (17.5 KB)

¦^GBKEE¤j¤j
¦]¬°§Ú¦³¸Õ¹L¥Î¥¨¶°¿ý»s¤è¦¡   ¦ý¬O¿z¿ï¤@Ãö±¼
³o­Ó¿ý»s»E¶°´N·|¦³°ÝÃD= ="
¦]¬°§Ú«á­±¦³·Q°µ­Ó«ö¶s§@³s°Ê
©Ò¥H¤~·Q»¡¥ÎVBA·|¤£·|¤ñ¸û¦X¾A

TOP

# GBKEE

¦]¬°§Ú¦³¸Õ¹L¥Î¥¨¶°¿ý»s¤è¦¡   ¦ý¬O¿z¿ï¤@Ãö±¼
³o­Ó¿ý»s»E¶°´N·|¦³°ÝÃD= ="
¦]¬°§Ú«á­±¦³·Q°µ­Ó«ö¶s§@³s°Ê
©Ò¥H¤~·Q»¡¥ÎVBA·|¤£·|¤ñ¸û¦X¾A

TOP

¦^´_ 3# starbox520

¸Õ¸Õ¬Ý2003¿ý»sªº
  1. Option Explicit
  2. Sub Macro1()
  3. '
  4. ' Macro1 Macro
  5. ' hsu ¦b 2016/10/3 ¿ý»sªº¥¨¶°
  6. '

  7. '
  8.     Range("A1:H33").Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range( _
  9.         "G2"), Order2:=xlAscending, Key3:=Range("F2"), Order3:=xlAscending, _
  10.         Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
  11.         xlTopToBottom, SortMethod:=xlStroke, DataOption1:=xlSortNormal, _
  12.         DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
  13.    
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE

¦^ª©¤j
¥X²{¥þ³¡»yªk¿ù»~­C~"~
§Ú¦³¹Á¸Õ¨Ï¥Î¿ý»s¥¨¶°
    ActiveWorkbook.Worksheets("rawdata").AutoFilter.Sort.SortFields.Clear
¦ý¬O·|¥d¦b(¦pªG¿z¿ï¶s¨S¥´¶}) ³o¦æ·|¿ù»~
§Ú¤]¦³¸ÕµÛ¥Î¿ý»s¥¨¶°ªº¤è¦¡
°µ¿z¿ï¥u­nªº³¡¤À¶K¥h¤u§@ªí2
¦ý¬O°µ¤F«ö¶s¤§«á ¨Ï¥Î³o­Ó¥¨¶°´N·|¥X²{rawdata¸ÌAÄdªº¸ê®Æ¨S¹L¥h
¥Î¿ý»s¥¨¶°ªº¸Ü¤§«e´N¥d¦b³o¸Ì~"~
Áٳ·Ъ©¤j¦³¤°»ò«Øij  
ªþ¤W§Úªº´ú¸Õ§¹¾ãÀÉ

TEST2.zip (415.04 KB)

TOP

¦^´_ 5# starbox520
  1. 'AutoFilterMode ÄÝ©Ê   ¥Ø«e¦b¤u§@ªí¤WÅã¥Ü¦³ [¦Û°Ê¿z¿ï] ¤U©Ô½b¸¹¡A«h¦¹Äݩʬ° True¡C¸ÓÄÝ©Ê»P FilterMode Äݩʤ¬¬Û¿W¥ß¡CŪ/¼g Boolean¡C
  2. 'FilterMode ÄÝ©Ê          ¦pªG«ü©w¬¡­¶Ã¯³B©ó¿z¿ï¼Ò¦¡«h¬° True¡C°ßŪ Boolean¡C³Æµù:¦pªG¤u§@ªí¤¤¥]§t¤w¿z¿ï²M³æ¡B¥B¸Ó²M³æ¤¤¥]§tÁôÂæC¡A«h¥»Äݩʬ° True¡C

  3. '
  4.     With ActiveWorkbook.Worksheets("rawdata")
  5.         If .AutoFilterMode Or .FilterMode Then .AutoFilter.Sort.SortFields.Clear
  6.         ' ActiveWorkbook.Worksheets("rawdata").AutoFilter.Sort.SortFields.Clear
  7.     End With
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE


    ¦^ª©¤j
   ¤£·|µo¥Í¿ù»~¤F!!!!
   ¬Ý¨Ó¦]¬°³o¤@¤p¬qªº¦r§ÚÁÙ¦³«Üªøªº¸ô­n¾Ç....
   ÁÂÁªO¤jÀ°¦£°£¿ù!!!

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD