ten999

帖子: 38
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2011-7-6
最後登錄: 2022-3-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-7-15 18:22 | 只看該作者

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

請問如何利用迴圈或其他方式選取一日期範圍自動輸入inputbox對話方塊內
因為手動輸入日期太多
謝謝
我想要取得三大法人金額統計(證交所)

saveCSVfmURL(1).rar (12.05 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 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

ten999

中學生 Rank: 2

帖子: 38
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2011-7-6
最後登錄: 2022-3-29

3^#

發表於 2011-7-16 08:08 | 只看該作者

謝謝Hsieh教導,使我輸入資料較方便.
另外再次請問我可只輸入 "開始"日期及"結束"日期就好嗎?
再次感謝!

TOP

ten999

中學生 Rank: 2

帖子: 38
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2011-7-6
最後登錄: 2022-3-29

4^#

發表於 2011-7-16 08:12 | 只看該作者

補充說明:可請教各位先進
如何利用"日期時間"等excel公式自動抓取非工作天日期範圍及數量!

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

發表於 2011-7-18 11:21 | 只看該作者

樓主~ 建議你~ 如果有需要人幫你再處理後續問題~
可以用[回復]的方式~ 這樣Hsieh大大才會知道你還有問題還沒有處理好~
他有時間會再幫你處理~

學習才能提升自己

TOP

ten999

中學生 Rank: 2

帖子: 38
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2011-7-6
最後登錄: 2022-3-29

6^#

發表於 2011-7-18 13:13 | 只看該作者

請問我是否可以只輸入"開始及結束日期"就好,因為日期範圍較大
同時有非工作日天數問題

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 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

ten999

中學生 Rank: 2

帖子: 38
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2011-7-6
最後登錄: 2022-3-29

8^#

發表於 2011-7-19 11:44 | 只看該作者

考慮星期六星期日利用weekday函數取得星期六日
Sub testCr()
Dim selDate As Date, 起始日期 As Date, 結束日期 As Date
起始日期 = InputBox("輸入起始日期")
結束日期 = InputBox("輸入結束日期")
For selDate = 起始日期 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

TOP

ten999

中學生 Rank: 2

帖子: 38
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2011-7-6
最後登錄: 2022-3-29

9^#

發表於 2011-7-19 11:46 | 只看該作者

補充說明:
上列程式可否其他方式簡化
及如何取得特定假日(如:元旦 228 ......)
謝謝!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

發表於 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