ユーザーフォームのラベルに時間を表示させてずっと時間がちゃんと動くような方法はありますか？コード書い

ユーザーフォームのラベルに時間を表示させてずっと時間がちゃんと動くような方法はありますか？コード書いていただけると助かります

No.1 回答者： fujillin 回答日時： 2023/03/24 16:18

こんにちは

仮にフォームがUserForm1、ラベルがLabel1とするなら、標準モジュールに

Private flag As Boolean

Sub timeDisp()
UserForm1.Label1.Caption = Format(Now, "hh:mm:ss")
DoEvents
If flag Then
Application.OnTime Now() + 1 / 86400, "timeDisp"
End If
End Sub

Sub timeStop()
flag = False
End Sub

のようなものを用意しておいて、
・フォーム表示時にflag=TrueにしてフォームをShow
・フォームのInitializeイベントでtimeDispを呼び出し
することで、時刻が表示（更新）されるようになります。

ただし、そのままではずっと更新され続けますので、
・QueryCloseイベントで、timeStopを実行するなどが必要となります。