vba - マクロ VBA (Excel 2010) - ユーザー フォームに秒単位でシステム時間を表示する

Question

ユーザーフォームで実行中の秒数でシステム時間を表示する方法を教えてください-vba Excel 2010

ビジュアルベーシックタイマーオブジェクトと同じですが、マクロでこのようなものを見つけることができません

ありがとう...

Answer 1

以下のようにこれを行うことができます ( Ozgrid.Com フォーラムにあります) :

Label1というラベルの付いた UserForm に、以下のコードを入力します。

Private Sub UserForm_Initialize()
    Me.Label1 = Time
    Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
End Sub


Private Sub UserForm_Terminate()
    Application.OnTime Time + TimeValue("00:00:01"), "Live_time", , False
End Sub

Public モジュールに、次のコードを追加します。

Sub Live_time()
    Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
    UserForm1.Label1 = Time
    UserForm1.Repaint
End Sub

次に、ラベルを付けてフォームを実行します。