マーク
チャート自動スクロールについて
お世話になります。
岡三RSSを使って、先物225の1分足4本値を取得し、エクセルでチャートを表示します。
ここまでは、いいのですが、その後新しい4本値が追加されると、一番古い四本音をチャートの参照範囲から除外して一つづつ左へ自動でスクロールしていきたいです。
いわゆる、証券会社が提供しているチャートソフトのように常に先頭の足が表示されていて、足が追加されて行くたびに自動で左へスクロールして行くと言う事をエクセル上で実現できないでしょうか？
ネット上で調べましたが、データが追加されるたびに参照範囲を広げて行くやり方は出てくるのですが、その場合、一番古いデータは残ったままなので、チャートがどんどん縮小されていきます。
何とか実現できないでしょうか？
よろしくお願いします。
2019年06月06日
アップロードされたファイルにはウイルスチェックを行っておりますが、未知のウイルス等に感染されている場合がありますので、アップロードされたファイルのご利用はご注意ください。
また、取引パスワード等の重要な情報を投稿内容に含めないようご注意ください。
なお、アップロードされたファイルの利用や投稿内容によって、投稿者自身や他の利用者が被った損害に対して当社は一切責任を負いません。
また、セキュリティの関係上、一部コマンド等を含む内容を送信するとエラー画面が表示され、投稿ができない場合がございます。何卒ご了承ください。
岡三RSS集いの広場では、複数の単語による検索が可能です。
例）関数 and サンプル
→AND検索となり、「関数」および「サンプル」を含む検索結果が表示されます。
例）関数 or サンプル
→OR検索となり、「関数」または「サンプル」を含む検索結果が表示されます。
例）関数 not サンプル
→NOT検索となり、「関数」を含むが「サンプル」は含まない検索結果が表示されます。
※and、or、notの前後は半角スペースで区切ってください。
※単語の間を半角スペースで区切るだけだと、OR検索となります。
Ryo Ohno
マークさん、こんにちは！！
こちらは、例えば最新からの10本足だけ出ればよいのでしょうか？
もしそうでよければ、
=FCANDLE("N225","0","1","0","終値",B2,"A","100")
このように昇順でデータを並べて置き、表示データを10件とすると、
岡三RSSがデータを更新すると、常に最新の10件だけチャートに表示することができます。
難点としては11件目以前のデータは表示されませんが・・・(^^;
もし『チャートソフトの様にスクロールバーで表示する部分を変更したいんだ！』
ということでしたら、残念ながらExcelのチャートにスクロールバーを出す機能はないため
自分で、スクロールバーを追加しVBAで制御しないといけません・・・
また、参照範囲を広げていかれているとのことですので、
多分、すでにVBAを使われていて、Calculateイベントなどで制御をされていると思います。
もしそれでしたら、スクロールバー(ActiveX版)をチャートの下などに追加し
そのスクロールバーのchangeイベントに以下の記述すると、
スクロールバーを変更すると、それに合わせて参照範囲も移動していき、
チャートソフトのような動きを作れると思います。
Private Sub ScrollBar1_Change()
Dim RangeStr As String
RangeStr = "Sheet1!$A$" & ScrollBar1.Value - 8 & ":$A$" & ScrollBar1.Value + 1 & ",Sheet1!$B$" & ScrollBar1.Value - 8 & ":$B$" & ScrollBar1.Value + 1
ChartObjects(1).Chart.SetSourceData Source:=range(RangeStr)
End Sub
また、現在チャートの参照を広げて行っている部分に、
ScrollBar1.Value = ScrollBar1.Max
と記述すると、画面に更新がかかるたびに、スクロールバーが一番右に移動しますので、
最新の足を表示する流れになります！！
もし、ご不明な点がございましたら、またご連絡頂けますと幸いです！！
2019年06月07日
Ryo Ohno
言葉だけではわかり辛いと思いましたので、ファイルを添付します。
VBAを含んでいますので、
チャートサンプル.xlsx
を
チャートサンプル.xlsm
にリネームして開いてください。
2019年06月08日
マーク
Ohnoさん、ありがとうございます！
いつも丁寧なご回答に感謝です！
まさにやりたかったことが実現できそうです。
あと、もう少し教えてください。
サンプルシートをいろいろ試しているのですが、スクロールバー(ActiveX版)の参照範囲を指定する方法がネットで検索してもわかりませんでした。
サンプルシートのVBAも拝見しましたが、理解できず(-_-;)
四本値の表示本数を増やしたいのと、移動平均線を追加した時に参照範囲を追加する方法が理解できればいいのですが。
追伸
参照範囲を広げるVBAは検索した時に見つけただけで、使用しておりません、作っていただいたサンプルシートが理想に近いです。
よろしくお願いいたします。
2019年06月08日
Ryo Ohno
マークさん、こんばんは！！
マークさんの求められる事と合致しましたかー
それはよかったです♪
表示範囲を変更できるように変更した、Excelブックをアップしますので
ご確認いただけますと幸いです。
また、可能な限り吹き出しと、VBA中に説明のコメントを入れましたので、
ご参考になれば幸いです！！
とはいえ、わかり辛い点も多いと思いますので、ご不明な点がありましたら
またご連絡頂けますと幸いです！！
2019年06月08日
マーク
Ohnoさん、こんにちは！！
ありがとうございます、できましたー！
範囲を広げることもでき、追加することもできました。
これで自分のトレード環境に行けしていけそうです！
本当にありがとうございます！！
2019年06月09日
マーク
「行けして」→「生かして」です(^^;
2019年06月09日
Ryo Ohno
おー！！
マークさん行けましたか！！
少し手でもお役に立てたようでホントによかったです♪
不明な点など、何かりましたら、よろしくお願い致しまーす！！
2019年06月09日