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¿ï

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

GBKEE

¦^´_ 18# PJChen

1. For xi = Month(Date) To 12        'Month(Date) ·í¤ë¥÷  ¨ì 12¤ë¥÷

½Æ»s¥N½X

GBKEE

¦^´_ 21# PJChen

1. Sub Try()
   
2.     Dim sh As Worksheet, xi As Integer
   
3.     Workbooks("2012 samples Chart.xlsx").Activate
   
4.     '''  For Each sh In Sheets    '¦b©Ò¦³¤u§@ªí¤¤´`Àô
   
5.     For xi = Month(Date) To 12        'Month(Date) ·í¤ë¥÷  ¨ì 12¤ë¥÷
   
6.      Set sh = Sheets(Format(DateSerial(2001, xi, 1), "Mmm"))
   
7.         sh.Activate    '·í¤ë¥÷¤u§@
   
8.         sh.UsedRange = sh.UsedRange.Value    '§â¤½¦¡µ²ªGÅܦ¨­È
   
9.         sh.AutoFilterMode = False     '¨ú®ø¦Û°Ê¿z¿ï
   
10.         sh.[a4:ad4].AutoFilter    '«Ø¥ß¦Û°Ê¿z

½Æ»s¥N½X

GBKEE

¦^´_ 23# PJChen
¹ï¤£°_:¦³ÂI½k¶î ½Ð­×§ï ¤@¤U
Set sh = Sheets(Format(DateSerial(2001, Month(xi), 1), "Mmm")) ¿ù»~
Set sh = Sheets(Format(DateSerial(2001, xi, 1), "Mmm"))  ¥¿½T