• ベストアンサー

楽天RSS(RealtimeSpreadSheet)で証券コード等を他のセルから取り出す事ができるでしょうか?

例えばExcel2007でA1セルに =RSS|'4755.Q'!現在値 と入力するとA1セルに(楽天4755)の現在価格が表示されますが、A2,A3セルに証券コードと市場を入力すると、自動でA1セルの値が変わるようにしたいのですが。 ちなみにつたない知識で次の様に試してみましたがだめでした。 A1セル:=RSS|"'"&A2&'.'&A3&"'"!現在値 A2セル:4775 A3セル:Q VBAにデータを引き渡す時の書式・・・みたいなのがあるという事でしょうか?

質問者が選んだベストアンサー

  • ベストアンサー
  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.2

#1です。 未経験者なのでやっぱり違いましたね。 楽天のRSS(リアルタイムスプレッドシート) http://aoyama.jugem.jp/?eid=184 こちらの方の記事が参考になるのかも知れませんが、 ・=RSS|'4755.Q'!現在値 がひとつの関数となっているようで、セルを参照する事は無理っぽい感じです。 楽天RSSの使い方1 http://kabu.muimi.com/k/rakuten_rss/1/ より解説されていますがVBAによる処理が必要みたいです。 ご参考になれば。

noname#207939
質問者

お礼

教えていただいたリンクを参考に次の様な感じでとりあえず動きました。ありがとうございました! Sub Test1() Dim row As Integer: For row = 1 To 10 code = Cells(row, 1).Value makt = Cells(row, 2).Value Dim trgt As String Dim rstr As String trgt = "銘柄名称" rstr = "=RSS|'" + CStr(code) + "." + makt + "'!" + trgt Cells(row, 3).Formula = rstr trgt = "現在値" rstr = "=RSS|'" + CStr(code) + "." + makt + "'!" + trgt Cells(row, 4).Formula = rstr DoEvents Next End Sub

その他の回答 (1)

  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

A1 =INDIRECT("RSS|'"&A2&"."&A3&"'!現在値") 違っていたらごめんなさい。

noname#207939
質問者

お礼

残念ながら#REF!と表示されました。 ありがとうございました(_ 。_)

関連するQ&A