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

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

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

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

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

1.セルを選択し、セルを右クリックして選択することにより、時間フォーマットとしてフォーマットします セルの書式設定、次にダイアログで、をクリックします Time そして、 13:30:55 セクションに 種類 リスト、最後にクリック OK このダイアログを終了します。 スクリーンショットを参照してください：

2.カウントダウンする時間をフォーマットセルに入力します。 スクリーンショットを参照してください：

3。 押す Altキー+ F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

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

先端：ブックを閉じる以外に、実行中のカウントダウンを停止することはできません。