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

Taro Inu
以下でセルA1に関数がセットされ、アドインの更新ボタンを押下するとデータを取得できます。なお、アドインの更新ボタンもVBAで押すことができます。ご質問の趣旨に沿っておりますでしょうか？

Sub calltest()
With Worksheets("Sheet1")
Cells(1, 1) = "=RANKING_M(""株価急騰(1分前)"", ""銘柄名"", 10, A2)"
End With
End Sub

2019年03月30日

小笠原さま

教えていただきありがとうございました。

パラメータにダブルクォートが必要だったのですね。失礼しました。

ちなみに、更新ボタンをVBAで押すにはどうすればよいのでしょうか？

また、ワークシートに複数の関数がある場合（例えば、RANKING_MとQUOTE）、
まず、RANKING_Mを実行し、その後にQUOTEを実行したい場合にはどのように記述すればよいのでしょうか？

不勉強で恐れ入りますがよろしくおねがいいたします。

2019年04月01日

Taro Inu様

以下のcalltestを実行していただいたうえで、次に、kousinを実行してみていただけますでしょうか。
その後、kousinを実行するたびに、最新のラインキング情報と、当該ランキング銘柄の現在値を表示するようになっています。


Sub calltest()
With Worksheets("Sheet1")
Cells(1, 1) = "=RANKING_M(""株価急騰(1分前)"", ""銘柄名"", 10, A2)"
Cells(1, 2) = "=RANKING_M(""株価急騰(1分前)"", ""銘柄CD"", 10, B2)"
For i = 2 To 11
Cells(i, "c") = "=QUOTE(b" & i & ", """", ""現在値"")"
Next
End With
End Sub



Sub kousin()
Application.CommandBars("岡三RSS2").Controls(5).Execute
End Sub

2019年04月01日

小笠原さま

色々とお世話になります。真にありがとうございます。

おかげさまで。
Application.CommandBars("岡三RSS2").Controls(5).Execute
で更新ができようになりました。ありがとうございました。

さて、いただいたソースを実行しようとしたのですが、
Cells(i, "c") = "=QUOTE(b" & i & ", """", ""現在値"")"
の部分が構文エラーになってしまい実行できませんでした。

ファイルを添付いたしますので、回避方法をご教示いただけますでしょうか。（拡張子.xlsmだとアップロードできないので、拡張子をxlsmにしてあります）

さて、そもそも今回実現したいのは
① 株価急騰(1分前)の銘柄名と銘柄CDを10件取得して
② ①で取得した銘柄の「現在値」と「約定時刻」を取得
を定期的に実行したいのです。

VBAソースから定期的に岡三RSSの「更新」を実行する方法はわかったのですが、更新を実行すると、前のタイミングで取得したランキング情報での「現在値」や「約定時刻」になってしまいます。
（推測になりますが、更新処理内では、TICK_Mのほうが先に実行されているのかもしれません）

実現方法をアドバイスいただければ幸いです。

よろしくおねがいいたします。

2019年04月01日

test1.xlsx (17.8KB)

Taro Inu様

Taro様と同じく、ファイル名の末尾をxにしてアップしましたので、mに書き換えてファイルをお開きください。
明日のざら場中に、calltestを実行し、次にkousinを実行、を試してみていただけますでしょうか？
10秒おきに、株価急騰の情報を取得し、当該銘柄コードの現在値と現在値時刻を取得するようにしたつもりです。
私も明日のざら場で試しみます。取り急ぎ、ファイルを共有させていただきます。

2019年04月01日

小笠原さま

お世話になっております。

いただいたExcelファイルで情報が取得できました。

教えていただき大変助かりました。どうもありがとうございました！

2019年04月02日

test画像.gif (37.6KB)

Taro Inu様
情報が取得できたとのこと、よかったです。
ご報告有難うございました。

2019年04月02日