リアルタイム株価を取得し、EXCELで資産管理しませんか?
マーケットスピード IIを使ってリアルタイム株価を取得し、EXCELで活用しましょう!
Webから投資信託のデータも取得して、最新データに更新します
👇 これを作ります!

準備
マーケットスピードⅡをダウンロード
リアルタイム株価を取得するには色々と方法がありますが、
今回は楽天証券のマーケットスピード II RSSを使って取得します
楽天証券のマーケットスピード II RSSは、マーケットスピード II のダウンロードと
同時に「マーケットスピード II RSS」もダウンロードされます
まず、マーケットスピードⅡをダウンロードしましょう

MarketspeedⅡをダウンロードする
案内に従ってダウンロードしてください
無料で使うには…
継続して使うにはいくつかの条件があるようです

・口座開設1年以内であれば無条件で国内株式のリアルタイム株価を見れます
・1年以降であっても株式等の保有もしくは1年以内にお取引があれば引き続き使えるそうです
詳しくは、楽天証券で確認してね!
アドイン登録
マーケットスピード II RSSは、Excelにアドインして利用できるトレーディングツールです

RSSを使うには、Excelにリアルタイムに値を取り込む関数が必要です
EXCELにRSS関数をアドインしましょう!
発注機能を搭載しているから、自動売買も可能だそうですよ!
私は使ったことないです~
RSS起動
RSSを起動させるには、まずMarketspeedⅡにログインしてください

EXCEL ファイル→オプション→アドイン から 設定を選択


アドインが登録できたら、マーケットスピードⅡタグが作成されます


未接続をクリックしてRSSと接続します
MarketspeedⅡにログイン&アドインが完了していれば、接続されRSSが使えます

使ってみよう!
マーケットスピードタグの投資情報をクリック


このようなダイアログが表示される
データを取得して行きましょう!

このような表を作りました
コード欄に検索したい銘柄の証券コードを記入します
(作成当時の売買ランキング5銘柄です)
購入単価と株数も入力します
C3セルに銘柄名称を取得しましょう

ここで直接入力で証券コードを入力してもいいですが、
セル参照してみましょう
参照ボタンを押し、参照先のセルをクリック

銘柄名称を選択、登録クリック

RssMarket関数で銘柄名称を取ってきているのがわかりますね!
C3セルをオートフィルします

あとは同様に項目を変えて取得しましょう

黄色の塗りつぶしが取得したデータです
株式市場があいている間はリアルタイムで値が更新されます
値が更新されていますか?(この表の場合は、現在値と前日比が更新される)

税金の計算式は
=IF(I3>0,I3*20.315%,0)で求まります
税金高いなあ~(配当は税抜き金額 税込み年間配当は、株数*配当金*79.685%)
NISAで購入されている方は0でOK!

47人の整体師全員が「整体対決で負けた」枕!【Cure:Re THE MAKURA】

投資信託の株価取得
投資信託の価格もEXCELで管理したいよね!?
WebからEXCELに取り込むことができます!
取得先サイトの利用規約を見て、データ取得が可能かどうか確認してくださいね!
???証券会社の投資信託の販売金額ランキングから
ランキング1位オルカンのサイトを見てみます
サイトにログインしていない状態で取得してください
ログインするとうまく取得できません…
サイトのURL取得・貼付け
サイトのアドレスをコピーします

データ→Webからを選び

URL欄にコピーしたアドレスをペーストします

ナビゲーターが表示されました

テーブルの読み込み
テーブルをクリックして、内容を確認します

Table0でも基準価格がありますが…
もう少し見てみるとTable3のデータが加工しやすそうです


読み込みから読み込み先…を選んでください
別シートにデータを取り出します(シート名:投資信託としました)

既存のワークシート(投資信託シート)
書き出したいセルの位置を指定します

データを取得できましたね!
データの編集①
基準価格・前日比ともデータは文字列ですので、計算に使えません
数値のみ取り出します

