*.+♫「ペトリー・オット」レポート♫+.*

楽天ＲＳＳ（銘柄登録〜）

銘柄登録をＲＳＳ数式から選ぶのめんどくさいので

ＶＢＡに登録しました〜。ＲＳＳなので、リアルタイムに

値段も更新してくれるので、いちいち値段を調べなくて

良くなりました〜

ついでに、ブログ用にｗｉｋｉ変換コードもつけました〜。

ボタンを２つ作ってから〜

銘柄登録用コード

Private Sub CommandButton1_Click()

Dim 銘柄コード As String
Dim 銘柄名称 As String
Dim 現在値 As String

Dim i As Integer

For i = 2 To 10

銘柄コード = Cells(i, 1)

If 銘柄コード = "" Then Exit For

銘柄名称 = "=RSS|'" & 銘柄コード & ".T'!銘柄名称"
現在値 = "=RSS|'" & 銘柄コード & ".T'!現在値"

Cells(i, 2) = 銘柄名称
Cells(i, 4) = 現在値

Next i

End Sub

ｗｉｋｉ変換コード

Private Sub CommandButton2_Click()

Dim i As Integer
For i = 1 To 10

If Cells(i, 1) = "" Then Exit For

Cells(i, 7) = "||" & Cells(i, 1) & "||" & Cells(i, 2) & "||" & Cells(i, 3) _
& "||" & Cells(i, 4) & "||" & Cells(i, 5) & "||" & Cells(i, 6) & "||"

Next i

End Sub

楽天RSS

ちょっとメモです。
楽天ＲＳＳで、コードだけほかのセルにかいて変更すれば
楽かなとおもって探してみたけど、だめでした〜。

結局ＶＢＡで書かないとだめみたいです。

31 ：17：2009/05/17(日) 09:49:25 ID:xdQFN/52
>>21 
分かりづらかったようですみません。 

例えば9501の現在値を取得したい場合、 =RSS|'9501.T'!現在値 と書きますよね。 
これを別の銘柄に変えたい時はRSSの式を編集していますが、ちょっと面倒なので 
銘柄コードを別のセルに入れておき、それを参照したいのです。 

セルA1　9501 
セルA2　'T 
セルA3　=RSS|A1.A2!現在値 

このような感じで銘柄を変えたい時はセルA1・A2を入力し直す、と言う事は出来るでしょうか? 

35 ：山師さん：2009/05/17(日) 19:39:45 ID:tmrLNT4e
>>31 
少々めんどくさいが、次のような方法もあることはある。 
次の4行をコピーコピーしてエクセルに貼り付ける。 
データ　→　区切り位置で　カンマにチェック 

=,RSS|',6857,.,T,'!,現在値,=RC[-7] & RC[-6] & RC[-5] &RC[-4] & RC[-3] & RC[-2] & RC[-1] 
=,RSS|',6140,.,T,'!,現在値,=RC[-7] & RC[-6] & RC[-5] &RC[-4] & RC[-3] & RC[-2] & RC[-1] 
=,RSS|',8359,.,T,'!,現在値,=RC[-7] & RC[-6] & RC[-5] &RC[-4] & RC[-3] & RC[-2] & RC[-1] 
=,RSS|',6728,.,T,'!,現在値,=RC[-7] & RC[-6] & RC[-5] &RC[-4] & RC[-3] & RC[-2] & RC[-1] 

次の数式が現れるはずだ。 
=RSS|'6857.T'!現在値 
=RSS|'6140.T'!現在値 
=RSS|'8359.T'!現在値 
=RSS|'6728.T'!現在値 

これをコピーして、一度メモ帳に貼り付ける。 
メモ帳からコピーしなおして、 
エクセルに貼り付ける。 

コード、市場、現在値などは編集可能。