엑셀 하트 모양 차트 만들기, 3초 안에 뚝딱!

수학 공식과 엑셀의 꺾은선 차트, 매크로를 활용하여 움직이는 하트모양 차트를 제작합니다.

홈페이지 » 엑셀 하트 모양 차트 만들기, 3초 안에 뚝딱!

엑셀 하트 모양 차트 만들기, 3초 안에 뚝딱!

엑셀 하트 모양 차트 목차 바로가기
영상강의
큰 화면으로 보기

예제파일 다운로드

오빠두엑셀의 강의 예제파일은 여러분을 위해 자유롭게 제공하고 있습니다.

  • [엑셀프레소] 엑셀 움직이는 하트 모양 차트 만들기
    예제파일

하트 모양 차트에 사용된 공식

하트 모양 차트에 사용된 공식은 크게 3부분으로 나눌 수 있으며, 공식에 사용된 인수는 아래와 같습니다.

인수 설명
x X축 값입니다.
Ymax Y절편 값입니다. (X가 0일 때 Y값)
진동수 진동수가 1이면, 진폭이 1이고 위상이 0이면서 x가 2 증가할 때마다 진동하는 기본 SIN 파형이 만들어집니다. (=SIN(π) 파형)
  1. V자 모양 차트 :
    ABS(x)^(2/3)

    V자 모양 차트 엑셀 하트 차트

  2. 무지개모양 차트 :
    ABS(Ymax-x^2)^0.5

    무지개 차트

  3. SIN 함수 차트 :
    SIN(진동수*PI()*x)

    엑셀 SIN 함수

위 3개의 공식을 합하면 하트 모양을 출력하는 차트가 완성됩니다.

=ABS(x)^(2/3)+진동크기*ABS(Ymax-x^2)^0.5*SIN(진동수*PI()*x)

엑셀 하트모양 차트 완성

움직히는 하트 모양 차트 매크로 명령문

움직히는 하트 모양 차트 만들기 매크로에 사용된 전체 명령문은 아래와 같습니다.

Option Explicit
 
Public bStart As Boolean
 
Sub HeartChart()
 
Dim i As Long
bStart = Not bStart
 
Do
    For i = 1 To 50
        If bStart = True Then
            DoEvents
            DoEvents
            [b3] = i
        Else
            Exit Sub
        End If
    Next
Loop While bStart = True
 
End Sub

사용된 명령문을 각 단계별로 살펴보겠습니다.

  1. 변수를 선언합니다.
    ' i 는 For 반복문에 x축 값으로 사용될 변수입니다.
    Public bStart As Boolean
    Dim i As Long
    ' bStart 는 하트모양 차트 명령문 실행/중단을 판단할 변수입니다. (공통변수)
    bStart = Not bStart
  2. bStart 가 False로 될 때 까지 하트모양 만들기 차트 명령문을 계속 반복합니다.
    Do
    ....
    Loop While bStart = True
  3. B3셀의 값(=x축 값)을 1 부터 50까지 증가합니다.
    For i = 1 To 50
            If bStart = True Then
            'bStart가 True이면 x축 값을 변경하고 시트를 업데이트합니다.
                DoEvents
                DoEvents
                [b3] = i
            Else
                Exit Sub
            End If
        Next
4.5 2 투표
게시글평점
guest
3 댓글
Inline Feedbacks
모든 댓글 보기
이슬과 보리
이슬과 보리(@-2645)
2021년 3월 22일 9:28 오후
게시글평점 :
     

매크로 명령문은 보이질 않네요. ???????????

SEANPAUL
SEANPAUL(@seanpaul)
2021년 3월 23일 5:03 오전
게시글평점 :
     

엑셀의한계는 어딘가 라는 생각하는 포스트 입니다. ㅎㅎ

3
0
여러분의 생각을 댓글로 남겨주세요.x