楽天RSSをエクセルで表示・・・

質問

楽天RSSを使っています。

Ａ１に銘柄コードをいれたら、自動的にＢ１にＲＳＳで現在値が
表示されるようにしたいのです。
どうすれば実現できるでしょうか？

Ｂ１には「＝RSS│"A1".T!現在値」
みたいに入れてみたんですが、だめでした。

回答No.3

xs200 · ベストアンサー

簡単なサンプルです。
1行目にはタイトルがあるので2行目から実行しています。
B列には=TEXT(A2,"####.")&C2が入っています。(2行目なら)
C列には東証ならT、大証ならOSが入っています。

D列に現在値が入ります。
------------------------------------------
Sub yuutai()
Dim i As Integer

i = 2
Do Until Cells(i, "B") = ""

Cells(i, "D") = "=RSS|'" + Cells(i, "B") + "'!現在値"

i = i + 1
Loop

End Sub

お礼

これは！ちょっとやってみます。ありがとうございました！

回答No.4

takafun55

自分も最初はマクロでなく、関数で作ってみました。
結構苦労して何とかできましたが、動きが変だったため関数は、あきらめました。

マクロがいやであれば、次の方法はどうでしょうか。
１.１行目に現在値、コード、銘柄名、初値、終値など自分が知りたい情報を手入力する。
２.１行目を２行目にコピーする。
３.２行目を選択して「置換」でコードを置き換える。
４.以下同手順

まぁみんなこれをマクロ化して使っているんですけどね。

お礼

置換でやってましたが、銘柄おおいとれるんですよね～。ありがとうございました。

回答No.2

mitigusa

要は　銘柄コードを入れれば　以下に現在値等の
　ＲＳＳの記述が自動に書き込まれる設定をしたいと言うことですよね。

　　マクロを組まないと　駄目なようです(^_^;
　　で　マクロの本を買ってきて　やろうかと思ったけど
　　それを　組むまでの　知識レベルを付けるのと
　　手入力で　するのと　どちらにするか考えて手入力しました(^_^;

　　流石に　基礎が無いと・・関数位は何とかなりますけど・・。

　　コツコツ　3日掛けて　情報の欲しい銘柄は
　　入力しましたよ(^_^;

　有料ですが・・　http://www2s.biglobe.ne.jp/~iryo/kabu/tool/rakuten/kirakuten1.html

補足

やっぱりマクロ組まないとだめですかね。。
有料とかである楽天ＲＳＳを組み込んだシートを参考にするのはいいかも！ありがとうございます。

回答No.1

u-chann

kokoromochi3さんこんばんは。

ここ読んだ？
http://www.rakuten-sec.co.jp/MarketSpeed/onLineHelp/
がんばってくださいね。

補足

一通りはよみましたが、どこにかいてあるんでしょうか？