|
銘柄登録をRSS数式から選ぶのめんどくさいので VBAに登録しました〜。RSSなので、リアルタイムに 値段も更新してくれるので、いちいち値段を調べなくて 良くなりました〜 ついでに、ブログ用にwiki変換コードもつけました〜。 ボタンを2つ作ってから〜 銘柄登録用コード 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 wiki変換コード 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
[ リスト | 詳細 ]
全1ページ
[1]
|
ちょっとメモです。 楽天RSSで、コードだけほかのセルにかいて変更すれば 楽かなとおもって探してみたけど、だめでした〜。 結局VBAで書かないとだめみたいです。 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'!現在値 これをコピーして、一度メモ帳に貼り付ける。 メモ帳からコピーしなおして、 エクセルに貼り付ける。 コード、市場、現在値などは編集可能。 |
全1ページ
[1]





