質問掲示板
岡三RSS
集いの広場

こんにちは！！

だいぶ、いろいろと策を練ってみたのですが、
完全な制度で、すべてのTickを記録し続けることは厳しそうです。

理由としましては、
岡三RSSで複数セルを使い一つのデータを取得する際に、
時間軸がずれるという問題があります。
(FCAMDLEを4つ使い、始値、高値、安値、終値を取るような
1つの時間軸のデータを、4つの関数に分けて取る場合、
1行の始値、高値、安値、終値 で時間軸がずれてしまう)

これを回避するため、岡三オンライン証券さんが、
CSV項目というのを少し前に追加してくれたのですが、
残念ながらTickにはCSV項目が存在しないため、この時間のずれを対応することが難しく、
単純にVBAでデータの退避を行っても、でたらめなデータが出来上がる可能性が高いです。

このためデータの補正をプログラムでする必要が出てくるため、
残念ながらVBAを駆使しても、1件ずつの約定を取得することは厳しいと思います・・・

んーなんか良い手無いかな・・・
悩む・・・

2021年04月05日

大野　様

この度は、早速ご連絡を頂き大変有難うございます。

VBAを駆使しても難しいという事ですね。

FTICK_M関数の「当日売約定数累計」「当日売約定数累計」
が知りたいのですが、こちらを使用してみます。
1分とか10分おきに、自動で更新し、
下に書き出すのも、難しそうでしょうか。

2021年04月05日

大野様

是非、岡三RSSに入金して、実施してみます。

また、教えて頂きたい事がありましたら、連絡をさせていただきます。

この度はご丁寧に教えて頂き、本当に有難うございました。

2021年04月05日

2021-4-6.jpg (96.3KB)

大野様

ご連絡有難うございます。
早速試してみました。

VBAは全てどなたかのコピーでやってきました。
VBAの記述は一切出来ないので、マクロの記録を作成してみました。

大野さんから教わった内容と、自分で作成したマクロを加えて
作成しました。

自分で作成したマクロ記録は、売約定累積-買約定累積を
下に書き込んでいくタイプでM列に書き込んでいきます。


Sub 記録()
'
' 記録 Macro
'