LEFT関数とLEN関数で数値のみを取り出しました
データの左から桁数-1文字取り出します(最後の円を取り除く)
前日比も同様に
=LEFT(Table_3[@前日比],LEN(Table_3[@前日比])-1)
元のシートに戻って、投資信託シートの値を参照させます

データの編集②
テーブルの読み込みではなく、データの変換を選びます

基準値と前日比の列を選んで、
変換→値の置換をクリック

検索する値:円
置換後 :ブランク(そのまま)


数値のみ取り出せましたね!

あとは先ほどと同様に閉じて読み込むor閉じて次に読み込む

取り出した値はそのまま計算に使えます
データの編集③
別のサイトも取得してみましょう
同様にアドレスをコピーして、データを取得します

Table5にしましょう
同様に読み込みます

同様にデータはテキストですので、数値のみ取り出したいですが、
後ろにいろんなの付いてる~
円を取り除くだけでは、欲しいデータを取り出せません

=LEFT(Table_5[@Column2],FIND(“円”,Table_5[@Column2])-1)
FIND関数で”円”の位置を求めます
欲しい値は”円”の位置の1つ前まで

データの編集④
データの変換を選びます

列の分割→区切り記号による分割

円で区切ります


数値のみ取り出せましたね~
あとは同じですね!
不要な列を削除したいときは、列を選択し
列の削除を選びます

データの更新
データの更新①
で…毎回Webからデータ取得するの?
いえいえ! 一発で最新データに更新します
更新したいテーブルを選び
右クリック→更新

最新データに更新されましたか?
このテーブルのみ更新されます
テーブルがたくさんある場合は、すべて更新を選びましょう

ブック全体のテーブルが更新されるので、
更新したくないテーブルがある場合は、注意が必要です!
データが更新されましたか?
投資信託は23時には最新データに更新されています
たぶん…

データの更新②(プロパティより)
テーブル単位のデータ更新
テーブルを選び、
データ→プロパティ あるいは
デザイン→プロパティ

クエリプロパティの表示
テーブル名の右横の四角をクリック


定期的に更新するやファイルを開くときにデータを更新するに✓
テーブルごとに指定する必要があります
プロパティではすべて更新はできません
すべて更新でこのテーブルは更新したくない場合、この✓をはずします

ちょこっとマクロ
すべて更新をマクロで実行してみましょう!
①すべて更新をボタンで…
②ブックを開く時にデータをすべて更新する
マクロが初めての人はこちらからどうぞ!
30分ほどでマクロの始め方から実行ボタンの作成など基礎を簡単に習得できます
マクロの記録

開発タブからマクロの記録をクリック

マクロ名(Macro1)に操作した内容が記録される
記録開始です!
データタブ→すべて更新


記録終了をクリック!
マクロの記録を終了します

マクロの表示を押して、記録したプログラムを見てみましょう

編集を押します

すべて更新ボタンを押したプログラムはこれだけ!
すべて更新が終わったら、”データ更新しました!”とメッセージを表示しましょう!
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveWorkbook.RefreshAll
MsgBox "データ更新しました!"
End Sub
実行ボタンの作成

開発→挿入
ファームコントロールのボタン から
ボタンを作成します
ボタン名を”更新”としました
すきな名前を付けてね~

ボタンとマクロを紐づけます
作成したプログラムを選び、OK!

このボタンを押せば、作成したマクロが実行され、すべて更新されます
実行してみましょう!
ブックOpen時に更新
このクエリプロパティのファイルを開くときにデータを更新するを

マクロで全テーブル対象で行いたい場合は…
ThisWorkbookにWorkbook_Openを作成
ThisWorkbookとは、今作成しているブックのことです
Workbook_Openは、このブックがOpenした時に実行されるプログラムです

Workbook_Openに同じプログラムを書けば、
このブックがOpenされる度に、すべてのデータを更新します
Private Sub Workbook_Open()
ActiveWorkbook.RefreshAll
MsgBox "ファイルオープン時、データ更新しました!"
End Sub
データ更新のまとめ

リアルタイム株価&投資信託価格を取得・更新できましたか?
マクロにもぜひ挑戦してみてください!
コメント