通貨ペア同士の日時を揃える

ＮＴ倍率を使った良いシステムが出来たのに味をしめ応用編の研究中

ちなみにＴＯＰＩＸとドル円は駄目でした

じゃあ通貨ペア同士って事で基本のユーロドルとドル円から

先ずやるのはデータが欠けてないかチェック

絶対出るんです

上のように週末や週明け欠けてることがよく有ります

それで下のように修正するマクロ

Sub 挿入()
Dim Rp As Range 'rpは日付
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Rp In Selection
With Rp
If .Offset(, 1).Value < .Offset(, 8).Value Then
.Offset(-1, 7).Resize(1, 6).Copy
.Offset(, 7).Insert shift:=xlDown
.Offset(, 8).Value = .Offset(, 1).Value
.Interior.Color = 65535
ElseIf .Offset(, 1).Value > .Offset(, 8).Value Then
.Offset(-1).Resize(1, 6).Copy
.Insert shift:=xlDown
.Offset(, 1).Value = .Offset(, 8).Value
.Interior.Color = 65535
End If
End With
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

じゃあまた