PU-METALのブログ

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

FOREX TESTER用マクロ

225のシストレをやってきたが、この官製相場にはセオリーがどうにも通用しないと諦めた

今年からFX専業で行きます

通貨ペアはポンドル。以前はスプレッドが広くて手を出しかねていたが最近非常に狭くなり、17時には飲み出すアル中トレーダー用のよく動いてくれるドルストレートと云うわけです

で久々にFOREX TESTERからデータをエクスポートした

これを使い易く加工するマクロをここに記録しておきます。以前にもそんなの作ってるのですがもう何処行ったか分からずここに保存しようと

エクスポートする時のシフトタイムは+8h。これで標準時間は東京時間になります

あとサマータイムを東京時間にするマクロをば少々

 

Sub サマータイム()
Dim Rp As Range 'rpは日付
Dim T As Long '標準時間0夏時間1
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Rp In Selection
With Rp
If .Value - .Offset(-1).Value > 1 Then '週明け
If .Offset(, 1).Value = 60000 Then '6時なら
T = 1
ElseIf .Offset(, 1).Value = 70000 Then '7時なら
T = 0
End If
End If
If T = 1 And .Offset(, 1).Value < 230000 Then '夏で23時前
.Offset(, 1).Value = .Offset(, 1).Value + 10000
ElseIf T = 1 And .Offset(, 1).Value >= 230000 Then '夏で23時台
.Offset(, 1).Value = .Offset(, 1).Value - 230000

.Value = .Offset(4).Value'そのままだと日付ずれるので

End If
End With
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

ここに貼り付けるとTabが消えるのが難

 

無事1発で実行完了。東京時間に

40万行も有るから何十分も掛かるかと思いきや1分ほどでした

f:id:kohnodechu:20170123173145p:plain