안녕하세요.
Microsoft Community 사이트를 방문해 주셔서 감사합니다.
Excel에서는 카운트 다운 시간을 계산할 수 없지만, VBA 코드를 복사하여 시간 계산을 하실 수 있습니다.
문의하신 내용에서 카운트다운으로 시간을 세고 싶으시면 아래 작업 방법을 참조해 주시기 바랍니다.
- 셀을 선택하고 셀을 마우스 오른쪽 단추로 클릭하고 셀 서식을 선택한 다음 대화 상자에서 시간을 클릭하고 유형 목록에서 13:30:55를 선택하고 마지막으로 확인을 클릭하여 이 대화 상자를 종료하여 시간 포맷을 지정하십시오.
스크린 샷보기 :
- 서식 설정 셀에 카운트 다운 할 시간을 입력하십시오.
스크린 샷보기 :

- Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.
- 삽입> 모듈을 클릭한 후 다음 VBA를 새 창에 복사합니다.
VBA: Countdown timer.
| 1<br><br><br>2<br><br><br>3<br><br><br>4<br><br><br>5<br><br><br>6<br><br><br>7<br><br><br>8<br><br><br>9<br><br><br>10<br><br><br>11<br><br><br>12<br><br><br>13<br><br><br>14<br><br><br>15<br><br><br>16 |
Dim gCount ``As Date<br><br><br>'Updateby20140925<br><br><br>Sub Timer()<br><br><br> ``gCount = Now + TimeValue(``"00:00:01"``)<br><br><br> ``Application.OnTime gCount, ``"ResetTime"<br><br><br>End Sub<br><br><br>Sub ResetTime()<br><br><br>Dim xRng ``As Range<br><br><br>Set xRng = Application.ActiveSheet.Range(``"E1"``)<br><br><br>xRng.Value = xRng.Value - TimeSerial(0, 0, 1)<br><br><br>If xRng.Value <= 0 ``Then<br><br><br> ``MsgBox ``"Countdown complete."<br><br><br> ``Exit Sub<br><br><br>End If<br><br><br>Call Timer<br><br><br>End Sub |
팁 : 위의 코드에서 E1은 2 단계에서 입력 한 시간 셀을 나타냅니다.
- 실행 버튼을 클릭하거나 F5를 눌러 카운트 다운 타이머를 실행하십시오. 이제 시간은 카운트다운 됩니다.

- 카운트 다운이 끝나면 팝업창이 아래와 같이 뜹니다.

팁 : 통합 문서를 닫지 않으면 실행 중일 때 카운트 다운을 중지할 수 없습니다.
제시해 드린 답변이 도움되었기를 바랍니다
추가적인 내용이 있다면 하단의 [응답] 버튼을 눌러 회신해주시기 바랍니다.
감사합니다.
※ 응답이 문제 해결에 도움이 되었다면, 아래에 있는 답변으로 [표시] 버튼을 눌러 주시기 바랍니다. 이는 유사한 증상을 겪는 다른 사용자들에게 도움이 될 수 있습니다.