楽天RSSがとっても便利!! こんなマクロを組んでみました。

こんばんわ。
昨日から、楽天RSS(リアルタイムスプレッドシート)で遊んでいるあんこです。

楽天RSSはエクセルにリアルタイムの情報を取り込めるという、優れもののツールです。
エクセルに取り込めるというだけで、かなり応用性があると思います。




楽天RSSをアドインとしてエクセルで使えるようにして式を入力すれば
自動で取り込めるようになります。

例えば、

=RSS|'9999.T'!銘柄名称

こんな感じで式をエクセルで入力すると、コード9999の銘柄名称を取得することができます。



ただ、このRSSという式に癖があって、

"=RSS|'" & A1 & ".T'!銘柄名称"

こんな感じで&でつなげたりして参照しようとすると、うまくRSSが機能しないんです。

文字列つなげて式を作った後、INDIRECT関数などを使っても無理です。
マクロを組むしかないみたいなので、以下のようなマクロを作ってみました。

マクロは初心者です!


Sub RSSコードで取得()

Dim コード As String
Dim i As Integer
Dim n As Integer


n = Cells(Rows.Count, "A").End(xlUp).Row 'A列にデータがある行数を取得してnとします。

For i = 2 To n '2行目からn行目まで処理を繰り返します。iは行数となります。

コード = Cells(i, 1) 'A列の4桁の数字を取得します。

Cells(i, 2).Value = "=RSS|'" & コード & ".T'!銘柄名称" 'B列i行に銘柄名称取得
Cells(i, 3).Value = "=RSS|'" & コード & ".T'!残高差引" 'C列i行に残高差引取得
Cells(i, 4).Value = "=RSS|'" & コード & ".T'!逆日歩" 'D列i行に逆日歩取得


Next i

End Sub


これで、A列2行目からコードを入力していけば、B列に名称、C列に貸借残り、D列に逆日歩
を自動取得してくれるという、私にとってとっても便利なツールの出来上がりです。

ためしに、現在の10月銘柄のものを取得してみました。
1766を入力したのがA2です。

コード銘柄名貸借残り逆日歩
1766東建コーポレーション37000
2910ロックフィールド-74000.05
3329東和フードサービス-38000.05
4355ロングライフHD703000
4666パーク24156000
7640トップカルチャー-651000.05
7968TASAKI657000
8079正栄食品-64000
8917ファースト住建82000
9603エイチ・アイ・エス1367000
9678カナモト983000
9824泉州電業72000



これから、取得が楽になるかなー、特に3月とか、大幅な時間短縮ができそうです^^

関連記事

コメント

No title
マクロができるんですね。
私もマクロを勉強してみたけど、年寄りの頭では理解できなくて、、半分挫折しています。
楽天RSS、やってみたいなー
また挫折しそうだけど。
カブコムのコロワイドなら今朝余って出てましたよ!私もクロスして三年間コロワイド族となりました。
No title
kyouchan59 さん、こんばんわー。
マクロ、ちょっとかじった程度の知識しかないので、このくらいの簡単なマクロしか書けませんが、今回お示ししたマクロそのままでも十分使えると思いますよ~。

シンプルな分、簡単に改造できるマクロになってますので^^

楽天RSSは、FX口座開くだけでも無料で使えるようになるので、とてもよいです。
楽しいですし、おススメです~。

No title
安眠さん、こんばんわー。
クロス、おめでとうございます~。
私は、今日の夜に500株確保することができました!
今度の権利日以後から、楽しみですね~♪

コメントの投稿

非公開コメント