'
Range("M5").Select
Selection.Copy
Range("M7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=NOW()"
Range("L7:M7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("L8").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("O10").Select

End Sub




そこへ大野さんから教わった、
・RSSを手動更新させる
・VBAを1分おきに実行させる
というのを付け加えてみました。
1分以内に沢山出てくるのですが、
場に張り付いて居る時はかなり調子がよいです。

場に張り付いていない時は、元々ご質問させて頂いた
1分毎にデータを更新し、1行分だけデータを出したいと思っております。
下記のその場合はどこを修正したらよろしいでしょうか。
よろしくお願い致します。



Sub 記録()
'
' 記録 Macro
'

'　Private Sub 記録()
Dim NextTime As Variant
Range("M5").Select
Selection.Copy
Range("M7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=NOW()"
Range("L7:M7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("L8").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("O10").Select
NextTime = Now + TimeValue("00:01:00")
Call Application.OnTime(NextTime, "記録")
Application.CommandBars("岡三RSS2").Controls.Item("更新").Execute
End Sub

2021年04月06日

大野さん

ご連絡有難うございます。
返信が遅くなってしまいました。

上手く行ってました。
時間も任意で変更可能でした。
自動記録も大丈夫でした。

感謝致します。
有難うございました。。。

2021年04月08日

大野様

あの後順調に行ってます。

また、1点分からない事がでてきまして、
御質問をお願いしてもよろしいでしょうか。

例えば今までのコードと図を元に御説明を致しますと、
K8に
=AVERAGE(M8:M12)
と入力しますと、その時はいいのですが、
1分経過すると参照行が1行下にスライド
してしまい、
=AVERAGE(M9:M13)
となってしまいます。
=AVERAGE($M$8:$M$12)
にしても駄目みたいです。

これを避けるためにはどのようにしたらよろしいか教えて頂けますでしょうか。
度々のご質問ですが、
どうぞ、よろしくお願い致します。

2021年04月09日

追記で質問お願いできますでしょうか（汗）。

＝FTICK_M("N225","0","当日買約定数累計",D4)
これを読み出す関数は、30行のみとなっておりますが、
コピーして下に書き出す事は可能でしょうか。
8時間実行したら、30×2×8＝480行となるようにしたいのです。

何度も申し訳有りません。

2021年04月09日

大野様

ご連絡ありがとうございます。

1点目は
『=AVERAGE(INDIRECT("M8"):INDIRECT("M12"))』
即解決しました。

問題は
2点目の
「>コピーして下に書き出す事は可能でしょうか」
分かり辛く申し訳ありません。

Ｌ列とＭ列の件は大野様のお陰で、1分毎に書き出すのは
以前解決し、無事稼働させております。

今回はD列とF列になります。
イメージとしては仰る通り、30Ticks分でるのですが
31Ticks目は消えますので、31Ticks以降も消えずに、
書き出す方法は無いかと思い質問をさせて頂きました。
しかし、試していくと、今回余り必要なくなってきましたので、
大丈夫です。

同件か別件でまた質問がでましたら、よろしくお願いいたします。

有難うございます。

2021年04月13日

2021-4-15 質問.jpg (0.5MB)

大野さん

こんにちは
先日はご返答ありがとうございました。

今回は注文をしたいと思い、
https://www.okasan-online.co.jp/ont/use/sample/download/02.html
の中にある、「先物サンプルシート」で作成しましたが、
中々分からないところが有りました。
注文関数を作成しましたので、
正確に注文されるか教えて頂けますでしょうか。


条件
・先物サンプルの横に、Sheet1を作成しS5に「買い」T5に「売り」
　がでれば、売買のサインとします。
・売買条件は途転（16時30分～または8時45分～の最初の注文は新規）。
　最低1回以上の売買をした後引け迄持ち越すので、
　5時30分か15時15分になったら引成行にします。
・ポジションはミニ1枚で、建玉は2枚以上にならないようにしたいです。
・16時30分～5時30分を1取引の区切り、8：45～15：15をもう1つの区切りにします。


質問です。
・発注IDは自分が作成したもので、よろしいでしょうか。
・逆指値は不要なので、決済条件のC37のところは「""」
でよろしいでしょうか。
・新規条件は最初に買いか売りか分からない為、2つの新規条件の関数を作りましたが
新規として売り買い両方持ってしまう事になりそうでしょうか。
そうだとしたらそれを避ける方法は有りますか。
・引成りの関数の作り方が分からなくて、決済条件のIFOR関数の部分の
C36=19としましたが、分かりませんでしたので教えて下さい。


以下、4つの関数になります。

日経225先物ミニ202106限月の新規売り成行で1枚注文。
注文確認、完了メッセージ、注文画面は無し。パスワードは"12345"。
発注IDはF001。有効期限は当セッションのみ。メモはなし。発注条件は成行（FOK）。
逆指値無し
=fneworder(N225mini,202106,1,"",1,1,13,0,1,0,0,0,12345,F001,1,"",12,"")

日経225先物ミニ202106限月の新規買い成行で1枚注文。
注文確認、完了メッセージ、注文画面は無し。パスワードは"12345"。
発注IDはF001。有効期限は当セッションのみ。メモはなし。発注条件は成行（FOK）。
逆指値無し。
=fneworder(N225mini,202106,1,"",1,3,13,0,1,0,0,0,12345,F001,1,"",12,"")

Sheet1のS5に"買い"が出現、または引けになったら、日経225先物ミニ202106限月の決済買い成行（FOK）1枚。
注文確認、完了メッセージ、注文画面は無し。パスワードは"12345"。
発注IDはR001。メモはなし。発注条件は成行（FOK）。逆指値無し。サインがでない場合は、保有。
=IF(OR(Sheet1!S5="買い"，C36=19）),fneworder"N225mini",202106,2,"",1,3,13,0,1,0,0,0,"12345","F001",1,"",13,""),"保有")

Sheet1のT5に"売り"が出現、または引けになったら、日経225先物ミニ202106限月の決済買い成行（FOK）1枚。
注文確認、完了メッセージ、注文画面は無し。パスワードは"12345"。
発注IDはR001。メモはなし。発注条件は成行（FOK）。逆指値無し。サインがでない場合は、保有。
=IF(OR(Sheet1!S6="売り"，C36=19）),fneworder"N225mini",202106,2,"",1,1,13,0,1,0,0,0,"12345","F001",1,"",13,""),"保有")

Sheet1では4:21途転買い、4時24分に途転売り、4時28分のSの5には「買い」とでているので途転買い。
次のサインが出なければ、引け決済成行売りとなります。

ファイルを付けました。
上：注文シートの新規注文2関数
真ん中：注文シートの決済の2関数
下：Sheet1の「買い」「売り」出現の監視シート
となります。

長くなってしまい、申し訳有りません。
恐れ入りますがよろしくお願い致します。

2021年04月15日

2021-4-16 質問.jpg (475.6KB)

大野様

ご連絡有難うございます。

ご質問の件
1．セッション開始時にポジションを持つ(8:45、16:30)
　　この時の売買区分は、S5に準拠？？？

　　→8：45か16：30のセッション開始時に、ポジションがでるとは
　　　限らず、買いか売りかも分かりません。良くあるのは、
　　　数分後に始めての新規を持ちます。
　　　
2．ザラバ中はドテンし続ける
　　　
　　→出来高系のサインですが、出続ければ途転し続けます。
　　　只、セッション開始数分後に新規、引けで決済の2回という時もあります。
　　　また、3～4回で引けを迎える事も有りますし、もみ合うと。
　　　10回以上という事もあります。今回の2週間は揉み合相場でしたので、
　　　1セッション辺り7回～8回でした。もみ合わない場合は、
　　　5回以下だと思います。
　　
3．ポジションが残っていれば引けで決済
　　
　　→5時30分か、15時15分の引けで決済希望です。


新規に質問です。

1.発注IDは「発注毎に異なる文字列」の件ですが、
　1セッションに新規注文が5回あるとすると、
　5回分手入力とかVBAで入力しないと駄目でしょうか。
　それとも1セッションに何回途転売買があろうとも、
　1戦略に発注ID1つあればよろしいでしょうか

2.売り買い両方ポジションを持ってしまうの件ですが、
　送らせていただいた画像の一番上の、
　B2に売り新規条件、B3に買い新規条件を記載しました。
　A2とA26とA41にも注文がありますが、こちらに記載するのでしょうか？
　B2列B26とB41の注文は例ですか。

　　B2に売り新規条件
　=fneworder(N225mini,202106,1,"",1,1,13,0,1,0,0,0,12345,F001,1,"",12,"")
　　B3に買い新規条件
　=fneworder(N225mini,202106,1,"",1,3,13,0,1,0,0,0,12345,F001,1,"",12,"")
　　B41に決済買い条件
　=IF(Sheet1!S5="買い"),fneworder"N225mini",202106,2,"",1,3,13,0,1,0,0,0,"12345","F001",1,"",13,"","保有")
　　B42に決済売り条件
　=IF(Sheet1!S6="売り"),fneworder"N225mini",202106,2,"",1,1,13,0,1,0,0,0,"12345","F001",1,"",13,"","保有")

この4つで無事に注文は通りますでしょうか。

3.事前に途転価格が分からない為、
　出来高で途転しますので、引け前に注文を出すしかないですよね。
　IFOR関数で、途転若しくは、付きそうもない不出来引成って難しいですかね。
　自動売買でも15時位と、早朝に手動で注文を出さないと難しいという事ですね。

　日中仕事をしていて、手を極力加えたくなく、
　引け前決済の件もそうですが、発注IDが凄く気になります。

　ファイルを修正して付けました。
　上：注文シートの新規注文2関数
　真ん中：注文シートの決済の2関数
　下：Sheet1の「買い」「売り」出現の監視シート
　となります。
　
　何度も有難うございます。
　今回もよろしくお願い致します。

2021年04月16日