Sub COVID19_ChartAnimation()
 
Dim i As Long: Dim j As Long
Dim sDate As Date
Dim eDate As Date
 
On Error GoTo EH:
 
sDate = DateValue(Range("시작날짜").Value)  '<- 시작날짜가 적힌 셀 주소를 입력하세요
eDate = DateValue(Range("종료날짜").Value)  '<- 종료날짜가 적힌 셀 주소를 입력하세요
 
For i = 0 To eDate - sDate
    DoEvents
    With ActiveSheet.PivotTables(1).PivotFields("필드명")  '<- 피벗테이블의 날짜 필드명을 입력하세요.
        .ClearAllFilters
        .CurrentPage = sDate + i
    End With
    For j = 1 To 50000000: j = j + 1: Next
    DoEvents
Next
 
Exit Sub
 
EH:
MsgBox "날짜가 올바르게 입력되었는지 확인해주세요."
 
End Sub