Excel에서 디지털 시계 만들기:두 가지 간단한 VBA 및 수식 방법

방법 1 – Excel VBA 및 TEXT 함수를 통해 디지털 시계 구축

단계:

• 삽입> 일러스트레이션> 도형으로 이동합니다.

• 도형 메뉴 옵션 상자가 나타납니다.
• 둥근 직사각형을 선택합니다. 옵션입니다.

• 통합문서에 둥근 직사각형 모양이 삽입됩니다.

• 개발자로 이동 탭을 클릭하고 Visual Basic을 클릭합니다. .

• Visual Basic에서 창에서 삽입으로 이동하세요. 탭을 클릭하고 모듈을 클릭하세요. 모듈 상자를 생성하는 옵션입니다.

• 모듈 상자에 다음 VBA 를 입력합니다. 코드.

Sub Digi_Clock()
Range("B5") = Not Range("B5")
Do While Range("B5") = True
DoEvents
Range("B6") = Now()
Loop
End Sub

• 녹색 실행 을 누르세요. 버튼을 누르세요.

• B4 셀에 있음 , TRUE를 입력하세요. Enter를 누르세요. 또는 Tab

• 둥근 직사각형을 마우스 오른쪽 버튼으로 클릭하세요.
• 컨텍스트 메뉴에서 매크로 할당을 선택합니다. 직사각형에 코드를 포함하는 옵션입니다.

• VBA를 삽입했습니다. 직사각형 모양으로 만듭니다.
• 나중에 시간이 표시됩니다.

• C6 셀에 있음 , 다음 TEXT를 입력하세요. 수식

=TEXT(B6,"hh:mm:ss AM/PM")

• B6 셀의 시간을 변환합니다. hh:mm:ss  형식의 시간 형식을 반환합니다. 형식입니다.
• Enter를 누르세요.
• 홈으로 이동 탭을 누른 다음 글꼴을 탭합니다. 그룹.
• 글꼴 색상, 크기 및 스타일을 맞춤설정하세요.

• 시간은 디지털 형식으로 표시됩니다.

자세히 알아보기: Excel에서 실행 중인 시계를 만드는 방법 

방법 2 – Shapes 도구 및 Excel VBA를 사용하여 디지털 시계 디자인

1단계 : 디자인 시계

• 삽입> 일러스트레이션> 도형 으로 이동 탭.

• 도형 옵션 상자에서 블록 화살표를 찾습니다. 그룹을 클릭하고 오각형 화살표를 선택하세요.
• 결과적으로 통합 문서에 오각형 화살표가 삽입됩니다.

• 복사-붙여넣기 명령을 사용하여 다른 화살표 모양을 삽입하세요.
• 새로 삽입된 화살표를 선택하고 도형 형식> 회전으로 이동합니다. 탭.
• 수평 뒤집기 를 선택합니다. 옵션입니다.

• 각 화살표를 복사하여 모아서 둥근 모양을 만드세요.
• 회전 사용 필요에 따라 옵션을 선택할 수 있습니다.

• 모든 화살표를 8개(8)로 재배열합니다. ) 모양.
• 첫 번째 숫자를 맞춤설정하고 각 화살표 그룹을 마우스 오른쪽 버튼으로 클릭한 후 1부터 순차적으로 이름을 지정합니다. .

• 전체 그룹을 복사하여 붙여넣어 hh:mm:ss를 제공합니다. 형식은 아래와 같습니다.
• 1 에서 이름을 지정하세요. 42까지 .
• 타원형 4개 추가 도형을 지정하고 점으로 이름을 지정합니다. .
• 둥근 직사각형 3개 추가 3 삽입 명령 옵션:시작 , 중지 및 재설정 .

• 시계에 대한 표시 형식을 구축했습니다.
• 이제 형식에 VBA 코드가 포함됩니다.

2단계 : Excel VBA 코드 삽입

• Alt+F11을 누르세요. 기본 비주얼 을 열려면 창.
• 다음 VBA 코드를 추가하세요.

