カウントダウンタイマーを作りたい。【VBA】

2023年12月10日2023年12月19日

経緯

VBAでカウントダウンタイマーとやらを作ってみたくて、今回作ってみました。

コード

以下はコードです。以下が手順です。図形を作ってその中の数値がカウントダウンする仕様です。

Excelワークシートに図形を挿入: ワークシートに図形（例えば長方形）を挿入します。挿入したい図形を選択し、ワークシートにドラッグして作成します。
図形に名前を付ける: 図形を選択した状態で、「名前ボックス」（フォーミュラバーの左側にある小さなボックス）に名前を入力します（例：CountdownShape）。
VBAコードを修正: カウントダウンタイマーのVBAコードを次のように修正します：

Dim Countdown As Date

Sub StartTimer()
    ' タイマーをセットする時間（例：10分）
    Countdown = Now + TimeValue("00:10:00")
    ' タイマーを更新するためのループを開始
    Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="UpdateTimer", Schedule:=True
End Sub

Sub UpdateTimer()
    If Now >= Countdown Then
        ' 時間切れの場合、図形のテキストを更新
        Sheet1.Shapes("CountdownShape").TextFrame.Characters.Text = "時間切れです！"
        Exit Sub
    Else
        ' 残り時間を計算
        Dim RemainingTime As String
        RemainingTime = Format((Countdown - Now), "hh:mm:ss")
        ' 図形のテキストを残り時間で更新
        Sheet1.Shapes("CountdownShape").TextFrame.Characters.Text = "残り時間: " & RemainingTime
        ' タイマーを再度更新
        Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="UpdateTimer", Schedule:=True
    End If
End Sub

という感じです。

参考になれば、幸いです。

ここまで読んでいただきありがとうございました。