読者です 読者をやめる 読者になる 読者になる

PU-METALのブログ

日銀にはウンザリなのでポンドル専になりました

下準備完了のような気が

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

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

 

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

 

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

一応ここに残しとこうと

f:id:kohnodechu:20170127024730p:plain

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