ユーザーフォーム上に現在日時と時刻を表示させていますがフォームを実行すると時間が更新されません。それ

ユーザーフォーム上に現在日時と時刻を表示させていますがフォームを実行すると時間が更新されません。それをずっと更新される形にしたいです。ラベルを使用しています。

No.2 回答者： fujillin 回答日時： 2023/02/21 23:39

こんばんは

何をどのようになさっているのか全く不明なので何ともですが・・・

こちらの環境でテストしてみたところ、標準モジュールに
　「フォームのラベル（？）に日時を表示する」
プロシージャを作成しておき、それを1秒毎（＝必要に応じた時間間隔）で実行するようにしておけば動作しますね。
当然ですが、他の処理や、MsgBoxなどで実行が一時停止するような場合には更新されません。


以下、最低限の一例です。
Sub TimeDisp()
　'表示方法は実態に合わせて設定のこと
　’UserFormのラベル.Caption = Format(Now, "hh:mm:ss")
　Application.OnTime Now + TimeValue("00:00:01"), "TimeDisp"
End Sub

を定義しておいて、フォームのInitializeイベントでTimeDispを呼び出す。

※ 上記は仕組みの説明のためだけなので、更新を止める処理を記述していません。
　このため、一旦動くと止まりません。フォームを閉じても動き続けます。
　実際には停止する処理も組み込んでおく必要があるでしょう。

No.1 回答者： zongai 回答日時： 2023/02/21 22:36

書かれてることが情報不足だし、

どういう手法を取ってるのかも全くわからないし、
どういう形が理想なのかもわからないけど・・・

フォームを閉じるときに
Unload UserForm1
のように「Unload」にしてます？
「Hide」でフォームを隠してるだけ？