oobird

1. Sub test()
   
2.     Workbooks("2012 samples Chart.xlsx").Activate
   
3.     For Each sh In Sheets    '¦b©Ò¦³¤u§@ªí¤¤´`Àô
   
4.         If InStr("MayJunJulAugSepOctNovDec", sh.Name) Then    '±q"May"¶}©l§@·~¤@ª½¨ì³Ì«á¤@­Ó¤u§@ªí
   
5.             sh.Activate    '°õ¦æµ{¦¡
   
6. 
   
7.             sh.UsedRange = sh.UsedRange.Value    '§â¤½¦¡µ²ªGÅܦ¨­È
   
8.             sh.AutoFilterMode = False     '¨ú®ø¦Û°Ê¿z¿ï
   
9.             sh.[a4:ad4].AutoFilter    '«Ø¥ß¦Û°Ê¿z
   
10. 
    
11.             n = sh.[AC1000].End(3).Row    'acÄæ³Ì«áÀx¦s®æ¦C¸¹
    
12.             sh.Sort.SortFields.Clear    '²M°£­««Ø±Æ§Ç±ø¥ó
    
13.             ar = Array("ac", "u", "q", "c", "d")
    
14.             For i = 0 To UBound(ar)
    
15.                 sh.Sort.SortFields.Add Key:=sh.Range(ar(i) & "5:" & ar(i) & n)
    
16.             Next
    
17.             With sh.Sort    '¹ï«ü©w½d³ò¥H«ü©w±ø¥ó±Æ§Ç
    
18.                 .SetRange sh.Range("A5:AD" & n)
    
19.                 .Header = xlNo
    
20.                 .MatchCase = False
    
21.                 .Orientation = xlTopToBottom
    
22.                 .SortMethod = xlPinYin
    
23.                 .Apply
    
24.             End With
    
25.         End If
    
26.     Next    '¤U¤@­Ó¤u§@ªí
    
27. End Sub

½Æ»s¥N½X

ª`·N³o¤@¦æ¡G
  If InStr("MayJunJulAugSepOctNovDec", sh.Name) Then
sh.Name¬O¤u§@ªí¦W¡A¦p¤u§@ªíMayªí¦W´N¬OMay
¦b"MayJunJulAugSepOctNovDec"³o­Ó¦r¦ê¤¤¦³¥]§tMayªº¸Ü´N°õ¦æ
¨ä¥Lªí¤]¤@¼ËÃþ±À
sh.May,¬O¿ù»~ªºªí¹F¡C

GBKEE

¦^´_ 15# PJChen
If InStr("MayJunJulAugSepOctNovDec", sh.May) Then  sh ¨S³o ÄÝ©Ê

1. Workbooks("2012 samples Chart.xlsx").Activate
   
2.     For xi = Month(Date) To Sheets.Count                              'Month(Date) ·í¤ë¥÷
   
3.         Sheets(Format(DateSerial(2001, xi, 1), "Mmm")).Activate    '·í¤ë¥÷¤u§@ªí
   
4.     Next

½Æ»s¥N½X

PJChen

¦^´_ 13# oobird
oobird:
µ{¦¡°õ¦æ¦Ü    If InStr("MayJunJulAugSepOctNovDec", sh.May) Then '±q"May"¶}©l§@·~¤@ª½¨ì³Ì«á¤@­Ó¤u§@ªí
¥X²{°ÝÃD´N°õ¦æ¤£¤U¥h¤F,©Ò¥H¨S¦³°õ¦æ§¹,½ÐÀ°¦£¬Ý¬Ý¦³¤°»ò°ÝÃD?

1.    Workbooks("2012 samples Chart.xlsx").Activate
   
2.     For Each sh In Sheets '¦b©Ò¦³¤u§@ªí¤¤´`Àô
   
3.     If InStr("MayJunJulAugSepOctNovDec", sh.May) Then '±q"May"¶}©l§@·~¤@ª½¨ì³Ì«á¤@­Ó¤u§@ªí
   
4.     sh.Activate    '°õ¦æµ{¦¡
   
5.     End If
   
6.     'Next
   
7.    
   
8.         sh.UsedRange = sh.UsedRange.Value '§â¤½¦¡µ²ªGÅܦ¨­È
   
9.         'sh.[a4:ad4].AutoFilter '¨ú®ø¦Û°Ê¿z¿ï
   
10.         'sh.[a4:ad4].AutoFilter '«Ø¥ß¦Û°Ê¿z
    
11.         sh.AutoFilterMode = False '¨ú®ø¦Û°Ê¿z¿ï
    
12.         sh.[a4:ad4].AutoFilter '«Ø¥ß¦Û°Ê¿z
    
13.         
    
14.         n = sh.[AC1000].End(3).Row 'acÄæ³Ì«áÀx¦s®æ¦C¸¹
    
15.         sh.Sort.SortFields.Clear '²M°£­««Ø±Æ§Ç±ø¥ó
    
16.         ar = Array("ac", "u", "q", "c", "d")
    
17.         For i = 0 To UBound(ar)
    
18.             sh.Sort.SortFields.Add Key:=sh.Range(ar(i) & "5:" & ar(i) & n)
    
19.         Next
    
20.         With sh.Sort '¹ï«ü©w½d³ò¥H«ü©w±ø¥ó±Æ§Ç
    
21.             .SetRange sh.Range("A5:AD" & n)
    
22.             .Header = xlNo
    
23.             .MatchCase = False
    
24.             .Orientation = xlTopToBottom
    
25.             .SortMethod = xlPinYin
    
26.             .Apply
    
27.         End With
    
28.     Next '¤U¤@­Ó¤u§@ªí
    
29.     End Sub

½Æ»s¥N½X

oobird

End«á­±ªº(3)~xlup,¸ÓÄ榳¸ê®Æªº³Ì«á¤@¦C
­Y©pªº¤u§@ªí«ö¶¶§Ç±Æ¦C¡A¥i¥H«ü©w±q²Ä´X­Ó¤u§@ªí¶}©l¡C
¦p¡GFor i = 5 To 12
Sheets(i).Activate
°õ¦æ©pªº¤u§@
Next
©ÎªÌ¥Hªí¦Wªº¤å¦r§PÂ_¡A¨Ò¦p¡G
For Each sh In Sheets
If InStr("MayJunJulAugSepOctNovDec", sh.Name) Then
sh.Activate
°õ¦æµ{¦¡
End If
Next

PJChen

¦^´_ 9# oobird
¶W¯Åª©¥D±z¦n,

§Úªº¥¨¶°µ{¦¡»P¶·°õ¦æ¥¨¶°ªº¤u§@ªí¤À¶},©Ò¥H§Ú¦bFor ªº«e¤@¦æ¥[¤F   Workbooks("2012 samples Chart.xlsx").Activate³o¼Ë°õ¦æ´Nok¤F,
¥H¤U°ÝÃD·Q½Ð±Ð±z:
1) §Ú¨C¦~ªº¤u§@ªí¬O¨Ì¤ë¥÷¬°sheet¦WºÙ,²{¦b¬O5¤ë,­Y§Ú·QÅý1~4¤ë¤£­n°õ¦æ«e­±ªº¥¨¶°µ{¦¡,¬O§_¥i¥H±Nµ{¦¡µy¥[­×§ï¬°:
«ü©wSheet "May"¤§«áªº¤u§@ªí¦A°õ¦æ«e­zªº¥¨¶°?§ÚÀ³¸Ó«ç»ò§ï?¥i§_¼g¥X§¹¾ãªºµ{¦¡?(³o­Ó¼gªk½Ð¥Î«ü©wªºsheet¦WºÙ,¤£¯à¥Îµ{¦¡¥h§P§O²{¦bªº¤ë¥÷,¦]¬°§Ú­Ìªº¤u§@ªí­nµ¥µ²±b§¹²¦,¤~¤£·|¥Î¨ì¤W­zªº¥¨¶°)
2)         n = sh.[AC1000].End(3).Row 'acÄæ³Ì«áÀx¦s®æ¦C¸¹...End«á­±ªº(3)¥Nªí¤°»ò?

PJChen

¦^´_ 10# GBKEE

§Aªº«Øij«Ü¤£¿ù,ÁÂÁÂ.

GBKEE

¦^´_ 2# oobird

1. SH.[a4:ad4].AutoFilter '¨ú®ø¦Û°Ê¿z¿ï
   
2. SH.[a4:ad4].AutoFilter '«Ø¥ß¦Û°Ê¿z

½Æ»s¥N½X

³o¬O«á½ú§Úªº¨£¸Ñ ,¦p¦³¿ù»~½Ð¨£½Ì.
µ{¦¡¶}©l°õ¦æªì®É         [a4:ad4] ¬O¦b¦Û°Ê¿z¿ïªºª¬ºA¤U,²Ä¤@¦¸ªºAutoFilter  ¤~·|¬O  ¨ú®ø¦Û°Ê¿z¿ï
¦ý¦p   [a4:ad4] ¤£¬O¦b¦Û°Ê¿z¿ïªºª¬ºA¤U,²Ä¤G¦¸ªºAutoFilter ·|¬O   ¨ú®ø¦Û°Ê¿z¿ï

1. SH.AutoFilterMode = False '¨ú®ø¦Û°Ê¿z¿ï  
   
2.         SH.[a4:ad4].AutoFilter '«Ø¥ß¦Û°Ê¿z
   
3.         

½Æ»s¥N½X

µ{¦¡°õ¦æ®É   ¤£ºÞ[a4:ad4] ¬O§_¦b¦Û°Ê¿z¿ïªºª¬ºA¤U, AutoFilterMode = False  ³£·|¨ú®ø¦Û°Ê¿z¿ï

oobird

¤G¼Óªº«e¨â¦æ¤£´N¬O³o­Ó­n¨D¡H
For Each sh In Sheets '¦b©Ò¦³¤u§@ªí¤¤´`Àô
        sh.UsedRange = sh.UsedRange.Value '§â¤½¦¡µ²ªGÅܦ¨­È
¤£¥²¤@©w­ncopy¦A¥H­È¶K¤W¤~¯à§â¤½¦¡Åܦ¨­Èªº¡C
¦b©Ò¦³ªí¤¤´`Àô¤£¶·«Ø¥ß°}¦C¡A«Ø¥ß¤F¤]¬O¦h¤@¹Dµ{§Ç¡A¤S¦ó¥²¦h¦¹¤@Á|¡H

PJChen

¦^´_ 6# oobird
¸É¥R:³o¬O§Ú¤Ñ°¨¦æªÅªº·Qªk,­Y¬O¦³®¯©ó¥¿±`µ{¦¡ªº¼gªk,½Ð¤Å¨£©Ç!
¥t¥~....¯uªº¼g±o¦¨ªº¸Ü,¤]½Ðµ¹§Ú§¹¾ãªºµ{¦¡,¦]¬°..§Aª¾¹Dªº,§Ú¤£·|«÷´ê¤Ó½ÆÂøªºµ{¦¡.
·PÁ±z!

PJChen

¦^´_ 6# oobird
Hi,
¥Ø«e§Úªþ¤WªºÀɮצ³ Apr, May, Jun, Jul, Aug, Sep, Oct µ¥Sheets(¥H«á³£ÁÙ·|¼W¥[)
    Ar1 = Array(Apr, May, Jun, Jul, Aug, Sep, Oct)    '¸m¤J°}¦C (©Î³\¤]¯à³o¼Ë¼g...Apr¤§«áªºSheets³£§@¬Û¦P°Ê§@)
    Ar2 = Array(°Ê§@1: AA4:AL¦³¸ê®Æªº³Ì«á¤@¦C,COPY«á­ì½d³ò¶K¤W­È    °Ê§@2: A4:AD4 ¨ú®ø¦Û°Ê¿z¿ï,¦A«ì´p¦Û°Ê¿z¿ï   °Ê§@3: ±Æ§Ç¶¶§Ç¬°AC,U,Q,C,D)                '¸m¤J°}¦C
¯à¤£¯à¥Î¤W­zªºÃþ¦ü§@ªk? ¤£¦n·N«ä,§ÚµLªk±N敍­zÂনµ{¦¡,¤£¹L§Ú·Q¥H¤Wªººc«äÀ³¸Ó¬O¯à°÷¹ê²{ªº,¥u¦³°Ê§@1: AA4:AL¦³¸ê®Æªº³Ì«á¤@¦C,COPY«á­ì½d³ò¶K¤W­È,¥i¯à¤ñ¸û¦³°ÝÃD,¤£ª¾¯à§_¥Îµ{¦¡¥h¹F¦¨?
¦]¬°AD:AE¬O§¹¥þªÅ¥ÕÄæ,¦ÓACªº³Ì«á¤@¦C¸ê®Æ»PAFªºªí®æ¤S¦³3¦æ¥H¤Wªº§¹¥þªÅ¥Õ¦C.

¤U¸ü (80.67 KB)

2012-5-4 13:29