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

'URLを開く
Private Function ExIeOpenUrl() As Boolean
    Dim starttim As Single
    
    ExIeOpenUrl = True

On Error GoTo ErrEnd
    tInternetExp.Navigate Range("G" & DoDispRow)
    tInternetExp.Visible = True

    starttim = Timer
    Do
        '完了
        If tInternetExp.ReadyState = 4 Then
            Exit Do
        End If

        If Timer - starttim > 20 Then
            tInternetExp.Stop
            MsgBox "20秒経過しましたがURLをオープンできません。処理を中止します。" & vbCrLf & _
                "URL： " & Range("G" & DoDispRow)
            ExIeOpenUrl = False
            Exit Do
        End If
        DoEvents
    Loop
    Exit Function
ErrEnd:
    ExIeOpenUrl = False
    MsgBox "インターネットエクスプローラーのURLオープンに失敗しました。" & vbCrLf & _
        "URL： " & Range("G" & DoDispRow) & vbCrLf & _
        Err.Description
End Function


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

'開始ボタン
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
    
    Set tInternetExp = Nothing
End Sub