5分間隔で処理実行ついて

 5分間隔で処理を実行するための、サンプルコードを以下に示します。
 EXCELのVisual Basic Editor(以降VBE)に入力してください。

 注意:マクロを実行するとセルのA1〜A10に確認のために現在時刻を表示させます。
 文字が書かれていても上書きしてしまいますので、実行前には保存してください。

 サンプルコードはテストして公開してますが、自己責任で実行してください。

5分間隔で処理実行



 ステップ1   ・・・ EXCELを起動する。

 ステップ2   ・・・ VBEに以下のように入力する。

 ステップ3   ・・・ Macro1を実行する。

 変更するポイントは
 PauseTime = 300 ・・・ 秒で指定します。1分なら60に変更。
 Sub メイン処理  ・・・ 行わせたい処理内容に変更。
 For lp = 1 To 10 ・・・ 試しに10回にしています。回したいだけ回す。

 最後に、Timer関数は日付をまたぐとうまく動作しませんのでご注意ください。




Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim lp As Integer

Sub Macro1()
    Dim PauseTime, Start
    
    PauseTime = 300
    
    For lp = 1 To 10
        Start = Timer
        
        Call メイン処理
        
        Do While Timer < Start + PauseTime
            DoEvents
            Call Sleep(1)
        Loop
    Next lp

End Sub

Private Sub メイン処理()
        Cells(lp, 1).Select
        Cells(lp, 1) = Now()
        Selection.NumberFormatLocal = "h""時""mm""分""ss""秒"""
End Sub
						
 




自動売買TOPへ戻る