経過時間のリアルタイム表示 |
フォーム上の任意のボタンがクリックされた後の経過時間を刻一刻と表示させる方法について説明しています。 |
Public stTime As Date Option Explicit Private Sub CommandButton1_Click() stTime = Now() Debug.Print stTime TimeModule End Sub Sub TimeModule() Do DoEvents UserForm1.Label1.Caption = Format$(Now() - stTime, "hh:mm:ss") ' if 〜ここにストップする条件を書く〜 then exit do Loop End Sub ------------------------------------------------------------ Labelを使用しましたが、Textでも可能です。その場合はCaptionの所がTextになります。 時間まで表示しなくてもよい(たとえば分と秒だけとか・・・) であれば、Format$の後の"hh:mm:ss"を修正してください。 (たとえば、"mm:ss" 分:秒 "ss" 秒だけ) |