Sub 記録()
    Static NowPosi As Long '現在どのポジションを持っているか 0：ノーポジション 1：売り、3：買い
    Dim NextTime As Variant
    Dim OrderID As String

    'ザラバの間の処理
    If "08:45" <= Format(Now(), "HH:MM") And Format(Now(), "HH:MM") <= "15:08" _
       or "16:30" <= Format(Now(), "HH:MM") And Format(Now(), "HH:MM") <= "5:28" Then

        OrderID = Format(Now, "YYYYMMDDHHMMSS")

        '買いポジションの処理
        If Sheets("Sheet1").Range("S5") = "買い" And (NowPosi = 0 Or NowPosi = 1) Then
            If NowPosi = 1 Then
                '売りポジションの決済
                Call Fneworder("N225mini", 202106, 2, "C", "", 3, 13, 0, 1, 1, 1, 1, "パスワードに変えてね", OrderID, 1, "")
            End If

            '買いポジションの新規
            Call Fneworder("N225mini", 202106, 1, "", "", 3, 13, 0, 1, 1, 1, 1, "パスワードに変えてね", OrderID, 1, "")

            NowPosi = 3
        End If

        '売りポジションの処理
        If Sheets("Sheet1").Range("T5") = "売り" And (NowPosi = 0 Or NowPosi = 3) Then
            If NowPosi = 3 Then
                '買いポジションの決済
                Call Fneworder("N225mini", 202106, 2, "C", "", 1, 13, 0, 1, 1, 1, 1, "パスワードに変えてね", OrderID, 1, "")
            End If

            '売りポジションの新規
            Call Fneworder("N225mini", 202106, 1, "", "", 1, 13, 0, 1, 1, 1, 1, "パスワードに変えてね", OrderID, 1, "")

            NowPosi = 1
        End If
    End If

    '大引け
    If ("15:09" <= Format(Now, "HH:MM")) And (Format(Now, "HH:MM") <= "15:14") _
       or "05:24" <= Format(Now(), "HH:MM") And Format(Now(), "HH:MM") <= "5:29" Then

        OrderID = Format(Now, "YYYYMMDDHHMMSS")

        'ここで引けなり発注
        If NowPosi = 1 Then
            '売りポジションの決済
            Call Fneworder("N225mini", 202106, 2, "C", "", 3, 5, 0, 1, 1, 1, 1, "パスワードに変えてね", OrderID, 1, "")

            NowPosi = 0
        End If
        If NowPosi = 3 Then
            '買いポジションの決済
            Call Fneworder("N225mini", 202106, 2, "C", "", 1, 5, 0, 1, 1, 1, 1, "パスワードに変えてね", OrderID, 1, "")

            NowPosi = 0
        End If
    End If


    ' 記録 Macro

    Range("L5:Z5").Select
    Selection.Copy
    Range("L7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("O7").Select
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    NextTime = Now + TimeValue("00:01:00")
    Call Application.OnTime(NextTime, "記録")
    Application.CommandBars("岡三RSS2").Controls.Item("更新").Execute

End Sub