Excelワークシートでストップウォッチを作成するにはどうすればよいですか？

ワークシートにストップウォッチがある場合は、ジョブを終了する時間がわかります。 次のスクリーンショットに示すように、開始、停止、リセットボタンを使用してシートにストップウォッチを作成するにはどうすればよいですか？ [開始]ボタンをクリックすると開始時刻になり、[停止]ボタンをクリックすると停止時刻になります。[リセット]ボタンを使用すると、時刻をリセットできます。 この記事では、Excelでシンプルで便利なストップウォッチを作成する方法について説明します。

VBAコードを使用して、XNUMXつのボタンでストップウォッチを作成します

VBAコードを使用して、XNUMXつのボタンでストップウォッチを作成します

スタート、ストップ、リセットのXNUMXつのボタンでストップウォッチを作成するには、次の手順をXNUMXつずつ実行してください。

まず、XNUMXつのコマンドボタンを挿入します。

1に設定します。 OK をクリックします。 Developer > インセット > コマンドボタン、スクリーンショットを参照してください：

2。 次に、マウスをドラッグしてボタンを描画します。ボタンを挿入した後、ボタンのキャプションを変更できます。クリックしてください Developer > プロパティ、で プロパティ ダイアログで、新しいキャプション「開始の横にあるテキストボックスのこのボタンの「」 キャプション、スクリーンショットを参照してください：

3。 上記のXNUMXつの手順を繰り返して、他のXNUMXつのボタンを挿入し、「Force Stop"と"リセット」、スクリーンショットを参照してください：

4。 ボタンを挿入した後、をクリックしてデザインモードを終了する必要があります Developer > デザインモード.

次に、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

Note：上記のコードでは、 C2 ストップウォッチ時間が挿入されるセルであり、 コマンドボタン1, コマンドボタン2, コマンドボタン3 ボタン名は、から正確なボタン名を表示できます 名前ボックス、スクリーンショットを参照してください：

第三に、ストップウォッチタイムセルをフォーマットします。

6。 次に、タイムセルを次のようにフォーマットする必要があります テキスト フォーマットし、必要に応じてセルサイズ、フォント、フォントの色、背景などを変更できます。スクリーンショットを参照してください。

7。 上記の手順を終えた後、これからクリックすると 開始 ボタンをクリックすると、今から時間が始まります。 Force Stop ボタン、それは時間を停止します、 リセット ボタンは時間をリセットします。スクリーンショットを参照してください。

デモ：VBAコードを使用して、XNUMXつのボタンでストップウォッチを作成します