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

¸ê®Æ¿z¿ï°ÝÃD

¸ê®Æ¿z¿ï°ÝÃD

Private Sub CommandButton1_Click()
'²M°£ªí³æÃC¦â
    Range("A5:Q200").Select
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-18
    Selection.Interior.ColorIndex = xlNone
   
    '¿z¿ïªí³æ
Sheets("·JÁ`ªí").Range("A2:H3600").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("¿z¿ï°Ï").Range( _
        "A1:B2"), CopyToRange:=Range("A4:H3600"), Unique:=False
    ActiveWindow.SmallScroll Down:=-12
   
'±Æ§Ç
Range("A4:H3600").Select
    ActiveWindow.SmallScroll Down:=-60
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Range("F2").Select
End Sub

Private Sub CommandButton4_Click()
'²M°£ªí³æÃC¦â
    Range("A5:Q200").Select
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-18
    Selection.Interior.ColorIndex = xlNone
   
    '¿z¿ïªí³æ
Sheets("·JÁ`ªí").Range("A2:H3600").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("¿z¿ï°Ï").Range( _
        "A1:D2"), CopyToRange:=Range("A4:H3600"), Unique:=False
    ActiveWindow.SmallScroll Down:=-12
   
'±Æ§Ç
Range("A4:H3600").Select
    ActiveWindow.SmallScroll Down:=-60
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Range("F2").Select
End Sub
¦bªí³æ¤¤¤G¼h¸ê®Æ¿z¿ï¬°¦ó¿z¿ï­È³t«×ÅܫܺC¡A¤£ª¾¦ó³B¥X¤F°ÝÃD¡A¤j¤j¬O§_À°¸Ñµª¡H

¥¼©R¦W.jpg (39.63 KB)

¥¼©R¦W.jpg

¦³Àɮפ~ª¾¹D³á~

³q±`¬O§Aªº¸ê®Æ¤Ó¤j¤~·|³y¦¨³B²z³t«×¤Wªº°ÝÃD

TOP

¦^´_ 2# chaoyiho


     ÁÂÁ¤j¤jªº¦^ÂСF¦ýÁÙ¬O¤£¸Ñ
¸ê®Æ¤~¢²¢³¢¯¢¯µ§¡D¡D¿z¿ï¬ù10¬í...¦pªG¸ê®Æ30,000µ§..¤£¬O¿z¿ï§ó¤[¡D¡D¬O§_¦³§ó§Öªº¤è¦¡¶Ü

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD