Excel ワークシートにカウントダウン タイマーを挿入する方法

Excel 自体には、カウントダウン タイマーを含める機能はありません。ただし、Visual Basic for Applications と呼ばれるプログラミング言語を使用すると、簡単なマクロを記述してカウントダウン機能を実行できます。この記事では、ワークシート内での時間管理に適した、タイマーが最大 12 時間までカウントダウンできるようにするマクロを作成する方法を示します。

タイマー セルのフォーマット

ステップ 1

新しく開いたワークシートで、セル A1 に移動します。これがサンプル タイマーの場所になります。

ステップ 2

セル A1 を右クリック [セルの書式設定] を選択します .

ステップ 3

時間を選択 [カテゴリ] ボックスから、時間:分:秒形式のいずれかを選択します。 [OK] をクリックします セル形式を設定します。

マクロを作成

ステップ 1

ALT-F11 を押して、Visual Basic 編集ウィンドウにアクセスします。 . [挿入] をクリックします メニュー バーから [モジュール] をクリックします。 .

ステップ 2

Module1 ウィンドウに次のテキストを入力します:

Dim gCount As Date
サブタイマー()
gCount =Now + TimeValue("00:00:01")
Application.OnTime gCount、「EndMessage」
サブ終了
サブ EndMessage()
Dim xRng As Range
xRng =Application.ActiveSheet.Range("A1") を設定します。
xRng.Value =xRng.Value - TimeSerial(0, 0, 1)
xRng.Value <=0 の場合
MsgBox "カウントダウン完了。"
サブを終了
終了条件
通話タイマー
終了サブ

上記のコード テキストをコピーして貼り付けるか、Module1 ウィンドウに 1 行ずつ入力することができます。 VBA エディターは、必要に応じて書式設定を適用します。

ステップ 3

- をクリックして VBA ウィンドウを最小化します。 右上隅の記号。 [ファイル] をクリックします リボン上で名前を付けて保存 .ファイルを保存する場所を選択します。 [名前を付けて保存] ウィンドウで、ブックに名前を付けて、[Excel マクロ有効ブック (*.xlsm)] を選択します。 ファイルの種類から ドロップダウンリスト。 [保存] をクリックします ワークブックに戻ります。

タイマーの使用

ステップ 1

セル A1 をクリックします 0:3:0 と入力します 、次に Enter を押します .これにより、時間が 0 時間 3 分 0 秒に設定されます。

ステップ 2

[表示] をクリックします タブをクリックし、[マクロ] をクリックします。 . タイマーを選択 マクロ リストから [実行] をクリックします。 . カウントダウン完了になると、タイマー セルがゼロまでカウントダウンを開始します。 ダイアログが開きます。 [OK] をクリックします 仕事に戻ります。

ヒント

セル A1 を使用する必要はありません。タイマーを任意の場所に配置し、タイマー コードの 8 行目のセル参照を A1 から使用するセルに変更します。