Excelで基礎講座ソフトを作ってみよう

'テスト用のボタン
Private Sub CommandButton1_Click()
    'ユーザーフォームを開きます.
    UserForm1.Show
End Sub

ユーザーフォームのコード

下記のVBAコードを追加してください。

Option Explicit

'開始時間
Private stTime As Long
'終了フラッグ
Private endFlag As Boolean

'経過時間の確認
Private Function ExTimeCheck(passtime) As Boolean
    Dim ln As Long
    
    ln = Timer - stTime
    '経過時間を表示
    Label1.Caption = ln
    If ln >= passtime Then
         ExTimeCheck = True
    Else
         ExTimeCheck = False
    End If
    DoEvents
End Function

下記のVBAコードに変更してください。

'終了ボタンのクリックイベント
Private Sub CommandButton1_Click()
    '終了フラッグを立てる
    endFlag = True
    DoEvents
    'フォームを閉じる
    Unload UserForm1
End Sub