0
隔週、最後のレポートの日付を埋め込むレポートを更新する必要があります。私は最後の実行レポートと現在の日付で停止間の日付を埋めるマクロを取得しようとしています。私は現在、この持っている:VBAマクロで今日までの日付を入力する
Sub IncreaseDate()
Dim FirstDate As Date
Dim myDate As Date
Dim row As Long
FirstDate = range("A1").value
NextDate = FirstDate
row = 1
Do Until myDate = Date
myDate = myDate + 1
range("A" & row).value = myDate
row = row + 1
Loop
End Sub
をしかし、私は本当に日付が1つの速いステップでそれを行うには1900
これは、 'FirstDate = range(" A1 ")。value'で定義された年によって異なります。 – dbmitch