MENU
知の森へ
  1. ホーム
  2. VBA樹林
  3. 【VBA】図形にカウントダウンタイマーを表示する方法｜Excelで作れる簡易タイマー

【VBA】図形にカウントダウンタイマーを表示する方法｜Excelで作れる簡易タイマー

VBA樹林

Excel VBAを使えば、ワークシート上の図形にカウントダウンタイマーを表示することができます。
今回は、図形に「残り時間：00:00:00」と表示させて、リアルタイムで1秒ずつカウントダウンされる仕組みを作成してみました。

目次

実現したいこと

  • Excelワークシート上に 図形（例：長方形）を配置
  • 図形内にカウントダウンを表示し、1秒ごとに更新
  • 時間が0になったら「時間切れです！」と表示させたい

手順と準備

1. ワークシートに図形を挿入

「挿入」→「図形」から長方形や楕円など、お好みの図形をワークシートに追加します。

2. 図形に名前をつける

図形を選択した状態で、左上の「名前ボックス」（数式バーの左）に以下のように名前を入力します。

CountdownShape

3. VBAコードを追加

Alt + F11 を押してVBAエディタを開き、標準モジュール（Module1など）に以下のコードを貼り付けてください。

使用するVBAコード

Dim Countdown As Date

Sub StartTimer()
    ' タイマー終了時間をセット（例：10分後）
    Countdown = Now + TimeValue("00:10:00")
    ' 初回のUpdateTimer呼び出し（1秒後）
    Application.OnTime Now + TimeValue("00:00:01"), "UpdateTimer"
End Sub

Sub UpdateTimer()
    Dim RemainingTime As String

    If Now >= Countdown Then
        ' 時間切れ時の表示
        Sheet1.Shapes("CountdownShape").TextFrame.Characters.Text = "時間切れです！"
    Else
        ' 残り時間をhh:mm:ss形式で計算
        RemainingTime = Format(Countdown - Now, "hh:mm:ss")
        ' 図形に残り時間を表示
        Sheet1.Shapes("CountdownShape").TextFrame.Characters.Text = "残り時間: " & RemainingTime
        ' 次のタイマー更新（1秒後）
        Application.OnTime Now + TimeValue("00:00:01"), "UpdateTimer"
    End If
End Sub

コードの解説

StartTimer

  • カウントダウンを開始するサブルーチンです。
  • Countdown 変数に終了時刻を保存し、UpdateTimer を1秒後に実行します。

UpdateTimer

  • 現在時刻と Countdown を比較して、残り時間を計算します。
  • Sheet1.Shapes("CountdownShape") を使って、図形にテキストを反映します。
  • 終了していなければ、再度 OnTime で自分を呼び出します。

注意点

  • Sheet1 は「コードネーム」です。シート名ではない点に注意してください。
    名前を変えている場合は Worksheets("シート名") に置き換えてください。
Worksheets("タイマー").Shapes("CountdownShape").TextFrame.Characters.Text = ...
  • Excelを閉じる、または強制終了した場合、OnTime による呼び出しは止まります。

まとめ

VBAを使えば、図形にリアルタイムで変化するタイマー表示を簡単に実装できます。

  • Application.OnTime を利用して、秒単位で更新
  • 終了時間を Date 型で管理し、正確な残り時間を表示
  • 「時間切れ」のアラートも簡単に実装可能

ちょっとしたプレゼン資料や、作業時間の可視化にも応用できます。
最後までお読みいただき、ありがとうございました。

スクールの紹介

最後に宣伝をさせてください。

夢見るAIエンジニアへ、今こそ一歩を踏み出せ！

最近、AI技術やデータサイエンスに興味を持ち始めたあなた。将来、AIエンジニアやデータサイエンティストとして活躍したいと考えているかもしれません。また、AIを使って業務課題や研究課題を解決したい、あるいは教養としてAIの知識を深めたいと思っている方もいるでしょう。

しかし、学び始めるとなると「どこから手をつけて良いのか分からない」「専門的すぎて理解できない」といった悩みが生じることも。そんなあなたのために、この3ヶ月間集中してAIプログラミングを習得するオンラインコーチングサービスがオススメです！

なぜこのサービスが選ばれるのか？その理由はこちら

  1. 初心者から上級者まで
    完全なプログラミング初心者から研究者まで、幅広い方々に優良なコンテンツが提供されます。
  2. 徹底的な進捗管理
    受講者の進捗をしっかりとチェックし、つまずきやすいポイントでのフォローが万全です。
  3. 専属メンターによる徹底サポート
    AIの学び方から、実際の適用まで、専属のメンターが手厚くサポートします。
  4. 場所を選ばず学べるオンライン完結
    東京以外の地域からも、気軽に学び始めることができます。

信頼の実績多数！
・日本最大級のプログラミングスクール実績
・受講者総数700名以上
・SaaS型学習サービス会員65,000名以上
・企業導入実績120社以上
・グッドデザイン賞受賞
・著名な賞受賞歴や経団連加盟も実現

夢を叶えるための第一歩を、一緒に踏み出しませんか？今なら、あなたもその一員として学び始めることができます！

VBA樹林
VBA
よかったらシェアしてね！
  • URLをコピーしました！
  • URLをコピーしました！

この記事を書いた人

morishuheiのアバター morishuhei

私が勉強したこと、実践したこと、してることを書いているブログです。
主に資産運用について書いていたのですが、
最近はプログラミングに興味があるので、今はそればっかりです。

関連記事

目次