Excel ＶＢＡで株の全自動売買コミュの中級編　指定時刻に保存して閉じる

Sub 指定時刻に保存して閉じる()
Dim Time As Variant, t As Date
Time = TimeValue("15:30")
If Time = "" Then Exit Sub
t = TimeValue(Time)
Application.OnTime t, "Save", _
t + TimeSerial(0, 0, 20)
End Sub

Private Sub Save()
Dim wb As Workbook
For Each wb In Workbooks
wb.Save
Next wb
Application.Quit
End Sub

↑リアルタイムスプッレドシートの値をこれで自動保存して終了します。
そのまえに今日のデータを保存↓
Sub 指定時刻にコピーして張り付け()
Dim Time2 As Variant, ts As Date
Time2 = TimeValue("15:25")
If Time2 = "" Then Exit Sub
ts = TimeValue(Time2)
Application.OnTime ts, "Cope", _
ts + TimeSerial(0, 0, 20)
End Sub
↓」これで今日の終値を前日データといて値をコピーします。（このマクロは徳山式用になってます。自分で微調整して）
Private Sub Cope()
'
' 当日データを前日データにコピー
'
Range("G3:I22").Select
Selection.Copy
Range("D3:F22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("V3:X22").Select
Selection.Copy
Range("S3:U22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("G24:I43").Select
Selection.Copy
Range("D24:F43").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("V24:X43").Select
Selection.Copy
Range("S24:U43").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

End Sub
↑これがあって初めて自動保存マクロが役に立ちます。