[µo°Ý] ¦p¦ó¤ñ¹ï®É¶¡¡K¡K

play9091

§Ú·Q­n¥Î"¶i¶¥¿z¿ï"¹ï¤@°ï¸ê®Æ°µ¿z¿ï¡C

¦ý²{¦b¹J¨ì¤@­Ó°ÝÃD¡A§Ú·Q­n¹ï¤é´Á°µ¿z¿ï¡C¦ý¬O¤£ª¾¹D«ç»ò¼Ë¤l¥h©M¤é´Á°µ¤ñ¹ï¡K¡K

¨Ò¦p¡G§Ú·Q­n¿z¿ï¤j©ó2012/03/14¡A¦ý¬O¹ê»Ú¿z¿ï¥X¨Ó2012/03/14ÁÙ¬O¦b¿z¿ï«áªº¦Cªí¸Ì­±¡I

§Úªº¼gªk¦p¤U¡G

1.     D = Date - 7
   
2.     Range("S2") = "=D2>" & D
   
3.    Range("A1:Q65536").AdvancedFilter Action:=xlFilterInPlace, _
   
4.         CriteriaRange:=Range("S1:T2"), Unique:=False

½Æ»s¥N½X

½d¨Ò¦pªþÀÉ¡I·Ð½Ð¥ý¶i­Ì«ü±Ð¤@¤U¡I

play9091

¦^´_ 9# Hsieh


    ·PÁ­ץ¿¡A¦]¬°¥N½X¬O±q§Ú¼g¦nªº¾ã½g¸Ì­±©â¥X§Úªº°ÝÃDªº³¡¤À¡A©Ò¥H¦³¤@¨Ç¥X¤J¡A¶Wª©¯uªº«Ü²Ó¤ß¡K¡K¨ü±Ð¤F

¦^´_ 10# register313


    ¤@ª½·QµÛ¥Î§P§O¦¡¥h§PÂ_¡A­Ë§Ñ°O¤F³Ì²³æªº·d­z¡K¡K¤u§@¤@¦£¯uªº¬O·|¶Ã¤F¤â¸}¡K¡KÁÙ¶·­n§ó§NÀRªº¥h¤ÀªR°ÝÃD°Ú¡I·PÁ¡K¡K¾Ç²ß¡K¡K

register313

¦^´_ 8# play9091

¤U¸ü (230.03 KB)

2012-3-21 23:08

1. Sub Week_KPI()
   
2.     Range("P2") = ">" & Date - 7
   
3.     Range("A1:N65536").AdvancedFilter Action:=xlFilterInPlace, _
   
4.         CriteriaRange:=Range("P1:Q2"), Unique:=False
   
5. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 8# play9091

¶i¶¥¿z¿ï¥i¨Ï¥Î¤½¦¡§@¬°·Ç«h¨S¿ù
¦ý§AÀÉ®×»P§Aªºµ{¦¡½X±Ô­z¦³ÂI¥X¤J
À³¸Ó¦bP2¼g¤J¤½¦¡¤~¹ï

1.     D = Date - 7
   
2.     Range("P2") = "=B2>DATEVALUE(""" & D & """)"
   
3.     Range("A1:N65536").AdvancedFilter Action:=xlFilterInPlace, _
   
4.         CriteriaRange:=Range("P1:Q2"), Unique:=False

½Æ»s¥N½X

play9091

¦^´_ 6# hugh0620

  ¥ý¶iÀ³¸Ó¬O¨S¦³¬Ý²M·¡§Ú¹ï¶·¨Dªº´y­z¡A¤S©ÎµÛ¬O§Ú´y­zªº¤£°÷²M·¡¡K¡K

§Ú·Q­n§â¸ê®Æ¤¤¤C¤Ñ«eªº¸ê®Æ¤£¯Ç¤J¦Ò¶q¡K¡K©Ò¥H¶·­n¨º¤@¬q¤½¦¡°µ¬°§P§O¡C

ÁÙ¬O»¡¥ý¶i¦³¤°»ò¤ñ¸û¦nªº¤èªk¥i¥H¤¶²Ð¤@¤U¡K¡K¤]Åý§Ú¥i¥H¦h¦h¾Ç²ß¡I

Hsieh

¦^´_ 5# play9091


        Range("U2") = "=D2>datevalue(""" & d & """)"

hugh0620

¦^´_ 5# play9091


    ¬Ý§Aµ{¦¡½Xªº¼gªk~
    D=Date-7   'À³¸Ó¬O¥Î¨t²Î¤é´Á´î7¤Ñ,¦A§Q¥ÎDªº¤é´Á¦bPÄæ¦ì¼g¤J¨ç¼Æ=D2-D
   ­Y±z­nªº¸ò§Ú²z¸Ñªº¬O¤@¼Ëªº¸Ü~
   ¤U­±ªº¤è¦¡´N¥i¥H¸Ñ¨M§Aªº°ÝÃD
   ¦ý»á¬°©_©Ç~ ¨Ï¥Îvba­nªº¦h¼Æ¬O±N¨ç¼Æ¹BºâÂন­È±a¤J~ ´î¤Ö­pºâ~
   §AÁÙ­n±N¨ç¼Æ¼g¥X¨Ó~ ¦A¥h°õ¦æ«áÄò°Ê§@~ ·Pı¦³ÂI~...²æXXXX.....

1. Sub Week_KPI()
   
2. 
   
3. A = Range("A65536").End(xlUp).Row
   
4. D = Date - 7
   
5. For I = 2 To A
   
6.     Range("P" & I).Formula = "=B" & I & ">" & "Date(" & Year(D) & "," & Month(D) & "," & Day(D) & ")"
   
7. Next
   
8.     Range("A1:N65536").AdvancedFilter Action:=xlFilterInPlace, _
   
9.         CriteriaRange:=Range("P1:Q2"), Unique:=False
   
10. End Sub

½Æ»s¥N½X

play9091

¦^´_ 4# Hsieh


Range("U2") = "=D2>datevalue(" & D & ")"
¡õ
=D2>datevalue(2012/3/14)

¦ý¬O¤½¦¡­n¨D¦¨¤U­±³o­Ó¼Ë¤l
=B2>DATEVALUE("2012/3/14")

¤]´N¬O¤Ö¤F¡u"¡v³o­Ó²Å¸¹¡K¡K¥[¤£¶i¥h¡K¡K«ùÄò¹Á¸Õ¤¤¡I

Hsieh

¦^´_ 3# play9091


        Range("U2") = "=D2>datevalue(" & D & ")"

play9091

¦^´_ 2# hugh0620


    ¥ÎVBA¼g¥X¼Ó¤W¥ý¶i¼gªº¤½¦¡¦nÃø³á¡I«ç»ò¼g³£¿ù°Ú¡I

1.     Range("U2") = "=D2>datevalue(" & D & ")"""

½Æ»s¥N½X

¶]VBAªº®É­Ô´N¿ù¤F¡K¡K·w°Ú¡I