標準モジュール Public mOnTime As Date Sub sample() '実行プロシ

標準モジュール
Public mOnTime As Date
Sub sample() '実行プロシージャ
UserForm1.Show vbModeless
UserForm1.Repaint
End Sub
Sub TimerProc()
UserForm1.Label1.Caption = _
Format(Now(), "yyyy年mm月dd日aaaa") & vbCrLf & Format(Now(), "hh:nn:ss")
End Sub
Sub OnTimeStart()
Call TimerProc
mOnTime = Now() + TimeSerial(0, 0, 1)
Call Application.OnTime(mOnTime, "OnTimeStart")
End Sub
Sub OnTimeStop()
On Error Resume Next
Call Application.OnTime(mOnTime, "OnTimeStart", , False)
End Sub

フォームモジュール（UserForm1）Label1コントロール配置必須
Private Sub UserForm_Initialize()
Call OnTimeStart
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call OnTimeStop
End Sub

このコードなんですがうまくいきません。

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

こんばんは

コードしか記載が無いので・・・

ざっと見て大きな問題はなさそうなので、必要な設定をして動かしてみたところ、当方の環境では問題なく動作しますね。

＞このコードなんですがうまくいきません
処理内容はコードに記載してある通りだと思いますが、それが質問者様の意図通りなのか否かに関しては、当方にはわかるすべがありません。