PU-METALのブログ

日銀にはウンザリなので外貨専になりました

4本値並べて日時が狂ってたら挿入するやつ

この頃NT倍率に興味が出てやってるところ

日経とTOPIX並べて同日時で比較したいのだが、日時がズレる場合が有るのよね~

通貨ペア同士の比較でも常に有ることだし基本として置いとこう

 

これは2011/2/14~11/18で225先物は昼休みが無くなったのにTOPIXの方には有る

それを修正するのに

225の4本値までをコピー。TOPIXに挿入。11時の4本値を挿入したセルに貼付

f:id:kohnodechu:20171110104828p:plain

をこれに

f:id:kohnodechu:20171110105353p:plain

 

マクロの自動記録

Sub Macro2()
Range("A49444:F49448").Select
Application.CutCopyMode = False
Selection.Copy
Range("H49444").Select
Selection.Insert Shift:=xlDown
Range("J49443:M49443").Select
Application.CutCopyMode = False
Selection.Copy
Range("J49444:M49448").Select
ActiveSheet.Paste
End Sub

 

選択した範囲で使えるように整理した

Sub 挿入()
Dim Rp As Range 'rpは日付
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Rp In Selection
With Rp
If .Offset(, 1).Value = 0.46875 Then
.Resize(5, 6).Copy
.Offset(, 7).Insert Shift:=xlDown
.Offset(-1, 9).Resize(1, 4).Copy
.Offset(, 9).Resize(5, 4).PasteSpecial
End If
End With
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub