기초 자료 준비
이번 시간에 만들어 볼 완성 예는 이렇습니다. 엑셀의 어떤 기능을 이용하면 이런 모양을 만들 수 있을까요? 답부터 보지 말고 잠시만 생각을...
완성 예
그렇습니다. 차트를 사용하면 가능합니다. 그림자는 사물의 모양에 기반한 것이듯, 차트는 데이터를 바탕으로 합니다. [완성 예]와 같은 모양을 만들기 위한 기초 자료를 먼저 작성해야 합니다. 구분(B열), 시간(C열), 일정(D열)을 자신의 계획에 따라 입력합니다.
시간(E열)은 D열에 입력한 일정의 경과 시간을 의미합니다. '취침'의 경우 0시부터 6시까지이므로 해당 일정이 시작되는 위치(여기서는 E4 셀)에 6을 입력하거나 아니면 간단한 계산식을 작성해도 됩니다.
취침 시간은 0시에 시작해서 6시에 끝나니까 '=6-0', 운동은 6시에 시작해서 7시에 끝나므로 '=7-6'이라고 한 겁니다. 같은 방법으로 나머지 일정의 시간에 대해서도 숫자를 채웁니다. 여기서 한 가지 주의할 것은 하루가 24시간이므로 E4:E27 영역에 있는 숫자를 모두 더했을 때 24가 나와야 한다는 점입니다(완성 시트의 E29셀 참조). 하루는 24시간이기 때문이지요.
완성 예
F열에는 하루 24시간의 각 시간 간격을 나타낼 것이므로 F4:F27 영역에 1을 입력합니다. 합산한 결과가 24가 되는지 검증합니다(완성 시트의 F29셀 참조). 이로써 차트를 만들기 위한 기본 준비는 끝났습니다.
차트 만들기
1. E3:F27 영역을 범위로 지정하고 [삽입] 탭 - [차트] 그룹 - [추천 차트] 명령을 클릭합니다. 엑셀 버전에 따라 메뉴 구성이 조금씩 다를 수 있습니다. 이미지를 참고로 잘 따라오시기 바랍니다.
2. [차트 삽입] 대화상자에서 [모든 차트] 탭을 선택하고, [원형] - [도넛형] 차트를 선택하고 [확인] 버튼을 클릭합니다.
3. 범례를 삭제하고 차트 크기를 적당히 조절합니다. 뭔가 오묘한(?) 차트가 만들어졌습니다. 바깥쪽 도넛 차트는 '간격'을, 안쪽은 각 일정에 대한 '시간'을 표시하기 위한 용도로 사용됩니다. 이것이 과연 [완성 예]와 같은 형태로 환골탈태 할 수 있을 것인지에 대한 우려는 있겠지만 아직 갈 길이 많이 남았으니 기다려 보세요.
4. 바깥쪽 계열('간격')을 선택하고 마우스 오른쪽 버튼을 클릭한 다음 [데이터 레이블 추가]를 선택하면 계열에 레이블이 추가됩니다. 레이블을 마우스 오른쪽 버튼으로 클릭하고 [데이터 레이블 서식] 메뉴를 선택합니다. [데이터 레이블 서식] 작업 창에서 [항목 이름] 앞에만 체크 표시를 합니다.
5. 바깥쪽 계열은 시간 간격(한 시간 단위)을 표시하기 위한 것이므로 숫자만 있으면 됩니다. 간격 계열을 마우스 오른쪽 버튼으로 클릭하고 [데이터 계열 서식] 메뉴를 선택합니다. [데이터 계열 서식] 작업 창에서 [채우기]와 [테두리]를 없음으로 지정합니다. 여기까지 제대로 했다면 차트는 아래와 같은 형태가 됩니다.
6. 안쪽 계열('시간')의 구멍 크기를 변경합니다. 안쪽 계열을 마우스 오른쪽 버튼으로 클릭하고 [데이터 계열 서식] 메뉴를 선택합니다. [데이터 계열 서식] 작업 창에서 [계열 옵션] - [도넛 구멍 크기]를 40%로 지정합니다. 값이 커질수록 구멍이 커집니다. 너무 크면 '간격' 계열과 벌어져서 보기에 좋지 않을 수 있습니다.
7. '시간' 계열을 마우스 오른쪽 버튼으로 클릭하고 [데이터 레이블 추가] 메뉴를 선택하여 레이블을 추가합니다. 레이블을 마우스 오른쪽 버튼으로 클릭하고 [데이터 레이블 서식] 메뉴를 선택합니다. [데이터 레이블 서식] 작업 창에서 [셀 값] 항목을 선택하면 [데이터 레이블 범위] 대화상자가 나타납니다. [데이터 레이블 범위 선택] 항목을 클릭하고 연습 시트의 D4:D27 영역을 범위로 지정합니다. [확인] 버튼을 클릭하고 [데이터 레이블 서식] 작업 창에서 [값] 항목의 체크 표시를 제거하면 차트의 형태가 이렇게 됩니다.
8. '시간' 계열을 마우스 오른쪽 버튼으로 클릭하고 [데이터 레이블 추가] 메뉴를 선택하여 레이블을 추가합니다. 레이블을 마우스 오른쪽 버튼으로 클릭하고 [데이터 레이블 서식] 메뉴를 선택합니다. [데이터 레이블 서식] 작업 창에서 [셀 값] 항목을 선택하면 [데이터 레이블 범위] 대화상자가 나타납니다. [데이터 레이블 범위 선택] 항목을 클릭하고 연습 시트의 D4:D27 영역을 범위로 지정합니다. [확인] 버튼을 클릭하고 [데이터 레이블 서식] 작업 창에서 [값] 항목의 체크 표시를 제거하면 차트의 형태가 이렇게 됩니다.
9. 차트 제목을 입력하고 도형 개체를 삽입하여 도넛 가운데에 '생활계획표'라고 입력합니다. 여기까지만 해도 살짝 아쉬운 대로 생활계획표를 엑셀로 구현할 수 있습니다. VBA를 이용하면 [완성 예]와 같이 색상을 정돈해서 좀 더 세련된(?) 형태로 만들 수 있습니다.
생활계획표 업그레이드하기
1. VBA를 이용하여 도넛 차트의 색상을 자동으로 변경해 보겠습니다. G열에 일정별로 색상을 지정합니다. 유사한 일정에는 같은 색상을 지정하고 글자색이 검정색이므로 배경색은 너무 어둡지 않은 색을 고르는 것이 좋겠습니다.
2. 워크시트 상태에서 ALT + F11 키를 눌러서 Visual Basic EditorVB Editor를 호출합니다.
3. VB Editor에서 [삽입] - [모듈] 메뉴를 선택하여 모듈을 하나 삽입하고 코드를 작성합니다. VBA 강의 시간이 아니므로 코드에 대한 설명은 따로 하지 않겠습니다. 아래 코드를 복사하여 앞에서 삽입한 모듈에 붙여넣기 하세요.
Sub setChartColor()
''' 변수 선언
Dim shtX As Worksheet
Dim oCht As Chart
Dim oPoint As Point
Dim rColor As Range
Dim rX As Range
Dim vColor()
Dim i As Integer
''' 변수에 값 할당
On Error Resume Next
Set shtX = ActiveSheet
Set oCht = shtX.ChartObjects(1).Chart
Set rColor = shtX.Range("B3").CurrentRegion
Set rColor = rColor.Offset(1).Resize(rColor.Rows.Count - 1).Columns(6)
''' F열의 각 셀에 지정된 색상 번호를 동적 배열 변수 vColor에 저장
For Each rX In rColor.Cells
If IsNumeric(rX.Offset(, -2)) Then
ReDim Preserve vColor(i)
vColor(i) = rX.Interior.Color
i = i + 1
End If
Next
''' 동적 배열 변수에 저장된 색상 값을 차트 계열의 각 Point 색상으로 지정
i = 0
For Each oPoint In oCht.SeriesCollection(1).Points
With oPoint
.Interior.Color = vColor(i)
.Border.Color = vColor(i)
End With
i = i + 1
Next
End SubCODE
4. 워크시트로 가서 차트를 마우스 오른쪽 버튼으로 클릭하고 [매크로 지정] 매뉴를 선택합니다.
5. [매크로 지정] 대화상자가 나타나면 앞에서 작성한(또는 붙여넣은) 매크로를 지정하고 [확인] 버튼을 클릭합니다.
6. 이제 차트를 클릭하면 매크로가 실행됩니다. G열에 지정한 색상과 같은 것으로 차트 계열의 요소도 연동되는 것을 확인할 수 있습니다. 매크로를 차트에 연결하지 않고 버튼을 이용하거나 다른 방식을 적용하는 것도 물론 가능합니다.
Chart 개체와 Color 속성은 엑셀 버전에 따라 크고 작은 변화가 있었습니다. 각자가 사용하는 엑셀 버전이 다르기에 On Error Resume 명령을 사용하여 오류가 발생하더라도 일단 다음 구문으로 넘어가도록 하였습니다. 예전 엑셀 버전에서는 제대로 작동하지 않을 수도 있으니 참고하세요.
올해가 얼마 남지 않았습니다. 한 해 마무리 잘 하세요. 2023년 계묘년 검은 토끼의 해에는 즐겁고 행복한 일들이 좀 더 많았으면 좋겠습니다.
Happy New Year~~