エクセルのマクロを起動させておいて、１日に１０回ほど決まった時刻に決まった作業をさせるマクロの書き方をお教えください。具体的には楽天証券のＲＳＳで決まった時刻の株価を記録しておきたいのです。

（１）ループさせ続ける

無限ループのようなコードを書き、時刻を適宜チェックするという荒業。

CPU使いっぱなしになりますし、ループを続ける事によって

フリーズしたりする可能性も結構高いので、一時凌ぎ以外には使えません。

（２）タイマーコントロール系のフリーソフトを使う

どれがどれやら・・・何とも言えません。

（３）Windowsのタスクスケジューラを使う

Excelを動かし続けるのではなくて

WindowsのタスクスケジューラでExcelを定時的に起動させるのがスマート。

マクロ名をAutoExecにしておけばブックを開いた時に動きだします。

VBScriptを使えればExcelを起動することなく（実際には裏で動いているけど）行えるので

よりスマートなシステムにすることも可能だけれど覚える事が増えるので割愛。

＠IT：Windows TIPS -- Tips：タスク・スケジューラとWSHで定例処理を実現する

kn1967さんの（１）の方法でやってみました。

Do～Loopで無限ループにすると、私のＰＣ環境はクアッドコアだったので、

４つのコアの内１つが常に最大状態で、２５％程度の使用率。

できなくもないが、一般的じゃなくてメモリのこともあるし実用的じゃないですね。

（３）のタスクスケジューラでブックを開くときにマクロが実行されて、終了したら閉じるようにするのが実用的だと思います。

因みに、（１）で作ったコードは以下。

シートにスタートストップボタンを作って、シートモジュールに

Private Sub CommandButton1_Click()
    If fRun Then
        fStop = True
        CommandButton1.Caption = "スタート"
    Else
        CommandButton1.Caption = "ストップ"
        Call TimerTest
    End If
End Sub

標準モジュールに

Option Explicit

Public fStop As Boolean
Public fRun As Boolean

Sub TimerTest()
    Dim i As Integer
    Dim f As Boolean
    Dim strTime  As String
    Dim strTime2 As String
    Dim setTime(1 To 6) As String
    
    setTime(1) = "8:30"
    setTime(2) = "8:50"
    setTime(3) = "9:00"
    setTime(4) = "9:15"
    setTime(5) = "9:30"
    setTime(6) = "11:00"
    
    fRun = True
    Do
        DoEvents
        If fStop Then Exit Do
        
        strTime = Hour(Now) & ":" & Minute(Now)
        f = False
        For i = 1 To UBound(setTime)
            If setTime(i) = strTime And setTime(i) <> strTime2 Then
                f = True
                strTime2 = setTime(i)
                Exit For
            End If
        Next
        
        If f Then
            'ここに処理が入ります。
            MsgBox strTime
            
        End If
    Loop
    fRun = False
    fStop = False
End Sub

既に解決しているかもしれませんが・・・

一般的に、１０回/日であれば、kn1967さんが書かれているWindowsのタスクの機能がいいと思います。

標準モジュールにauto_run()を記載しておき、タスクでそのExcelファイル名を指定しておく。

ボタンを押した処理をauto_run()に書いておく。

（ただし、セキュリティレベルを「低」にしておく必要があります）

autoexecはAccessの方と思いますので、Excelではauto_runですね。