エクセルのマクロのタイマー機能について

質問

エクセルのマクロのタイマー機能について

エクセルのマクロで指定した時間ごとにＵＲＬをクリックするマクロを作っています。
下記のように作っていますが、もっと簡略化して短い記述にしたく思います。

ＵＲＬと指定時間は別のマクロで生成して、ＵＲＬはA1～A49まで、指定時間はB1～B490までセルに書きこむようにしています。
URLはA49まで読んだらA1から読み直して10往復して、490回使用します。

使用するセルを一回ごとにずらしていくだけなので、簡単に出来そうな気もしますが、マクロ初心者のためわかりません＞＜

恐れ入りますが、ご教授いただければ幸いです。
ちなみにエクセル２００７で作成しています。

Sub 一定の時間間隔でマクロを実行する() '進捗状況を示すために準備する
指定時刻 = Now + TimeValue("0時00分05秒")
待ち時間 = TimeValue("0時00分01秒")
Application.OnTime TimeValue(指定時刻), "新規01", TimeValue(待ち時間)
End Sub
Sub 新規01()
Range("A1").Select 'A列のURLを取得
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
指定時刻 = Now + Range("B1").Value 'B列の時間を取得
待ち時間 = TimeValue("0時00分01秒")
Application.OnTime TimeValue(指定時刻), "新規02", TimeValue(待ち時間)
End Sub
Sub 新規02()
Range("A2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
指定時刻 = Now + Range("B2").Value
待ち時間 = TimeValue("0時00分01秒")
Application.OnTime TimeValue(指定時刻), "新規03", TimeValue(待ち時間)
End Sub
　　　　　　　　↓
　　　同様の記述を490回繰り返す
　　　　　　　　↓
Sub 新規建設490()
Range("C1").Value = Now & " 終了"
End Sub
Private Sub 進捗状況を示すために準備する()
Cells.Clear
Columns("A:A").NumberFormatLocal = "yyyy/m/d h:mm:ss"
Range("A1").Select
ActiveCell.Value = Now & " 開始　　　　　　　"
Columns("A:A").EntireColumn.AutoFit
End Sub

回答No.1

jcctaira · ベストアンサー

こんな感じでできるかと思います。

Public 回数 As Integer
Sub 一定の時間間隔でマクロを実行する() '進捗状況を示すために準備する
　回数 = 0
　指定時刻 = Now + TimeValue("0時00分05秒")
　待ち時間 = TimeValue("0時00分01秒")
　Application.OnTime TimeValue(指定時刻), "新規", TimeValue(待ち時間)
End Sub
Sub 新規()
　If (回数 + 1) = 490 Then
　　Range("C1").Value = Now & " 終了"
　　Exit Sub
　End If
　Range("A1").Offset(回数 Mod 49).Select　'A列のURLを取得
　Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
　指定時刻 = Now + Range("B1").Offset(回数).Value 'B列の時間を取得
　待ち時間 = TimeValue("0時00分01秒")
　Application.OnTime TimeValue(指定時刻), "新規", TimeValue(待ち時間)
　回数 = 回数 + 1
End Sub

お礼

早速有難うございます！
家に帰ったら試してみます＾＾