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

'練習問題1
Private Sub Ex1exercise()
    Dim tim As Long
    
    tim = 10
    Label2.Caption = "[ B10 ] セルに [ 125 ] と入力してください。"
    
    stTime = Timer
    'シートにフォーカス
    Sheet1.Range("B4").Select
    Do
        '経過時間の確認
        If ExTimeCheck(tim) Then
            '経過後の処理
            Label2.Caption = "時間切れです！！"
            Exit Do
        End If
    Loop Until endFlag = True
    'フォームにフォーカス
    UserForm1.Show
End Sub

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

'開始ボタン
Private Sub CommandButton3_Click()
    CommandButton1.Enabled = True
    CommandButton2.Enabled = True
    CommandButton3.Enabled = False
    Ex1exercise
    CommandButton1.Enabled = False
    CommandButton2.Enabled = False
    CommandButton3.Enabled = True
End Sub