Sub Digital_Clock_Autoshapes(FS As Integer, Digi As Integer)
Dim n As Integer
Dim Spe As Shape
Dim Shw As Worksheet
Set Shw = ActiveSheet
Dim i As Integer
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
Spe.Visible = msoCTrue
Next i
If Digi = 0 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 2 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 1 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i <> FS + 1 And i <> FS + 5 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 2 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 3 Or i = FS + 5 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 3 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 3 Or i = FS + 4 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 4 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS Or i = FS + 4 Or i = FS + 6 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 5 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 1 Or i = FS + 4 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 6 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 1 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 7 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 3 Or i = FS + 2 Or i = FS + 4 Or i = FS + 6 Then
Spe.Visible = msoFalse
End If
Next i
End If
If Digi = 9 Then
For i = FS To FS + 6
Set Spe = Shw.Shapes(VBA.Format(i, "0"))
If i = FS + 4 Then
Spe.Visible = msoFalse
End If
Next i
End If
End Sub

• 창을 닫고 활성 통합문서로 이동하세요.

• 추가 3 다른 VBA 코드는 다음과 같습니다.
• 시작을 위해 명령을 입력하고 다음을 입력하세요:

Sub Start_Clock()
Dim Shw As Worksheet
Set Shw = ActiveSheet
Shw.Range("B5").Value = ""
x:
If Shw.Range("B5").Value = "Stop" Then Exit Sub
VBA.DoEvents
Call Digital_Clock_Autoshapes(1, VBA.CInt(VBA.Left(VBA.Format(Time, "HH"), 1)))
Call Digital_Clock_Autoshapes(8, VBA.CInt(VBA.Right(VBA.Format(Time, "HH"), 1)))
Call Digital_Clock_Autoshapes(15, VBA.CInt(VBA.Mid(VBA.Format(Time, "HHMM"), 3, 1)))
Call Digital_Clock_Autoshapes(22, VBA.CInt(VBA.Right(VBA.Format(Time, "HHMM"), 1)))
Call Digital_Clock_Autoshapes(29, VBA.CInt(VBA.Left(VBA.Format(Time, "SS"), 1)))
Call Digital_Clock_Autoshapes(36, VBA.CInt(VBA.Right(VBA.Format(Time, "SS"), 1)))
Dim Spe As Shape
Set Spe = Shw.Shapes("Point")
If Application.WorksheetFunction.IsEven(VBA.Second(VBA.Now)) Then
Spe.Visible = msoCTrue
Else
Spe.Visible = msoFalse
End If
GoTo x
End Sub

• 정지 코드를 추가하세요. 명령.

Sub Stop_Clock()
Dim Shw As Worksheet
Set Shw = ActiveSheet
Shw.Range("B5").Value = "Stop"
End Sub

• 재설정을 위한 VBA 코드를 추가하세요. 명령:

Sub Reset_Clock()
Dim n As Integer
Dim Spe As Shape
Dim Shw As Worksheet
Set Shw = ActiveSheet
Dim i As Integer
For i = 1 To 42
 Set Spe = Shw.Shapes(VBA.Format(i, "0"))
 Spe.Visible = msoCTrue
Next i
Set Spe = Shw.Shapes("Point")
Spe.Visible = msoCTrue
End Sub

• 시작을 마우스 오른쪽 버튼으로 클릭하세요. 명령을 내리고 매크로 할당을 탭하세요. .

• Start_Clock 할당 시작 매크로 명령.
• 시계 재설정 할당 및 Stop_Clock 명령 옵션 재설정 그리고 중지 각각.
• 확인을 누르세요. .

• 명령 옵션이 포함된 디지털 시계가 나타납니다.

자세히 알아보기: Excel에서 아날로그 시계를 만드는 방법 

연습 문제집 다운로드

관련 기사

• Excel에서 시계 차트를 만드는 방법
• VBA 코드를 사용하여 Excel에서 디지털 시계를 만드는 방법