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

¦³¤@­Ó°ÝÃD

¦³¤@­Ó°ÝÃD

WorkDay(DateAdd("m", -1, Date), IIf(Weekday(DateAdd("m", -1, Date), vbMonday) > 5, -1, 0))

­Y­n±N³Ì«á­±ªº0§ï¬°¤@­Ó¦³½d³òÀx¦s®æªº°²¤é­n¦p¦ó§ï¡H(°²¤éªí¦b¥t¤@­Ósheet)

¥»©«³Ì«á¥Ñ zaq370 ©ó 2011-9-7 09:59 ½s¿è

¦^´_ 1# zaq370


    ²{¦b¦³¤@­Ó°ÝÃD¡A§Ú¬O¥Î¤é´Á¦WºÙ·íÀɮצWºÙ¡A¦b§ìªº®É­Ô¡A­Y¹J¨ì¨S¦³ªº¤é´Á(¦p°²¤é©Î¨S¦³²£¥Í¸ê®Æªº¤é´Á)´N©¹«á¤@¤Ñ¡A§Ú¬O¥ÎDO ...LOOP°µ¤@­Ó§ä¸ê®Æ§¨ÀɮסA­Y¨S¦³ªº¦WºÙ´N©¹«á§ä¡A¦ý¤@ª½¥X¿ù¡A§Ú§ä¤£¨ì­ì¦]¥X¦b­þ¡HÀ°¦£¤@¤UÅo¡I·P®¦!!ÀɮצpªþÀÉ!!

¥Ø«e7/2~7/6¬O¨S¦³³øªí²£¥Í¬G¨S¦³ÀÉ®×!!
¤U¤@­Ó°ÝÃD·|¸I¨ì¤¤¬î¸`¡A¦ÑÁ󤣭n¥Î¤@­Ó°²¤éªí!!³o¼Ë¨C¦~³£­n¥h§ó§ï¨º±iªí¡A¥Ø«eµ{¦¡½X¥Î¦b"¼Ò²Õ3"¡ö¤C¤ë¥÷ªº

0901.rar (631.48 KB)

TOP

¦^´_ 2# zaq370

mydate = DateAdd("m", -2, Date) '¤W¤W¤ë
wb = Format(mydate, "mmdd")
tt = Format(mydate, "mm")
fs = Dir(ThisWorkbook.Path & "\100" & tt & "\" & "NOC" + wb & ".xls")
Do Until fs <> ""
mydate = mydate + s
wb = Format(mydate, "mmdd")
tt = Format(mydate, "mm")
fs = Dir(ThisWorkbook.Path & "\100" & tt & "\" & "NOC" + wb & ".xls")
s = s + 1
Loop
With Workbooks.Open(fs)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh


    ·P®¦¤j­ô!!!§Ú­è´ú¸Õ¤@¤Uµo²{7/4©M7/6³£·|§ì¨ì7/7¸¹ªºÀɮסA¥i¬O7/5«o§ì¨ì7/8¸¹ÀÉ®×!!

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD