2016-06-24 20 views
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

+0

これは、 'FirstDate = range(" A1 ")。value'で定義された年によって異なります。 – dbmitch

答えて

0
MyDate = FirstDate 

row = 1 

Do Until myDate = Date 
    myDate = myDate + 1 
    range("A" & row).value = myDate 
    row = row + 1 
Loop 
0

で起動する必要はありません:

Sub test() 
    Dim a As Long 
    a = Range("A1").Value 
    Range("A2:A" & CLng(Date - a + 1)).Value = Evaluate("Row(" & a + 1 & ":" & CLng(Date) & ")") 
End Sub 

はただ作りますセルが日付としてフォーマットされていることを確認してください)

関連する問題