[µo°Ý] ¦p¦ó§Q¥Î°j°é©Î¨ä¥L¤è¦¡¿ï¨ú¤é´Á½d³ò¦Û°Ê¿é¤Jinputbox

ten999

½Ð°Ý¦p¦ó§Q¥Î°j°é©Î¨ä¥L¤è¦¡¿ï¨ú¤@¤é´Á½d³ò¦Û°Ê¿é¤Jinputbox¹ï¸Ü¤è¶ô¤º
¦]¬°¤â°Ê¿é¤J¤é´Á¤Ó¦h
ÁÂÁÂ
§Ú·Q­n¨ú±o¤T¤jªk¤Hª÷ÃB²Î­p(ÃÒ¥æ©Ò)

Hsieh

¦^´_ 1# ten999

1. Sub testCr()
   
2. Dim selDate As String
   
3.     selDate = InputBox("¤é´Á(®æ¦¡¬°yyyy/mm/dd)" & "½Ð¿é¤J¤@­Ó¤é´Á")
   
4.     Do Until Not selDate Like "????/??/??"
   
5.     saveCSVfmURL CDate(selDate)
   
6.     selDate = InputBox("¤é´Á(®æ¦¡¬°yyyy/mm/dd)" & "½Ð¿é¤J¤@­Ó¤é´Á")
   
7.     Loop
   
8. End Sub

½Æ»s¥N½X

ten999

ÁÂÁÂHsieh±Ð¾É,¨Ï§Ú¿é¤J¸ê®Æ¸û¤è«K.
¥t¥~¦A¦¸½Ð°Ý§Ú¥i¥u¿é¤J "¶}©l"¤é´Á ¤Î"µ²§ô"¤é´Á ´N¦n¶Ü?
¦A¦¸·PÁÂ!

ten999

¸É¥R»¡©ú:¥i½Ð±Ð¦U¦ì¥ý¶i
¦p¦ó§Q¥Î"¤é´Á®É¶¡"µ¥excel¤½¦¡¦Û°Ê§ì¨ú«D¤u§@¤Ñ¤é´Á½d³ò¤Î¼Æ¶q!

hugh0620

¼Ó¥D~ «Øij§A~ ¦pªG¦³»Ý­n¤HÀ°§A¦A³B²z«áÄò°ÝÃD~
¥i¥H¥Î[¦^´_]ªº¤è¦¡~ ³o¼ËHsieh¤j¤j¤~·|ª¾¹D§AÁÙ¦³°ÝÃDÁÙ¨S¦³³B²z¦n~
¥L¦³®É¶¡·|¦AÀ°§A³B²z~

ten999

½Ð°Ý§Ú¬O§_¥i¥H¥u¿é¤J"¶}©l¤Îµ²§ô¤é´Á"´N¦n,¦]¬°¤é´Á½d³ò¸û¤j
¦P®É¦³«D¤u§@¤é¤Ñ¼Æ°ÝÃD

Hsieh

¦^´_ 6# ten999
³o°ÝÃD¨Ã¨S¬Æ»ò¤j§Þ¥©
´N³æ¯Â¨Ï¥ÎINPUTBOX§@¬°¿é¤J°_©l¤é´Á»Pµ²§ô¤é´Á
¥Î°j°éFor....Next±Ô­z

1. Sub testCr()
   
2. Dim selDate As Date,°_©l¤é´Á as Date, µ²§ô¤é´Á as date
   
3. °_©l¤é´Á=inputbox("¿é¤J°_©l¤é´Á")
   
4. µ²§ô¤é´Á=inputbox("¿é¤J µ²§ô¤é´Á")
   
5. For selDate=°_©l¤é´Á to µ²§ô¤é´Á
   
6. saveCSVfmURL selDate
   
7. Next
   
8. End Sub

½Æ»s¥N½X

ten999

¦Ò¼{¬P´Á¤» ¬P´Á¤é §Q¥Îweekday¨ç¼Æ¨ú±o¬P´Á¤»¤é
    Sub testCr()
Dim selDate As Date, °_©l¤é´Á As Date, µ²§ô¤é´Á As Date
°_©l¤é´Á = InputBox("¿é¤J°_©l¤é´Á")
µ²§ô¤é´Á = InputBox("¿é¤J µ²§ô¤é´Á")
For selDate = °_©l¤é´Á To µ²§ô¤é´Á
If Weekday(selDate) = 1 Then
Debug.Print selDate
ElseIf Weekday(selDate) = 7 Then
Debug.Print selDate
ElseIf Weekday(selDate) = 2 Then
saveCSVfmURL selDate
ElseIf Weekday(selDate) = 3 Then
saveCSVfmURL selDate
ElseIf Weekday(selDate) = 4 Then
saveCSVfmURL selDate

ElseIf Weekday(selDate) = 5 Then
saveCSVfmURL selDate

ElseIf Weekday(selDate) = 6 Then
saveCSVfmURL selDate
End If
Next
End Sub

ten999

¸É¥R»¡©ú:
¤W¦Cµ{¦¡¥i§_¨ä¥L¤è¦¡Â²¤Æ
¤Î¦p¦ó¨ú±o¯S©w°²¤é(¦p:¤¸¥¹ 228 ......)
ÁÂÁÂ!

Hsieh

¦^´_ 9# ten999

«Øij¨Ï¥Î°²´Áªí¦C¤è¦¡
§PÂ_°j°é¤¤ÅÜ¼Æ ¬O§_¬°°²´Áªí¤º¤é´Á

1. Sub testCr()
   
2. Dim selDate As Date, °_©l¤é´Á As Date, µ²§ô¤é´Á As Date, °²´Á
   
3. °²´Á = Array("01/01", "02/28", "04/05", "10/10")
   
4. °_©l¤é´Á = InputBox("¿é¤J°_©l¤é´Á")
   
5. µ²§ô¤é´Á = InputBox("¿é¤J µ²§ô¤é´Á")
   
6. For selDate = °_©l¤é´Á To µ²§ô¤é´Á
   
7. If Weekday(selDate, 2) <= 5 And IsError(Application.Match(Format(selDate, "mm/dd"), °²´Á, 0)) Then saveCSVfmURL selDate
   
8. Next
   
9. End Sub

½Æ»s¥N½X