오늘까지 날짜를 채우는 VBA 매크로

Question

격주로, 마지막 보고서 사이의 날짜를 채우는 보고서를 업데이트해야합니다. 마지막 실행 보고서 사이의 날짜를 채우고 현재 날짜에 중지하도록 매크로를 가져 오려고합니다. 나는 현재이 있습니다

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 

을하지만 난 정말 1900

Answer 1

MyDate = FirstDate 

row = 1 

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

Answer 2

한 빠른 단계에서 작업을 수행하려면에서 날짜가 시작하지 않으 :

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 

것은 단지 확인 셀이 날짜 형식으로되어 있는지 확인하십시오.)