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

½Ð°ÝVBA°ª¤â¤j¤j~­n¦p¦ó§ï¼g¤~·|§ó²³æ©öÀ´©O?

½Ð°ÝVBA°ª¤â¤j¤j~­n¦p¦ó§ï¼g¤~·|§ó²³æ©öÀ´©O?

½Ð°ÝVBA°ª¤â¤j¤j~
¥H¤U¬O°w¹ï¤u§@ªí(¥D­n)BÄæ¦ì¤Î(¦¸­n)CÄæ¦ì±Æ§Ç»¼¼W
©Ò¿ý»sªº¥¨¶°,¬Ýªº²´ªá¼º¶Ã~~~
­n¦p¦ó§ï¼g¤~·|§ó²³æ©öÀ´©O?


Sub Macro1()
'
' Macro1 Macro
' user ¦b 2013/1/15 ¿ý»sªº¥¨¶°
''
    Range("A3").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("C3") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortNormal, DataOption2:=xlSortNormal
    Range("H3").Select
End Sub

¦^´_ 1# alltest


    sorry~§Ñ¤Fªþ¤W¹Ï¤ù

TOP

¦^´_ 2# alltest


    §AªºMS Office ¬O2003 ÁÙ¬O2007
¦L¶H¤¤ MS Office ¨SXP..

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 2# alltest
³o¼Ëªºµ{¦¡½X¨ä¹ê¬O³Ì®e©ö¤F¸Ñªº
¿ý»sªº¥N½X¬O±N§A©Ò°µªº°Ê§@¤@¤@ÂàĶ¦¨VBAµ{¦¡½X
¦Ü©ó§Aı±o²´ªá¼º¶Ã¬O¦]¬°Sort¤èªk¥»¨Ó´N¦³³o»ò¦h°Ñ¼Æ
­ì¥»¥i¥H¼g¦¨¤@¦æªºµ{¦¡½X¡A¦ý¦]¬°¦Ò¼{¾\Ūª©­±©Ò¥H·|¥HªÅ®æ+¤U¼Ð½u§@¬°¤À¦æ³B²z
§A­n¾ÇVBA´N­n±q¦U­Ó°Ñ¼Æ»¡©ú¥h¤F¸Ñ¨C­Ó°Ñ¼Æªº§@¥Î
³o¨Ç°Ñ¼Æ¬O§A¦b±Æ§Ç¹ï¸Ü¤è¶ô¤¤ªº³]©w¡A¸ÕµÛ¿ý»s¤£¦Pªº³]©w°Ê§@
¤ñ¸û¨C¦¸¿ý»sªºµ{¦¡½X®t²§¡A¦³§U©ó§A¹ïVBA»Pªkªº»{ÃÑ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁÂHsieh ¶W¯Åª©¥D¤j¤jªº¤£§[«ü±Ð~·P®¦^^
Åýªì¾Çªº§Ú,¦³­Ó§ó¦nªº¾Ç²ß¤è¦V
§Æ±æ¦³¤@¤Ñ¤]¯à¦¨¬°VBA°ª¤â

TOP

¦^´_ 3# mark15jill


    sorry~¬O 2003

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD