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

Step 3 巡回先URLをチェックしIEを開く

メニューに戻る

スポンサードリンク



シート

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

'次に表示するURL
Private Function ExNextDispUrl() As Boolean
    Dim lrow As Long
    Dim i As Integer
    Dim n As Integer
    
    ExNextDispUrl = False
    lrow = ActiveSheet.Range("G101").End(xlUp).Row
    If lrow = 1 Then
        MsgBox "巡回先URLを入力してください。"
        Exit Function
    End If
    
    If NowDispRow = 0 Then
        DoDispRow = 2
    End If
    n = 0
    For i = DoDispRow To 101
        If Range("G" & i) <> "" And Range("H" & i) < Range("D13") Then
            n = i
        End If
    Next
    
    '見つからないので始めから
    If n = 0 Then
        For i = 1 To 101
            If Range("G" & i) <> "" And Range("H" & i) < Range("D13") Then
                n = i
            End If
        Next
    End If
    
    If n > 0 Then
        DoDispRow = n
        ExNextDispUrl = True
    Else    '回数終了
        CommandButton1.Enabled = True
        CommandButton2.Enabled = False
        CommandButton3.Enabled = False
    End If
End Function

'インターネットエクスプローラーを開く
Private Function ExIeOpen() As Boolean
    ExIeOpen = True
On Error GoTo ErrEnd
    Set tInternetExp = CreateObject("InternetExplorer.Application")
    Exit Function
ErrEnd:
    ExIeOpen = False
    MsgBox "インターネットエクスプローラーのオープンに失敗しました。" & vbCrLf & Err.Description
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

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

    'IEを開く
    If ExIeOpen = False Then
        Exit Sub
    End If
    
    Set tInternetExp = Nothing
End Sub

スポンサードリンク



メイン画面

巡回間隔を20秒、巡回回数を2回
開始画面

スポンサードリンク





メニューに戻る

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


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved