楽天ブログ　買っちゃった

< 新しい記事

新着記事一覧(全4461件)

過去の記事 >

2009/02/27

楽天証券「毎日5万円を株で稼ぎ続ける方法」銘柄登録

テーマ：株式投資でお小遣いを増やそう(74964)

カテゴリ：株

「毎日5万円を株で稼ぎ続ける方法」銘柄登録

この本の著者のサイト徳山秀樹式トレーディングの 徳山秀樹式トレーディング解説 にある サンプルExcelブック をダウンロードして、対象銘柄を登録する。（登録は80銘柄まで）

この サンプルExcelブック は楽天証券のRSS（リアルタイムスプレッドシート）を使用してるんだけど、銘柄登録が面倒なんだよ。

ある銘柄の各セルの値や式は
銘柄コード 1379
銘柄名 　ホクト
信用　貸借
終値　=RSS|' 1379 .T'!現在値
前日比 　=RSS|' 1379 .T'!前日比
出来高 　=RSS|' 1379 .T'!出来高/1000
　売り気配
数量　=RSS|' 1379 .T'!最良売気配数量１/1000
＠　=RSS|' 1379 .T'!最良売気配値１
　買い気配
＠　=RSS|' 1379 .T'!最良買気配値１
数量　=RSS|' 1379 .T'!最良買気配数量１/1000
の様になってるんだよ。

これ見るとわかるけど、銘柄コードと銘柄名と信用は手入力でその他はRSSで取り込まれるけど、銘柄を変える時は式にある 1379 の所をいちいち全部直さないといけないんだよね。

これを80銘柄もやってられないよ。
やっぱり銘柄コードを入力したら、他も変わるようにしたいな。

Excelでセルに式を書くにはVBAを使うみたいだから、ちょっと調べて作ったのがこれ。

Sub Macro_for_RSS()

Dim k As Long
k = 3
Do
If Cells(k, 1) = "" Then Exit Do

Cells(k, 2) = "=RSS|'" & Cells(k, 1) & ".T'!銘柄名称"
Cells(k, 3) = "=RSS|'" & Cells(k, 1) & ".T'!信用貸借区分"
Cells(k, 7) = "=RSS|'" & Cells(k, 1) & ".T'!現在値"
Cells(k, 8) = "=RSS|'" & Cells(k, 1) & ".T'!前日比"
Cells(k, 9) = "=RSS|'" & Cells(k, 1) & ".T'!出来高/1000"
Cells(k, 10) = "=RSS|'" & Cells(k, 1) & ".T'!最良売気配数量１/1000"
Cells(k, 11) = "=RSS|'" & Cells(k, 1) & ".T'!最良売気配値１"
Cells(k, 12) = "=RSS|'" & Cells(k, 1) & ".T'!最良買気配値１"
Cells(k, 13) = "=RSS|'" & Cells(k, 1) & ".T'!最良買気配数量１/1000"

Cells(k, 17) = "=RSS|'" & Cells(k, 16) & ".T'!銘柄名称"
Cells(k, 18) = "=RSS|'" & Cells(k, 16) & ".T'!信用貸借区分"
Cells(k, 22) = "=RSS|'" & Cells(k, 16) & ".T'!現在値"
Cells(k, 23) = "=RSS|'" & Cells(k, 16) & ".T'!前日比"
Cells(k, 24) = "=RSS|'" & Cells(k, 16) & ".T'!出来高/1000"
Cells(k, 25) = "=RSS|'" & Cells(k, 16) & ".T'!最良売気配数量１/1000"
Cells(k, 26) = "=RSS|'" & Cells(k, 16) & ".T'!最良売気配値１"
Cells(k, 27) = "=RSS|'" & Cells(k, 16) & ".T'!最良買気配値１"
Cells(k, 28) = "=RSS|'" & Cells(k, 16) & ".T'!最良買気配数量１/1000"

k = k + 1
Loop

End Sub

【楽天証券】もれなく、最大6,700ポイント！

お気に入りの記事を「いいね！」で応援しよう