Excelで巡回ソフトを作ってみよう

Private Sub CommandButton3_Click()
    ExStop
End Sub

'タイマー
Private Sub ExTimer(wtim As Long)
    Dim st As Long
    Dim tim As Long
    Dim pass As Long
    
    tim = wtim * 1000
    '開始時間を取得
    st = GetTickCount
    DoEvents
    Do
        pass = GetTickCount - st
        Range("D5") = wtim - Int(pass / 1000)
        DoEvents
        
        If pass >= tim Then
            '時間が経過した
            Exit Do
        End If
        If StopFlag Then
            Exit Do
        End If
    Loop
End Sub

Private Sub ExStop()
    StopFlag = True
    CommandButton1.Enabled = True
    CommandButton2.Enabled = False
    CommandButton3.Enabled = False
    Range("D5") = ""
End Sub

Private Sub ExStartTour()
    Do
        ExNextDispUrl
        DoEvents
        If StopFlag Then
            Exit Do
        End If
        
        ExTimer Range("D12")
    
        'IEが閉じていた場合
        If tInternetExp Is Nothing = False Then
            Set tInternetExp = Nothing
    
            If ExIeOpen = False Then
                Exit Sub
            End If
            tInternetExp.Visible = True
        End If
        
        'URLを開く
        If ExIeOpenUrl = False Then
            Exit Sub
        End If
    Loop
End Sub


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

'開始ボタン
Private Sub CommandButton1_Click()
    If Range("D12") = "" Then
        MsgBox "巡回間隔を入力してください。"
        Exit Sub
    End If
    If ExNumChek("D12") = False Then
        MsgBox "巡回間隔は1～100の数値を入力してください。"
        Exit Sub
    End If
    
    If Range("D13") = "" Then
        MsgBox "巡回回数を入力してください。"
        Exit Sub
    End If
    If ExNumChek("D13") = False Then
        MsgBox "巡回回数は1～100の数値を入力してください。"
        Exit Sub
    End If

    Range("H2:H101") = ""
    
    '次に表示するURL
    If ExNextDispUrl = False Then
        Exit Sub
    End If

    'IEを開く
    If ExIeOpen = False Then
        Exit Sub
    End If
    
    'URLを開く
    If ExIeOpenUrl = False Then
        Exit Sub
    End If
    
    CommandButton1.Enabled = False
    CommandButton2.Enabled = True
    CommandButton3.Enabled = True
    StopFlag = False
        
    ExStartTour
    
    Set tInternetExp = Nothing
End Sub