下準備完了のような気が

夕方ユーロドル高値で買い難平して帰れなくなり今２時半過ぎ

でポンドルシステムの続きをやってました

構想は日足の高値安値ブレイクアウト。それに５日間の平均値幅を組み合わせて･･･

そんな下準備のプロシージャが出来たので、とは云うものの時間がかかるかもしれないので実行は日中　日中やったら８分ほどでした

一応ここに残しとこうと

Sub 日足4本値()
Dim Rp As Range 'rpは日付
Dim Hh As Single, Th As Single, Yh As Single, Oh As Single '日足
Dim Hk As Single, Tk As Single, Yk As Single, Ok As Single '日足計算中
Dim Wa As Single, Wb As Single, Wc As Single, Wd As Single, We As Single, Wh As Single '値幅
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Rp In Selection
With Rp
If .Offset(, 2).Value <> .Offset(-1, 2).Value Then '夜明け
Hh = Hk: Th = Tk: Yh = Yk: Oh = Ok
Hk = .Offset(, 3).Value
Tk = .Offset(, 4).Value
Yk = .Offset(, 5).Value
Wa = Wb: Wb = Wc: Wc = Wd: Wd = We: We = Th - Yh
Wh = (Wa + Wb + Wc + Wd + We) / 5
ElseIf .Offset(, 2).Value <> .Offset(1, 2).Value Then '夜明け前
If .Offset(, 4).Value > Tk Then
Tk = .Offset(, 4).Value
End If
If .Offset(, 5).Value < Yk Then
Yk = .Offset(, 5).Value
End If
Ok = .Offset(, 6).Value
Else
If .Offset(, 4).Value > Tk Then
Tk = .Offset(, 4).Value
End If
If .Offset(, 5).Value < Yk Then
Yk = .Offset(, 5).Value
End If
End If
.Offset(, 7).Value = Hh
.Offset(, 8).Value = Th
.Offset(, 9).Value = Yh
.Offset(, 10).Value = Oh
.Offset(, 11).Value = Wh
End With
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub