Yahooファイナンスのポートフォリオをエクセルに出力するためのマクロ

2022年9月12日以降のYahooファイナンスの新UIのポートフォリオをExcelシートに貼り付けるときに使えるマクロを作ったので紹介する

↓Googleスプレッドシート派の人はこっち

Yahooファイナンスのポートフォリオをスプレッドシートに出力する

2022年9月12日以降のYahooファイナンスの新UIのポートフォリオをGoogleスプレッドシートに貼り付けるときに使えるスプレッドシートを作ったので紹介する

mtkbirdman.com

2022.10.02

はじめに

2022年9月12日にYahooファイナンスのポートフォリオのUIが変更になった

ポートフォリオページリニューアル、および一部機能終了のお知らせ（パソコン版・スマートフォンweb版） - Yahoo!ファイナンス

Yahoo!ファイナンスからのお知らせや使い方のコツなどをご紹介

finance.yahoo.co.jp

旧UIでは、Webページをドラッグで選択してコピペするだけでいい感じのExcelシートが作れたが、新UIではそれができなくなった

この改悪に対抗するためのエクセルマクロを作成したので紹介する

最終的にはこんなものができる

↓元ネタはこれ

【超実践的】高配当株ポートフォリオを「安定的」に運用するためのメンテナンス方法 - こびと株.com

こんな悩みにお答えします。     この記事を読めば、実践的な高配当株投資のやり方がイメージできるかなと思います。   ※この記事は、かなりボリュームがあります(約8,700文字)。 すでに...

kobito-kabu.com

それではいってみよう

ソースコード全文

今回作成したマクロはこれ

ソースコード全文はこれ

Sub YahooFinanceExport()
    Dim year, month, day As Integer
    Dim hour, minute As Integer
    Dim str As String
    
    Cells.Select
    Selection.UnMerge
    Cells.EntireColumn.AutoFit
    Columns("K:K").Select
    Selection.NumberFormatLocal = "0.0000_ "
    Selection.Replace What:="------%", Replacement:="---", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Range("A1").Select
    
    Cells.Replace What:="倍", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Cells.Replace What:="(連)", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Cells.Replace What:="(単)", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Cells.Replace What:="------", Replacement:="0", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Cells.Replace What:="---%---", Replacement:="0", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Cells.Replace What:="------%", Replacement:="0", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    For year = 2040 To 2020 Step -1:
        For month = 12 To 1 Step -1:
            str = Format(year, "####") & "/" & Format(month, "00")
            Cells.Replace What:=str, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        Next month
    Next year
    For month = 12 To 1 Step -1:
        For day = 31 To 1 Step -1:
            str = Format(month, "##") & "/" & Format(day, "##")
            Cells.Replace What:=str, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        Next day
    Next month
    For hour = 23 To 0 Step -1:
        For minute = 59 To 0 Step -1:
            str = Format(hour, "00") & ":" & Format(minute, "00")
            Cells.Replace What:=str, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        Next minute
    Next hour
    
End Sub

基本的にはExcelの置換機能をマクロで記録しただけである

使い方を説明する

使い方

Yahooファイナンスのポートフォリオのページを開く

Yahoo!ファイナンス - 株価・最新ニュース

リアルタイム株価、最新ニュース、株式掲示板などを提供する、投資やマネーの総合情報サイトです。株価指数、外国為替相場、日本株、米国株など、投資判断に役立つ情報を掲載しています。

finance.yahoo.co.jp

表示設定を以下のように設定する

1. コード・市場・名称
2. 業種
3. 保有数
4. 購入価格
5. 時価
6. 損益
7. EPS
8. 1株配当
9. 配当利回り
10. PER
11. PBR

表の外側（「削除」の左）からまっすぐ右にドラッグして表全体を選択し，「Ctrl+C」でコピーする

Excelファイルの「Yahooファイナンス」のシートのA1セルを選択し、「Ctrl+V」で貼り付ける

※貼り付けたときに下の画像のような状態になってしまうときは、「削除」の左の表の外側からドラッグを開始できていない

うまく貼り付けできたら、「Alt+F8」でマクロ実行のウィンドウを開く

「YahooFinanceExport」のマクロを実行する

集計のシートにいい感じの表が作成される

以上

おわりに

2022年9月12日以降のYahooファイナンスの新UIのポートフォリオをExcelシートに貼り付けるときに使えるマクロを作ったので紹介した

ちなみに今回例として使ったポートフォリオはこの本に載っていた

むちゃくちゃ分かりやすくて面白かった

↓関連記事

技術ブログを収益化して月1,000円稼げるようになった

技術ブログを書き始めて3年で月間収益が1,000円を超えるようになったので、これまでに感じた技術ブログのメリット・デメリットや自分なりのコツについて紹介する

mtkbirdman.com

2022.09.20

【Github】WindowsでSourceTreeを使ってExcelファイルのバージョン管理をする

GithubとSourceTreeを使ってExcelファイルのバージョンを管理する方法について説明する．

mtkbirdman.com

2022.06.19

【Excel VBA】円グラフや棒グラフを色相環（HLS色空間）でカラフルに塗り分けるマクロ

Excelの円グラフや棒グラフを色相環（HLS色空間）を使ってカラフルに塗り分けるExcelマクロを紹介する

mtkbirdman.com

2022.08.13

TOEICで900点突破したときの教材

TOEICで900点突破したときに使った教材のレビュー記事

mtkbirdman.com

2022.02.15