RSSユーザー
複数の買いプログラムに対応する複数の売りプログラムのひも付けについてです。
いつも、お世話になっております。
1つのエクセルファイルに複数の買いプログラムと複数の売りプログラムがあり、今のところはそれぞれ1つずつしか作動させていません。もし買1プログラム（デイトレ）で約定した銘柄には売1プログラム（デイトレ）が対応し、買2プログラム（スィング）で約定した銘柄には売2プログラム（スィング）が対応するなんてひも付けのようなことできるでしょうか、お教えください。
2020年06月06日
アップロードされたファイルにはウイルスチェックを行っておりますが、未知のウイルス等に感染されている場合がありますので、アップロードされたファイルのご利用はご注意ください。
また、取引パスワード等の重要な情報を投稿内容に含めないようご注意ください。
なお、アップロードされたファイルの利用や投稿内容によって、投稿者自身や他の利用者が被った損害に対して当社は一切責任を負いません。
また、セキュリティの関係上、一部コマンド等を含む内容を送信するとエラー画面が表示され、投稿ができない場合がございます。何卒ご了承ください。
岡三RSS集いの広場では、複数の単語による検索が可能です。
例）関数 and サンプル
→AND検索となり、「関数」および「サンプル」を含む検索結果が表示されます。
例）関数 or サンプル
→OR検索となり、「関数」または「サンプル」を含む検索結果が表示されます。
例）関数 not サンプル
→NOT検索となり、「関数」を含むが「サンプル」は含まない検索結果が表示されます。
※and、or、notの前後は半角スペースで区切ってください。
※単語の間を半角スペースで区切るだけだと、OR検索となります。
大野 了
こんにちは！！
こちらは複数のストラテジで、
たまたま同一の銘柄を取引した場合、
決済を各々の建玉ごとにされたいということでしょうか？
もしそうでしたら、先物では可能で現物では不可能となります。
先物ではメモ機能があるため、そこにプログラムのIDなどを入れることにより、
その建玉がそのプログラムで建てられたものかわかるのですが、
残念ながら現物の場合、発注後は一つの銘柄に混ざってしまうので判断が付きません。
ですが、1ストラテジ毎の損益はズレてしまいますが、
デイトレで建てたものと、スイングで建てたものをごちゃまぜに決済を掛けても、
複数のストラテジトータルで見た場合は損益が同じになりますので、
最終的な損益が合えばよいのであれば、建玉を気にせず決済しても大丈夫だと思いまっす！！
また、もし複数のストラテジで別々の銘柄だった場合は、
発注時の銘柄をExcelのセルに残したりしておけば、銘柄コードを元に紐付けができると思います！！
2020年06月07日
RSSユーザー
すいません、現物でそれぞれ買1、買2で取得した銘柄はちがうものです。
2020年06月08日
大野 了
なるほどー
そういうことなんですねー
でしたら、買1、買2で発注を掛けるときに、
現物の銘柄が事前に決まっていると思いますので、
売1、売2ロジックでは、その銘柄の価格などを確認しつつ、
決済を掛ければよいと思います！！
例)
A1:買1で発注する銘柄コード
B1:買2で発注する銘柄コード
売1の決済に関する情報(現在値などなど)はA1の銘柄コードを使用し、
売1で決済するときの銘柄もA1を使用する。
売2の決済に関する情報(現在値などなど)はB1の銘柄コードを使用し、
売2で決済するときの銘柄もB1を使用する。
なんか自分がRSSユーザさんの質問の意図を理解できていない感じもしますが(汗
返答になっていますでしょーかー？
2020年06月08日
RSSユーザー
すいません、uwsc pro版を使っているのですが,あるセルに”買1"が表示したら即座に違う特定のセルに"買1"をコピーするプログラムがあれば教えてください。エクセルを開いている時が条件です。
2020年06月08日
大野 了
同じExcelのファイルですと『=A1』と書けばいいだけですので、
こちらは別のExcelファイルという事でしょうか？
一応、その前提でスクリプトを記述しまーす！！
また、手元にuwscがないためテストしていません。
エラー等はご了承ください。
また、集いの広場の仕様で、一部の記号が投稿に使えません
記号で全角になっているところは、半角に変えてください！！
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Try
BuyFile ＝ GetActiveOLEObj("Excel.Application",買いファイル名)
SellFile ＝ GetActiveOLEObj("Excel.Application",売りファイル名)
If BuyFile.Sheets(シート名).Range(あるセル).value ＝ ”買1” Then
SellFile.Sheets(シート名).Range(特定のセル).value ＝ ”買1”
EndIf
Except
MsgBox("ファイルが読み込めません")
EXIT
EndTry
2020年06月08日
大野 了
『＝』が、全角になっています！！
2020年06月08日
RSSユーザー
すいません、"買1"のセルはパーフェクトーダーとかある条件を充たすと表示され買い約定となるのですが、その後パーフェクトオーダーとかの条件が消滅すると"買1”のセルも”監視中"とかに変わってしまうため、"買1"が表示されたらすぐ他のセルにコピーしたいからです。
2020年06月08日
大野 了
なるほどー！！
それでしたら、条件判断のところを永久ループなどにして、
条件判断を毎回させてあげれば、"買1"と表示された瞬間に他のセルにコピーできます。
もし他のExcelではなく、自分自身の他のセルにコピーされたい場合は、
先ほどのサンプルで売り用のExcelを取得しているのを取得しないようにし、
BuyFileならBuyFileの特定のセルのvalueにコピーするようにしてください！！
また、もしPCの負荷の関係上厳しいのであれば、
UWSCを使われるのではなく、
VBAで買1ファイルのExcelファイルのCalculateイベントなどで
"買1"が表示されるセル確認して"買1"と表示されたら、
他のセルにコピーする方法が一番簡単だと思います！！
2020年06月08日
RSSユーザー
分かりました。やってみます。ありがとうございました！
2020年06月08日
大野 了
はい！！
もしわからないことがあれば、またご質問頂ければー！！
2020年06月08日