指定した日付の間の日付

前提・実現したいこと

お世話になります。

会社で行先表示板を作るためのデータベースを作っています。
マスターのほうにVlookupでデータベースから引っ張ってくる簡単なものです。

ただデータベースなのですがユーザーフォームのtxt日付1というTextBoxに始まる日にち、
txt帰社日というTextBoxに帰社日を入力するようにしていて
その２つの間の日をC列の一番後ろに追加で増やしたいのです。
(3/1~3/5の間の日付等)

間の日付を出すことができても追加していくことができません、、
どうすれば追加していくことができるのでしょうか？
説明がわかりにくく申し訳ないですが教えていただきたいです。。

	C	D	E
1	行先日	社員番号	予定
2	3/1	1234	出張
3	3/2	1234	出張
4	3/3	1234	出張
5	3/4	1234	出張
...	...	...	...

該当のソースコード

Private Sub btm登録_Click()
    Dim Date1 As Date
    Dim Date2 As Date
    Dim i    
    If Me.txt日付1.Text = "" Then
            MsgBox "行先日が入力されていません"
        ElseIf Me.txt社員番号.Text = "" Then
            MsgBox "社員番号が入力されていません"
    End If
Date1 = Me.txt日付1.Text
Date2 = Me.txt帰社日.Text
    For i = 0 To DateDiff("d", Date1, Date2)
        Worksheets("予定表").Cells(i + 1, 3) = DateAdd("d", i, Date1)
    Next i
 Unload Me
End Sub

nanami12

2020/03/19 05:05

指定した日付の間の日付。。。　GUI　で　設定する場合　どこと　どこを　設定したいのですか？はっきりいって何がやりたいのか全くわかりません。文章を推敲し質問を整理して下さい。

yureighost

2020/03/19 05:17

ちょっとわかりにくいですが、説明とソースを読んだ限りの推測ですが。行先日と帰社日を設定したら、その間の日付を一日毎に全て埋めて (行先日：3/1で帰社日：3/5だったら、3/1、3/2、3/3、3/4、3/5) 表示させたいというような意味でいいんでしょうかね？

行動規範の内容に同意します

回答2件

その２つの間の日をC列の一番後ろに追加で増やしたいのです。

下記のようなことでしょうか。

vba
1    Dim LastRow As Long
2
3    LastRow = Worksheets("予定表").Cells(Rows.Count, 3).End(xlUp).Row
4    For i = 0 To DateDiff("d", Date1, Date2)
5        Worksheets("予定表").Cells(i + LastRow + 1, 3) = DateAdd("d", i, Date1)
6    Next i
7

投稿2020/03/19 05:17

hatena19

総合スコア34084

care_raisu

2020/03/19 06:21

ありがとうございます。汲み取って頂きありがとうございます。そちらのコードでできました。こんな見やすくできるとは、、本当にありがとうございます。

行動規範の内容に同意します

ベストアンサー

おそらく現在の最終行を求めてそのあとに追加していきたいという要件と推察したので、簡単に修正してみました。
動作確認はしていませんのであしからず。

VBA
1Private Sub btm登録_Click()
2    Dim Date1 As Date
3    Dim Date2 As Date
4    Dim i
5    Dim lastrow
6    If Me.txt日付1.Text = "" Then
7            MsgBox "行先日が入力されていません"
8        ElseIf Me.txt社員番号.Text = "" Then
9            MsgBox "社員番号が入力されていません"
10    End If
11    Date1 = Me.txt日付1.Text
12    Date2 = Me.txt帰社日.Text
13    lastrow = Worksheets("予定表").Cells(Rows.Count, 3).End(xlUp).Row
14    For i = 0 To DateDiff("d", Date1, Date2)
15        Worksheets("予定表").Cells(i + 1 + lastrow, 3) = DateAdd("d", i, Date1)
16    Next i
17    Unload Me
18End Sub