ドル円完成

取り敢えずグラフ

ポンドルと同様にやってみたら良いの出来ました

ポンドルはっぱ癖が悪い。ドル円は素直

良いわ～DD小さいから１万で千通貨ってところか

複利でやったら年利１００％目指せるかも？

捕らぬ狸の皮算用の可能性大だけどね

引き続きユーロドルやってみよう。きっと素直

追記

日単位でDDを計算してみた

２００１ｰ２０１６のMAXDD６６００円ほど

複利でやるんじゃ余裕見て１万３千円で千通貨てとこか

ついでにDD求めるプロシージャ置いとこう

Sub maxdd() 'MDDの計算。上から下へ横へ
Dim P As Long '縱
Dim Q As Long '横
Dim Pd As Single 'DD
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Q = 1 To 5
For P = 0 To Range("a1048576").End(xlUp).Row - 28 '都度変える
With Range("a28") '初日　都度変える
If .Offset(P, Q).Value <> "" Then
Pd = Pd + .Offset(P, Q).Value
If Pd >= 0 Then
Pd = 0
ElseIf Pd < Range("a15").Offset(, Q).Value Then 'MDD欄。都度変える
Range("a15").Offset(, Q).Value = Pd '都度変える
End If
End If
End With
Next
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub