Excel 워크시트에서 스톱워치를 만드는 방법은 무엇입니까?

Excel 워크시트에 스톱워치가 필요한 경우, 작업을 완료하는 데 걸리는 시간을 추적하는 데 도움이 될 수 있습니다. 아래 스크린샷에 표시된 대로 시작, 중지 및 재설정 버튼으로 스톱워치를 제어할 수 있다고 상상해 보세요. 시작 버튼을 클릭하면 타이머가 시작되고, 중지 버튼은 일시 정지하며, 재설정 버튼은 시간을 초기화합니다. 이 문서에서는 VBA 코드를 사용하여 Excel에서 간단하지만 기능적인 스톱워치를 만드는 방법을 단계별로 설명하겠습니다.

VBA 코드를 사용하여 세 개의 버튼이 있는 스톱워치 만들기

 VBA 코드를 사용하여 세 개의 버튼이 있는 스톱워치 만들기

시작, 중지 및 재설정이라는 세 개의 버튼이 있는 스톱워치를 만들려면 다음 단계를 하나씩 수행하세요.

먼저, 세 개의 명령 버튼을 삽입합니다.

1. "개발 도구" > "삽입" > "명령 단추"를 클릭하세요. 스크린샷 참조:

2. 그런 다음 마우스를 드래그하여 단추를 그립니다. 단추를 삽입한 후 단추 캡션을 변경할 수 있습니다. "개발 도구" > "속성"을 클릭하고 "속성" 대화 상자에서 "캡션" 옆의 텍스트 상자에 새 캡션 "시작"을 입력하세요. 스크린샷 참조:

3. 위 두 단계를 반복하여 다른 두 개의 단추를 삽입하고 각각 "중지"와 "재설정"으로 캡션을 지정하세요. 스크린샷 참조:

4. 단추를 삽입한 후 "개발 도구" > "디자인 모드"를 클릭하여 디자인 모드를 종료합니다.

두 번째로, VBA 코드를 작성합니다.

5. 그리고 나서 현재 워크시트 탭을 마우스 오른쪽 버튼으로 클릭하고 "코드 보기"를 선택하세요. 나타난 "Microsoft Visual Basic for Applications" 창에서 다음 코드를 복사하여 "Sheet Code"에 붙여넣으세요:

Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
  StartTime = Timer
  PauseTime = 0
  LastTime = 0
Else
  StartTime = 0
  PauseTime = Timer
End If
StartIt:
  DoEvents
  If StopIt = True Then
    LastTime = TotalTime
    Exit Sub
  Else
    FinishTime = Timer
    TotalTime = FinishTime - StartTime + LastTime - PauseTime
    TTime = TotalTime * 100
    HM = TTime Mod 100
    TTime = TTime \ 100
    hh = TTime \ 3600
    TTime = TTime Mod 3600
    MM = TTime \ 60
    SS = TTime Mod 60
    Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
    If ResetIt = True Then
      Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
      LastTime = 0
      PauseTime = 0
      End
    End If
    GoTo StartIt
  End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  StopIt = True
End Sub
Private Sub CommandButton3_Click()
  Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
  LastTime = 0
  ResetIt = True
End Sub

참고: 위 코드에서 "C2"는 스톱워치 시간이 삽입될 셀이며, "CommandButton1", "CommandButton2", "CommandButton3"는 단추 이름입니다. 정확한 단추 이름은 "이름 상자"에서 확인할 수 있습니다. 스크린샷 참조:

세 번째로, 스톱워치 시간 셀을 서식 지정합니다.

6. 그런 다음 시간 셀을 "텍스트" 형식으로 서식을 지정해야 하며, 필요에 따라 셀 크기, 글꼴, 글꼴 색상, 배경 등을 변경할 수 있습니다. 스크린샷 참조:

7. 위 단계를 모두 완료한 후부터 "시작" 버튼을 클릭하면 시간이 시작되고, "중지" 버튼을 클릭하면 시간이 멈춥니다. "재설정" 버튼은 시간을 초기화합니다. 스크린샷 참조:

데모: VBA 코드를 사용하여 세 개의 버튼이 있는 스톱워치 만들기