Excel에서 카운트다운 타이머를 삽입하는 방법은 무엇입니까?

제한된 시간 내에 일부 데이터를 처리하려는 경우, 데이터 워크시트에 카운트다운 타이머를 삽입할 수 있으며, 카운트다운이 끝나면 팝업 대화상자가 표시되어 알림을 받을 수 있습니다. 여기에서는 Excel에 카운트다운 타이머를 삽입하기 위한 VBA 코드를 알려드리겠습니다.

Excel에서 카운트다운 타이머 삽입

Excel에서 카운트다운 타이머 삽입

Excel에서는 시간을 카운트다운할 수 없지만, 다음 VBA 코드를 복사하여 시간을 카운트다운하는 데 도움을 받을 수 있습니다.

1. 셀을 선택하고 마우스 오른쪽 버튼으로 클릭한 후 셀 형식 설정을 선택하여 시간 형식으로 지정합니다. 그런 다음 대화상자에서 시간을 클릭하고 유형 목록에서 13:30:55를 선택한 후 확인을 눌러 대화상자를 종료합니다. 스크린샷 보기:

2. 형식이 지정된 셀에 카운트다운할 시간을 입력합니다. 스크린샷 보기:

3. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

4. 삽입 > 모듈을 클릭하고 새 창에 다음 VBA 코드를 복사합니다.

VBA: 카운트다운 타이머.

Dim gCount As Date
'Updateby20140925
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    MsgBox "Countdown complete."
    Exit Sub
End If
Call Timer
End Sub

팁: 위 코드의 E1은 2단계에서 입력한 시간 셀을 나타냅니다.

5. 실행 버튼을 클릭하거나 F5 키를 눌러 카운트다운 타이머를 실행합니다. 이제 시간이 카운트다운되기 시작합니다.

6. 카운트다운이 완료되면 팝업 대화상자가 표시되어 알림을 받게 됩니다.

팁: 워크북을 닫지 않는 한 실행 중인 카운트다운을 중지할 수 없습니다.