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

Step 6 一時停止ボタンの処理

メニューに戻る

スポンサーリンク






シート

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

'一時停止ボタン
Private Sub CommandButton2_Click()
    CommandButton1.Enabled = True
    CommandButton2.Enabled = False
    CommandButton3.Enabled = True
    StopFlag = True
    PauseFlag = True
End Sub

'IEが閉じているか
Private Function ExIeOpenExists() As Boolean
    Dim s As String
    
    ExIeOpenExists = True
    Err.Number = 0
On Error Resume Next
    s = tInternetExp
    
    If Err.Number <> 0 Then 'IEが閉じていた場合
        ExIeOpenExists = False
    End If
End Function


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

'開始ボタン
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

    If PauseFlag = False Then
        NowDispRow = 0
        Range("H2:H101") = ""
        Range("C19") = Range("D12")
    
        '次に表示する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
    End If
    
    CommandButton1.Enabled = False
    CommandButton2.Enabled = True
    CommandButton3.Enabled = True
    StopFlag = False
        
    '巡回
    ExStartTour
    
    If PauseFlag = False Then
        Set tInternetExp = Nothing
    End If
End Sub

'巡回
Private Sub ExStartTour()
    Do
        If PauseFlag = False Then
            ExNextDispUrl
            'タイマー
            ExTimer Range("D12")
            If StopFlag Then
                Exit Do
            End If
        Else
            PauseFlag = False
            
            If ExIeOpenExists = False Then
                'IEが閉じていれば開く
                If ExIeOpenCheckOpen = False Then
                    ExStop
                    Exit Do
                End If
                DoDispRow = NowDispRow
                'URLを開く
                If ExIeOpenUrl = False Then
                    ExStop
                    Exit Sub
                End If
            End If
            
            'タイマー
            ExTimer Range("D5")
            If StopFlag Then
                Exit Do
            End If
            ExNextDispUrl
        End If
    
        'IEが閉じていれば開く
        If ExIeOpenCheckOpen = False Then
            ExStop
            Exit Do
        End If
        
        'URLを開く
        If ExIeOpenUrl = False Then
            ExStop
            Exit Sub
        End If
    Loop
End Sub

スポンサーリンク



メイン画面

一時停止中の画面
一時停止中の画面

スポンサーリンク






メニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved