良い条件を探すが

今日のポンドルまた２１時間線に跳ね返されるだろうと適当に売り上がりつつ、使えるパターンを求めてを求めてマクロ動かしてみた

前日高値安値ブレイクは取り敢えず正義ということは判ったが、どのパターンも勝率が６０％行かない。DDはまだ計算してないが大きいことが予想され・・・

時間、曜日フィルターでも使ってみて、駄目だったら損益の比率を変えてみるかってところなのです

ここまでの表とプロシージャ

Sub それぞれ()
Dim P As Long '行
Dim Q As Long '列
Dim Rp As Range
Set Rp = Range("a21")
Dim Tk As Long, Ys As Long, Jg As Long, Ds As Long '条件一致
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Rp
For Q = 12 To 75 '買い
For P = 29 To Range("a1048576").End(xlUp).Row
If .Offset(, Q) = "" Or .Offset(, Q).Value = Range("c" & P).Value Then
Tk = 1
End If
If .Offset(1, Q) = "" Or .Offset(1, Q).Value = Range("d" & P).Value Then
Ys = 1
End If
If .Offset(2, Q) = "" Or .Offset(2, Q).Value = Range("e" & P).Value Then
Jg = 1
End If
If .Offset(3, Q) = "" Or .Offset(3, Q).Value = Range("f" & P).Value Then
Ds = 1
End If
If Tk * Ys * Jg * Ds = 1 And Range("i" & P) <> "" Then
.Offset(P - 21, Q).Value = .Offset(P - 21, 8).Value
End If
Tk = 0: Ys = 0: Jg = 0: Ds = 0
Next
Next
For Q = 76 To 139 '売り
For P = 29 To Range("a1048576").End(xlUp).Row
If .Offset(, Q) = "" Or .Offset(, Q).Value = Range("c" & P).Value Then
Tk = 1
End If
If .Offset(1, Q) = "" Or .Offset(1, Q).Value = Range("d" & P).Value Then
Ys = 1
End If
If .Offset(2, Q) = "" Or .Offset(2, Q).Value = Range("e" & P).Value Then
Jg = 1
End If
If .Offset(3, Q) = "" Or .Offset(3, Q).Value = Range("f" & P).Value Then
Ds = 1
End If
If Tk * Ys * Jg * Ds = 1 And Range("l" & P) <> "" Then
.Offset(P - 21, Q).Value = .Offset(P - 21, 11).Value
End If
Tk = 0: Ys = 0: Jg = 0: Ds = 0
Next
Next
End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub