엑셀은 단순한 데이터 관리 도구를 넘어, 창의적인 프로젝트를 구현할 수 있는 강력한 플랫폼입니다. 이번 글에서는 NOW 함수와 도넛형 차트, 원형 차트, 그리고 간단한 VBA 매크로를 활용해 현재 시간을 실시간으로 표시하는 아날로그 시계를 엑셀에서 직접 만드는 방법을 단계별로 자세히 알려드립니다.
1단계: 시·분·초 값 설정하기
가장 먼저 시계의 시침, 분침, 초침을 제어할 기본 값을 준비합니다.
- C5 셀을 클릭하고 아래 수식을 입력합니다. 이 수식은 24시간제를 12시간제로 변환하여 시계의 '시' 값을 계산합니다.
=IF((HOUR(NOW())+C10/60+C15/3600)>12,(HOUR(NOW())+C10/60+C15/3600)-12,HOUR(NOW())+C10/60+C15/3600)
- Enter 키를 누르면 시계의 시침 위치를 결정하는 값이 표시됩니다.
- C6 셀에는 시침 두께(Hour Hand Width) 값을 입력합니다.
- C7 셀에는 아래 수식을 입력합니다. 이 값은 원형 차트에서 시침 외의 남는 영역을 담당합니다.
=12-C5
- 다음으로 C10 셀을 선택하고 아래 수식을 입력해 '분' 값을 구합니다.
=MINUTE(NOW())
- C11 셀에는 분침 두께(Minute Hand Width)를 입력합니다.
- C12 셀에는 아래 수식을 입력해 분침 외의 빈 공간을 만듭니다.
=60-C10
- 이어서 C15 셀을 선택하고 '초' 값을 계산하는 수식을 입력한 뒤 Enter 키를 누릅니다.
=SECOND(NOW())
- C16 셀에는 초침 두께(Second Hand Width)를 설정합니다.
- C17 셀에는 아래 수식을 입력해 초침 외의 빈 공간 값을 완성합니다.
=60-C15
2단계: 시계 프레임 만들기
이번에는 도넛형 차트를 이용해 시계의 몸체, 즉 숫자가 표시되는 다이얼을 만들어 보겠습니다.
- 삽입 탭으로 이동합니다.
- 원형 또는 도넛형 차트 삽입 옵션에서 도넛형 차트를 선택합니다.
- 화면에 빈 차트 상자가 나타납니다.
- 차트 상자를 마우스 오른쪽 버튼으로 클릭하고 데이터 선택을 선택합니다.
- 대화 상자가 열리면 추가 버튼을 클릭합니다.
- 계열 편집 창에서 계열 값에 아래 값을 입력합니다. 이 계열은 시계 dial의 12개 위치(시)를 지정하는 역할을 합니다.
={1,1,1,1,1,1,1,1,1,1,1,1}
- 확인을 누르면 차트에 첫 번째 데이터 계열이 추가됩니다.
- 추가 버튼을 다시 클릭하고, 앞서 입력한 것과 동일한 값을 계열 값에 입력합니다. 이 계열은 분침 위치를 위한 것입니다.
- 확인을 클릭하면 차트에 두 번째 데이터 계열이 추가됩니다.
- 한 번 더 추가를 클릭한 뒤, 초침을 표현하기 위해 계열 값에 {1}을 입력하고 확인을 누릅니다.
- 데이터 원본 선택 대화 상자에서 확인을 클릭해 창을 닫습니다.
차트 기본 서식 정리하기
- 생성된 도넛형 차트를 클릭한 뒤 서식 탭으로 이동합니다.
- 모양 윤곽선 옵션에서 윤곽선 없음을 선택합니다.
- 차트 오른쪽 위의 더하기(+) 버튼을 클릭해 차트 제목과 범례를 모두 끕니다.
- 데이터 계열 중 하나를 우클릭하고 데이터 계열 서식을 선택합니다.
- 오른쪽 패널에서 도넛 구멍 크기를 60%로 변경합니다.
숫자 레이블 입력하기
- 차트에서 두 번째 데이터 계열을 우클릭한 후 데이터 계열 서식을 선택합니다.
- 첫 조각 시작 각도를 조정해 숫자가 들어갈 위치를 잡아줍니다.
- 두 번째 데이터 계열의 데이터 레이블을 켭니다.
- 맨 위 가운데에 있는 데이터 레이블에 12를 입력합니다.
- 나머지 레이블에도 아날로그 시계 순서대로 1~11까지의 숫자를 차례대로 입력합니다.
- 서식 탭 → 모양 채우기 → 채우기 없음을 선택해 두 번째 데이터 계열의 채우기 색을 제거합니다.
- 이번에는 첫 번째 데이터 계열의 데이터 레이블을 켭니다.
눈금 표시(●) 삽입하기
- D16 셀을 선택한 뒤 삽입 탭에서 기호 옵션을 클릭합니다.
- 기호 대화 상자에서 문자 코드에 25CF(●)를 입력하고 삽입을 누릅니다.
- 삽입된 특수 문자를 Ctrl+C로 복사합니다.
- 첫 번째 데이터 계열의 데이터 레이블을 클릭한 상태에서 Ctrl+V로 붙여넣습니다.
- 나머지 데이터 레이블에도 같은 방법으로 ● 기호를 모두 붙여넣습니다.
- 마지막으로 첫 번째 데이터 계열의 채우기 색을 해제하면 아날로그 시계의 프레임이 완성됩니다.
3단계: 시침(바늘) 삽입하기
이제 원형 차트를 사용해 시침을 만들어 보겠습니다.
- C5:C7 셀 범위를 선택합니다.
- 삽입 탭에서 원형 또는 도넛형 차트 삽입 옵션 중 원형 차트를 선택합니다.
- 화면에 원형 차트가 생성되면 차트 제목과 범례를 모두 끕니다.
- 데이터 계열의 윤곽선을 윤곽선 없음으로 변경하고, 채우기 색도 채우기 없음으로 설정합니다.
- 두 데이터 계열 모두 동일하게 적용하면, 시침이 위치할 부분만 화면에 남게 됩니다.
4단계: 시계 바늘 정렬하기
- 원형 차트 전체 배경의 채우기 색을 채우기 없음으로 설정해 배경을 투명하게 만듭니다.
- 원형 차트의 크기를 조절해 시침을 시계 프레임 안에 맞춰 배치합니다.
- 도넛형 차트의 차트 제목과 범례가 켜져 있다면 모두 꺼줍니다.
- 같은 방법으로 분침과 초침 데이터를 위한 원형 차트를 각각 추가로 만듭니다.
- 세 바늘이 서로 구별되도록 색상을 다르게 지정하고, 길이와 굵기도 차이를 둡니다.
- 모든 바늘 차트를 시계 안쪽으로 가져온 뒤, 아무 차트나 하나 클릭하고 Ctrl+A를 눌러 개체를 모두 선택합니다.
- 도형 서식 탭 → 정렬 옵션에서 가운데 맞춤을 선택해 바늘들의 중심을 일치시킵니다.
- 삽입 탭의 도형 옵션에서 타원을 선택합니다.
- 작은 타원을 시계의 정중앙에 배치해 바늘 축을 표현하면 디자인이 완성됩니다.
5단계: VBA 코드로 시계 시작·정지하기
드디어 시계를 실시간으로 움직이게 만들 차례입니다. 간단한 VBA 코드로 시작과 정지 기능을 구현합니다.
- 개발 도구 탭에서 Visual Basic을 클릭하면 새 창이 열립니다.
- VBAProject 아래의 ThisWorkbook을 선택하면 코딩 모듈이 나타납니다.
- 모듈에 아래 코드를 입력하고 저장합니다.
Sub StartClock()
Dim am_ws As Worksheet
Set am_ws = ActiveSheet
am_ws.Range("H5").Value = "Start"
x:
VBA.DoEvents
If am_ws.Range("H5").Value = "Stop" Then Exit Sub
Application.Calculate
GoTo x
End SubSub StopClock()
Dim am_ws As Worksheet
Set am_ws = ActiveSheet
am_ws.Range("H5").Value = "Stop"
End Sub
StartClock 매크로는 H5 셀 값이 "Stop"이 될 때까지 워크시트를 계속 재계산하며 시계를 작동시키고, StopClock 매크로는 H5 셀 값을 "Stop"으로 바꿔 시계를 멈추게 합니다.
시작·정지 버튼 만들기
- 삽입 탭의 도형 옵션에서 사각형을 선택합니다.
- 시계 아래쪽에 사각형을 그리고 이름을 Start로 입력합니다.
- 같은 방법으로 Stop 버튼도 하나 더 만들어 줍니다.
- Start 버튼을 우클릭한 뒤 매크로 지정을 선택합니다.
- StartClock 매크로를 할당하고 확인을 클릭합니다.
- 이번에는 Stop 버튼을 우클릭하고 매크로 지정을 선택합니다.
- StopClock 매크로를 해당 버튼에 할당합니다.
- 이제 Start 버튼을 누르면 시계가 실시간으로 작동하기 시작하고, Stop 버튼을 누르면 매크로가 종료되며 시계가 멈춥니다.
마무리
지금까지 엑셀의 수식, 차트, VBA 매크로를 결합해 실시간으로 작동하는 아날로그 시계를 만드는 전 과정을 살펴보았습니다. 이 예제는 NOW 함수의 재계산 특성과 차트 개체의 조합을 익히는 데 매우 유용한 연습 프로젝트이므로, 직접 따라 하면서 응용해 보시길 권장합니다.
함께 보면 좋은 관련 글
- 엑셀 VBA로 UserForm에 디지털 시계 만들기: 완벽 가이드
- 엑셀로 디지털 시계 만드는 방법
- 엑셀에서 실행되는 시계(Running Clock) 만들기
무료 고급 엑셀 연습 문제와 해답을 받아보세요!