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

워크 시트에 스톱워치가 있으면 작업 완료 시간을 알 수 있습니다. 다음 스크린 샷과 같이 시작, 중지 및 재설정 단추가있는 시트에 스톱워치를 어떻게 만들 수 있습니까? 시작 버튼을 클릭하면 시간이 시작되고, 중지 버튼을 클릭하면 시간이 중지되며, 재설정 버튼을 사용하면 시간을 재설정 할 수 있습니다. 이 기사에서는 Excel에서 간단하고 편리한 스톱워치를 만드는 방법에 대해 설명합니다.

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

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

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

먼저 세 개의 명령 단추를 삽입하십시오.

1. 딸깍 하는 소리 개발자 > 끼워 넣다 > 명령 단추, 스크린 샷 참조 :

2. 그런 다음 마우스를 드래그하여 버튼을 그립니다. 버튼을 삽입 한 후 버튼 캡션을 변경할 수 있습니다. 개발자 > 등록,에 등록 대화 상자에 새 캡션을 입력하십시오.“스타트”옆의 텍스트 상자에있는이 버튼 표제, 스크린 샷 참조 :

3. 위의 두 단계를 반복하여 다른 두 개의 버튼을 삽입하고 "중지"및"다시 쓰기”, 스크린 샷 참조 :

4. 버튼을 삽입 한 후 버튼을 클릭하여 디자인 모드를 종료해야합니다. 개발자 > 디자인 모드.

둘째, VBA 코드를 만듭니다.

5. 그런 다음 현재 워크 시트 탭을 마우스 오른쪽 단추로 클릭하고 코드보기, 튀어 나온 응용 프로그램 용 Microsoft Visual Basic 창에 다음 코드를 복사하여 붙여 넣으십시오. 시트 코드:

VBA 코드 : 스톱워치 만들기 :

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 스톱워치 시간이 삽입 될 셀이며 커맨드 버튼1, 커맨드 버튼2, 커맨드 버튼3 버튼 이름입니다. 정확한 버튼 이름은 이름 상자, 스크린 샷 참조 :

셋째, 스톱워치 시간 셀의 형식을 지정합니다.

6. 그런 다음 시간 셀을 다음과 같이 형식화해야합니다. 본문 형식, 필요에 따라 셀 크기, 글꼴, 글꼴 색상, 배경 등을 변경할 수 있습니다. 스크린 샷을 참조하십시오.

7. 위의 단계를 마친 후 지금부터 스타트 버튼을 누르면 시간이 시작됩니다. 중지 버튼을 누르면 시간이 중지됩니다. 다시 쓰기 버튼은 시간을 재설정합니다. 스크린 샷 참조 :

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

---

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

• 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
• 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
• 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
• 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
• 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
• 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
• 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
• 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
• 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.

자세히보기 ... 무료 다운로드... 매수... 

---

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

• Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
• 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
• 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!

자세히보기 ... 무료 다운로드... 매수...