Live Replay 멤버쉽 라이브 강의

엑셀 차트 애니메이션 매크로 실습 (코로나19 백신 접종현황 차트)

오빠두엑셀 Microsoft MVP · Excel Expert

| 2021년11월13일

이전 다음

강의 소개

1. 코로나19 백신 접종현황 차트

이번 강의에서는 OurWorldData 에서 제공하는 코로나19 백신 접종현황 원본데이터 를 바탕으로 코로나19 백신 접종현황 차트를 제작합니다.

이후 주어진 데이터를 가공하여 차트를 깔끔하게 시각화하고 우리나라 막대만 실시간으로 강조하는 방법에 대해 알아봅니다.

2. 엑셀 VBA 차트 애니메이션

이번 강의에서는 차트 애니메이션을 구현하는 VBA 매크로의 전체 명령문의 동작 원리를 단계별로 살펴봅니다.

이후 버튼위로 매크로를 입혀 버튼 클릭으로 지정한 기간의 차트 애니메이션을 구현하는 방법을 알아봅니다.

보충 자료

1️⃣ 강의에 사용된 전체 명령문

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