如何利用迴圈或其他方式選取日期範圍自動輸入inputbox - Excel程式區

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-7-15 18:51 | 顯示全部帖子

回復 1# ten999

Sub testCr()
Dim selDate As String
selDate = InputBox("日期(格式為yyyy/mm/dd)" & "請輸入一個日期")
Do Until Not selDate Like "????/??/??"
saveCSVfmURL CDate(selDate)
selDate = InputBox("日期(格式為yyyy/mm/dd)" & "請輸入一個日期")
Loop
End Sub

複製代碼

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-7-18 15:05 | 顯示全部帖子

回復 6# ten999
這問題並沒甚麼大技巧
就單純使用INPUTBOX作為輸入起始日期與結束日期
用迴圈For....Next敘述

Sub testCr()
Dim selDate As Date,起始日期 as Date, 結束日期 as date
起始日期=inputbox("輸入起始日期")
結束日期=inputbox("輸入結束日期")
For selDate=起始日期 to 結束日期
saveCSVfmURL selDate
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2011-7-19 14:06 | 顯示全部帖子

本帖最後由 Hsieh 於 2011-7-19 14:12 編輯

回復 9# ten999

建議使用假期表列方式
判斷迴圈中變數是否為假期表內日期

Sub testCr()
Dim selDate As Date, 起始日期 As Date, 結束日期 As Date, 假期
假期 = Array("01/01", "02/28", "04/05", "10/10")
起始日期 = InputBox("輸入起始日期")
結束日期 = InputBox("輸入結束日期")
For selDate = 起始日期 To 結束日期
If Weekday(selDate, 2) <= 5 And IsError(Application.Match(Format(selDate, "mm/dd"), 假期, 0)) Then saveCSVfmURL selDate
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-7-23 11:04 | 顯示全部帖子

回復 11# ten999
上班日、休假日在台灣實行的是有點亂
但是，就程式設計而言，當無規則可循時就用列表解決
那麼列表的格式就攸關城市運行是否順暢
不規則的條件要用列表的意義在於容易找出規則
但你的設計反而讓列表複雜，建議只用2欄位來記錄假日

Sub testCr()
Dim selDate As Date, 起始日期 As Date, 結束日期 As Date
起始日期 = InputBox("輸入起始日期", , 2001 / 12 / 29)
結束日期 = InputBox("輸入結束日期", , Date)
For selDate = 起始日期 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

複製代碼

學海無涯_不恥下問

TOP

[發問] 如何利用迴圈或其他方式選取日期範圍自動輸入inputbox

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]