- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 103
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-5-4
|
¦^´_ 11# ten999
¤W¯Z¤é¡B¥ð°²¤é¦b¥xÆW¹ê¦æªº¬O¦³ÂI¶Ã
¦ý¬O¡A´Nµ{¦¡³]p¦Ó¨¥¡A·íµL³W«h¥i´`®É´N¥Î¦Cªí¸Ñ¨M
¨º»ò¦Cªíªº®æ¦¡´N§ñÃö«°¥«¹B¦æ¬O§_¶¶ºZ
¤£³W«hªº±ø¥ón¥Î¦Cªíªº·N¸q¦b©ó®e©ö§ä¥X³W«h
¦ý§Aªº³]p¤Ï¦ÓÅý¦Cªí½ÆÂø¡A«Øij¥u¥Î2Äæ¦ì¨Ó°O¿ý°²¤é
- Sub testCr()
- Dim selDate As Date, °_©l¤é´Á As Date, µ²§ô¤é´Á As Date
- °_©l¤é´Á = InputBox("¿é¤J°_©l¤é´Á", , 2001 / 12 / 29)
- µ²§ô¤é´Á = InputBox("¿é¤J µ²§ô¤é´Á", , Date)
- For selDate = °_©l¤é´Á To µ²§ô¤é´Á
- If IsError(Application.Match(CDbl(selDate), Sheets("¥æ©ö²§°Êªí").[A:A], 0)) Then
- If Weekday(selDate, 2) < 6 Or IsNumeric(Application.Match(selDate, Sheets("¥æ©ö²§°Êªí").[B:B], 0)) Then
- saveCSVfmURL selDate
- End If
- End If
- Next
- End Sub
½Æ»s¥N½X |
|