Excelでカウントダウンタイマーを挿入するにはどうすればよいですか？

限られた時間内にデータを処理したい場合、データワークシートにカウントダウンタイマーを挿入でき、カウントダウンが終了するとポップアップダイアログでお知らせします。ここでは、Excelにカウントダウンタイマーを挿入するためのVBAコードをご紹介します。

Excelにカウントダウンタイマーを挿入

Excelにカウントダウンタイマーを挿入

Excelでは時間のカウントダウンはできませんが、以下のVBAコードを使用して時間をカウントダウンすることができます。

1. セルを選択し、右クリックして「セルの書式設定」を選択することで、そのセルを時間形式に設定します。ダイアログボックスで「時間」を選択し、「タイプ」リストから「13:30:55」を選んで、最後に 「OK」をクリックしてダイアログを閉じます。スクリーンショットをご覧ください：

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. カウントダウンが終了すると、ポップアップダイアログが表示され、お知らせします。

ヒント: ワークブックを閉じない限り、カウントダウンを途中で停止することはできません。