¦p¦ó¨C¤é§ó·s¤£¦P¤é´ÁªºÀɮסA¶¶«KpºâÀx¦s®æ¼Æ??
- ©«¤l
- 13
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN 7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-25
- ³Ì«áµn¿ý
- 2011-9-15
|
¦^´_ 10# Hsieh
¤jô¡A«Ü·P¿E§Aªº¸Ñµª¡A§Úı±oÀ³¸Ó¤£¬OÀɦWªº°ÝÃD§a¡I²{¦b¤µ¤Ñ¬O¥i¥H§ì¨ì7/29¡A¦ý©ú¤Ñ9/1¤é¡A«o§ì¤F8/5¤éªº¸ê®Æ¦Ó¤£¬O8/1¤é
Y¹³³oºØ±Æ°£¤»¤éºâ¤u§@¤Ñ §Q¥Îworkday¨ç¼Æ·|¤ñ¸û¦n¶Ü?! |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 220
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-10-8
|
¦^´_ 11# zaq370
myday = Application.WorkDay(DateAdd("m", -1, Date), IIf(Weekday(DateAdd("m", -1, Date), vbMonday) > 5, -1, 0))'«e¤@Ó¤ë
wb = Format(myday, "mmdd")
tt = Format(myday, "mm")
With Workbooks.Open(ThisWorkbook.Path & "\100" & tt & "\" & "NOC" + wb & ".xls")
¤£¹L³o¼Ëªº±¡§Î¦pªG¤j¤p¤ë¤£¦P®É¤£ª¾¹D§An«ç»ò§ì¸ê®Æ |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN 7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-25
- ³Ì«áµn¿ý
- 2011-9-15
|
¦^´_ 10# Hsieh
¬O³á!! Y¥Î if~~~end if ¥h§PÂ_¤»¤éªº¸Ü¡A·|¦³¤j¤p¤ëªº°ÝÃD¶Ü?! |
|
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN 7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-25
- ³Ì«áµn¿ý
- 2011-9-15
|
¦^´_ 10# Hsieh
¤jô¡AÁÂÁ§AªºÀ°¦£¡A§Ú´ú¸Õ¹L¡A¨S¦³¤j¤p¤ëªº°ÝÃD¡I¡I |
|
|
|
|
|
|