2020년, 2021년, 2022년 연속 3년 동안 월별 매출 데이터 세트를 수집했습니다. 자동으로 변경되는 차트를 생성합니다.
1단계 – 도우미 열을 사용하여 차트 설정
- 3개의 도우미 '판매' 열을 삽입합니다.
참고 :더 나은 시각화를 위해 도우미 열을 강조표시할 수 있습니다.
- 빈 셀로 이동합니다.
- 삽입으로 이동합니다. 탭.
- 차트 아래 섹션에서 삽입을 선택하세요. 선형 또는 영역형 차트 누적선을 선택하세요. .
- 차트를 마우스 오른쪽 버튼으로 클릭하고 데이터 선택을 클릭합니다. .
- 데이터 소스 선택 대화 상자가 나타납니다.
- 추가를 선택하세요. 범례 항목(시리즈)에서 .
- 시리즈 편집이 표시됩니다. 창.
- 시리즈 이름 상자에서 판매(2020)를 선택합니다. 및 시리즈 값 상자에서 데이터 범위 $F$5:$F$16를 선택합니다. .
- 확인을 누르세요. .
- 반복하여 '판매를 모두 선택합니다. ” 열과 해당 도우미 열입니다.
- 또한 가로(범주) 축 라벨 , 수정으로 이동 .
- 이후 축 라벨 대화 상자가 나타납니다. $B$5:$B$16에서 데이터 범위를 선택하세요. . 확인을 클릭하세요. .
마지막으로 확인을 누르세요. 데이터 소스 선택에서 창.
자세히 알아보기: Excel에서 애니메이션 막대 차트 경주를 만드는 방법
2단계 – 차트 서식 지정
- 차트 제목 만들기 , 축 제목 , 그리고 전설 하단에. 차트 요소에서 사용할 수 있습니다.
차트는 아래 이미지와 유사하게 보일 것입니다.
3단계 – VBA 코드 사용
- 개발자로 이동 탭을 클릭하고 Visual Basic을 선택하세요. .
- 삽입을 선택하세요. 탭을 클릭하고 모듈을 선택하세요. .
- 모듈 1 , 일반이 표시됩니다. 상자.
- 다음 VBA를 입력하세요. 거기에 코드를 입력하고 저장하세요.
Sub AnimationChart()
Const SR As Long = 5
Dim LR As Long
Dim RN As Long
LR = Range("C" & SR).End(xlDown).Row
Range("F" & SR, "H" & LR).ClearContents
DoEvents
Application.Wait (Now + TimeValue("00:00:1"))
For RN = SR To LR
DoEvents
Range("F" & RN, "H" & RN).Value = Range("C" & RN, "E" & RN).Value
Application.Wait (Now + TimeValue("00:00:1"))
DoEvents
Next RN
End Sub
코드 분석
변수를 선언합니다. 먼저. 상수를 설정했습니다. SR로 시작 행을 나타냄 . 우리의 경우 5 . LR 그리고 RN 마지막 행의 값을 참조하는 변수이기도 합니다. 및 행 번호 각각.
LR =범위(“C” &SR).End(xlDown).Row→ 명령은 연관된 열(F:H)의 모든 값을 제거합니다. ).
범위(“F” &SR, “H” &LR).ClearContents→ 셀 범위를 선택하고 셀 값을 행별로 표시하기 시작했으며 F 의 빈 열을 채웠습니다. H로 .
시간 지연을 설정했습니다. 1에 두 번째로 1초 단위로 데이터를 표시하는 데 도움이 됩니다. 지연은 차트에 역동적인 느낌을 줍니다.
4단계 – 애니메이션 생성을 위한 버튼 입력
- 양식 컨트롤을 사용하여 버튼 추가 워크시트에 있습니다.
- 애니메이션으로 이름을 바꿉니다.
- 애니메이션을 마우스 오른쪽 버튼으로 클릭하세요. 버튼을 클릭하고 매크로 할당을 선택하세요. 컨텍스트 메뉴에서 .
- 매크로 할당 대화상자가 나타납니다.
- 매크로 이름을 선택합니다. 애니메이션 차트 .
- 확인을 누르세요. .
- 애니메이션 차트가 준비되었습니다. 애니메이션을 클릭합니다. 버튼을 누르세요.
연습 섹션
각 시트의 오른쪽에는 연습 섹션이 제공되어 단계를 연습할 수 있습니다.
연습 학습서 다운로드
관련 기사
- Excel에서 텍스트에 애니메이션을 적용하는 방법
- UserForm의 VBA 애니메이션