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

DoEventsを使用しつつ、発注が完了するのを待つ方式

1．マクロから直接呼んでいたMARGINORDERをコメントアウト
2．発注関数を任意のセルに書き込み(以下のサンプルではSheet1のA1)
　　この時、任意のセルに発注番号が出力されるようにする(サンプルではSheet1のB1))
3．B1に発注番号やエラーが戻ってくるまで、DoEventsを呼びながら待機



＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
'元々あった、発注関数を以下の様に変更
'Call MARGINORDER("8609", "", 3, 0, "", 100, "T", "", "", 0, 0, "PASSWORD", 10, 0, 0, 0, 0, 0)
' ↓
'Sheet1のA1セルに発注関数を書き出し、B1のセルに発注番号を戻す
Sheet1.Range("A1").Value ＝ "＝MARGINORDER(""8609"", """", 3, 0, """", 100, ""T"", """", """", 0, 0, ""PASSWORD"", 10, 0, 0, 0, 0, 0, B1)"

'Sheet1のB1に発注番号が戻ってくるまで待機
Call WaitForOrder(Sheet1.Range("B1"))


'発注待機関数
Private Sub WaitForOrder(TargetCell As Range)
Dim LimitTime As Date

'最大10秒待ちます。もしもっと待ちたい場合は下の数字を増やしてください
LimitTime ＝ Now ＋ TimeValue("00:00:10")

Do
DoEvents
If TargetCell.Value ＜＞ "" Then Exit Do
If Now ＞＝ LimitTime Then Exit Do
Loop
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝



※上記の記号(『＝』『／』『＜』『＞』『＋』)は全角になっています。半角に変換してご使用ください。

2020年02月26日

発注関数のような関数を作成し呼び出す方式

MARGINORDER_EXのような、
発注関数を同じような引数を持つ関数を作成し、その中で発注関数の書き込みと待機処理を行う
※追加するコードは増えますが、引数などを岡三RSSの関数と同じにできるため、発注の際のPG修正が少なくなります。


1．マクロから直接呼んでいたMARGINORDERをコメントアウト
2．新しく作った関数へ切り替え


＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
'元々あった、発注関数を以下の様に変更
'Call MARGINORDER("8609", "", 3, 0, "", 100, "T", "", "", 0, 0, "PASSWORD", 10, 0, 0, 0, 0, 0)
' ↓
'Sheet1のA1セルに発注関数を書き出し、B1のセルに発注番号を戻す
Call MARGINORDER_EX("8609", "", 3, 0, "", 100, "T", "", "", 0, 0, "PASSWORD", 10, 0, 0, 0, 0, 0, "B1", Sheet1.Range("A1"))



'拡張した発注待機関数
Public Sub MARGINORDER_EX(BrandCD As String, _
MarketCD As String, _
SalesType As String, _
ExecutiveCondition As String, _
OrderPrice As String, _
OrderAmmaunt As String, _
DurationType As String, _
Duration As String, _
AccountType As String, _
NoCommitConfirm As String, _
NoShowOrderWindow As String, _
Password As String, _
OrderCode As String, _
ExecutiveCondirionRev As String, _
OrderPriceRev As String, _
NoConfirm As String, _
NoShowWarning As String, _
MarginTradingType As String, _
DisplayArea As String, _
TargetArea As Range)

Dim OrderMessage As String
Dim LimitTime As Date

OrderMessage ＝ "＝MARGINORDER("
OrderMessage ＝ OrderMessage & """" & BrandCD & ""","
OrderMessage ＝ OrderMessage & """" & MarketCD & ""","
OrderMessage ＝ OrderMessage & """" & SalesType & ""","
OrderMessage ＝ OrderMessage & """" & ExecutiveCondition & ""","
OrderMessage ＝ OrderMessage & """" & OrderPrice & ""","
OrderMessage ＝ OrderMessage & """" & OrderAmmaunt & ""","
OrderMessage ＝ OrderMessage & """" & DurationType & ""","
OrderMessage ＝ OrderMessage & """" & Duration & ""","
OrderMessage ＝ OrderMessage & """" & AccountType & ""","
OrderMessage ＝ OrderMessage & """" & NoCommitConfirm & ""","
OrderMessage ＝ OrderMessage & """" & NoShowOrderWindow & ""","
OrderMessage ＝ OrderMessage & """" & Password & ""","
OrderMessage ＝ OrderMessage & """" & OrderCode & ""","
OrderMessage ＝ OrderMessage & """" & ExecutiveCondirionRev & ""","
OrderMessage ＝ OrderMessage & """" & OrderPriceRev & ""","
OrderMessage ＝ OrderMessage & """" & NoConfirm & ""","
OrderMessage ＝ OrderMessage & """" & NoShowWarning & ""","
OrderMessage ＝ OrderMessage & """" & MarginTradingType & ""","
OrderMessage ＝ OrderMessage & DisplayArea
OrderMessage ＝ OrderMessage & ")"

TargetArea.Value ＝ OrderMessage


'最大10秒待ちます。もしもっと待ちたい場合は下の数字を増やしてください
LimitTime ＝ Now ＋ TimeValue("00:00:10")

Do
DoEvents
If TargetArea.Parent.Range(DisplayArea) ＜＞ "" Then Exit Sub
If Now ＞＝ LimitTime Then Exit Do
Loop

Call MsgBox("発注結果が取得できませんでした", vbCritical, "エラー")

End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝



※上記の記号(『＝』『／』『＜』『＞』『＋』)は全角になっています。半角に変換してご使用ください。

2020年02月26日

Test.xlsx (25.9KB)

一応、作成したサンプルのExcelファイルも上げておきます。

マクロ付きファイルがあげれないため、拡張子をxlsxにしてあります
ダウンロード後、xlsmに変更しご使用ください！！


また、本サンプルはすべてのパラメータを完全にテストしたわけではありませんので、ご使用の際は自己責任にてよろしくお願い致します！！

2020年02月26日

今回の修正（バージョンアップ？，バージョンダウン？）は変更のタイミングといい内容といい私にとって最悪のものでした。
関数の属性が変更になり表示関数化によりマクロで実行できなくなりました。
一つの条件で最大６取引（返済、新規等）をこなさなければならない私のシステムではご提案の変更を加えてもスリッページの可能性大です。

異なる取引関数名で機能を追加すべきものだったと考えています。
涙です！！！

2020年02月29日

＞大野様
いつも情報ありがとうございます。

＞発注関数がVBAから関数を呼び出すことができなくなっているようです。
＞(呼び出すとVBAでエラーが発生する。)
こちらについてVBAから呼び出せるように、岡三側にバージョンアップ予定があるかご存じでしたらご教示いただけますか？
直接証券へ確認するのが筋ではありますが、週末となってしまったため、お手数ですがご存じでしたらお願いいたします。

＞RSSユーザー様
今回の修正ひどいですよね...
周知も不十分で、私は本日ようやく今回の修正を知りました。（エラーは出てましたが自分のプログラムミスと思っていました）
マニュアルも実装の後に出されたようですし、、、はぁ、、、

2020年02月29日

全く同様、同感です！！

2020年02月29日

>RSSユーザさん
自分がサンプルを作ってる時の話だけでいえば、一瞬(1秒未満)の遅延で済みそうです。
ですが、RSSユーザさんがおっしゃられます通り、
直接発行するより、確かにタイミングは遅くはなるので、
残念ながらスリッページ的には大きくなる方向にはなると思います。
何かいい方法を思い付いたら、また投稿しまっす！！

確かに今週は大きく動きすぎたのでタイミングが・・・(涙


>きゃべつさん
すみません・・・
今後、対応のバージョンアップがあるかどうかまでは・・・
元と同じようにマクロから直接動かせるようになるのが一番ですね、確かに・・・

2020年02月29日

いつも岡三RSSをご利用いただき、誠にありがとうございます。

2020/3/28（土）に岡三RSSの機能拡充を予定しています。

【新設】
NEWORDER_CL関数 ： 現物注文（注文番号なし）
MARGINORDER_CL関数 ： 信用新規注文（注文番号なし）
REPAYMENTORDER_CL関数 ： 信用返済注文（注文番号なし）

これらの関数をご利用いただければ、VBAマクロから直接実行することができるようになります。


岡三RSSマニュアル（関数マニュアル・関数一覧）はこちら
https://www.okasan-online.co.jp/ont/rss/manual/


ぜひ、お試しくださいますようお願い申し上げます。

2020年03月27日

わーい！！！

どう対応したものか思案して、自動売買をお休みしていましたが、復帰できそうです

機能追加ありがとうございました

2020年03月28日