Excel VBAで株価データ自動収集！自分だけの分析ツール作成術

毎日手作業はもう限界？JさんがExcel自動化を決意したワケ

Jさんはして20年ぶりの投資リハビリ中。かつては手動でチャートを読み、四季報を眺めていた時代を生きていました。しかし、現代の市場は情報量が爆発的に増え、スピードが格段に上がっています。そんな中で、昔ながらの手作業に固執すれば、あっという間に「情報弱者」になってしまうのは当然のこと。

まさに、過去の成功体験が足かせとなる「現状維持バイアス」に陥っている状態です。

このような課題を解決するために、森田佳佑氏の「自動売買ロボット作成マニュアル初級編」は、Excelという身近なツールを使って、投資の「自動化」と「客観化」の第一歩を踏み出す方法を教えてくれます。それは、まさにJさんが抱える悩みに直接的に応えるアプローチだと感じました。

【脱・非効率】マクロの記録で投資ルーティンを自動化する3つの鉄則

Excelのマクロ記録機能は、あなたの普段の操作をVBAコードとして変換し、それをボタン一つで実行可能にする強力なツールです。人間が繰り返し行うデータ入力や整形作業には、必ずミスや感情によるブレが生じます。特に株価データの整形や特定の計算など、定型的な作業は膨大になりがちですよね。

この機能を使えば、手動作業の非効率性を排除し、再現性の高い投資プロセスを構築できます。

Jさんが毎日、特定の銘柄の株価データをコピーし、別のシートに貼り付けて移動平均線を計算する作業を想像してみてください。この一連の作業をマクロで記録すれば、次回からはボタン一つで完了します。

例えば、もし市場が急変し、手作業でデータを集計していたら対応が遅れたかもしれませんが、マクロで自動化していれば、迅速に状況を把握し、冷静な判断を下す準備ができたでしょう。この方法は、特にボラティリティの高い市場において、Jさんの感情的な狼狽売りを抑える一助となります。

マクロ記録によって、あなたは下落相場でも「なぜそうなったか」をデータで説明できるようになり、感情に流されないデータドリブンな投資判断への土台を築けるようになるでしょう。

Yahoo!ファイナンスから自動収集！Webクエリで鮮度の高い情報を手に入れる方法

Webクエリは、インターネット上のウェブサイトからHTMLテーブル形式のデータをExcelシートに自動的に取り込む機能です。これにより、Yahoo!ファイナンスのようなサイトから最新の株価データを自動でExcelに取得し、常に鮮度の高い情報に基づいた投資判断が可能になります。

Jさんが日頃感じている「情報収集の遅れ」による焦りや不安を軽減し、より客観的かつ効率的な分析が可能になるのです。

これにより、取得できる項目は日付、始値、高値、安値、終値など、株価分析に必要な基本的なデータです。一度設定すれば、更新ボタン一つで最新データに自動更新されます。

もし日経平均が大きく変動するようなボラティリティの高い相場において、Webクエリで日々の終値を自動取得していれば、移動平均線やMACDなどのテクニカル指標を常に最新のデータで計算し続けることができたでしょう。

これにより、「今、市場は過熱しているのか、それとも調整局面なのか」といった疑問に対し、客観的なデータで素早く裏付けを取ることが可能になり、Jさんの狼狽売りの衝動を抑える一助となったかもしれません。

常に最新の市場データにアクセスできるようになり、情報収集にかかる膨大な時間を分析と戦略立案に充てられるようになるでしょう。

あなただけの投資ルールをExcel VBAで実装する！3つの基本構文

VBAによるプログラミングスキルを身につけることは、Jさんが抱える「自分に合った投資法が見つからない」という悩みを解消し、市場における優位性の源泉を自ら作り出す道が開かれます。これは、行動経済学の「現状維持バイアス」を打ち破り、新しい投資アプローチを試みるための強力な手段となるでしょう。

例えば、Jさんが「AI株が急騰しているが、本当に今が買い時なのか？」 と悩んだとします。VBAで、過去の同業種株価が特定の指標（例：PERが業界平均の2倍以上）を超えた場合に、その後の株価がどう推移したかを自動でバックテストするルールを組むことができます。

もしこのルールが「PER2倍超えは短期的な過熱を示す」という結果を示唆していれば、Jさんは高値掴みを回避できたかもしれません。また、もし特定の市場イベントで産業全体が影響を受けると予測される場合、その影響度合いを独自指標で分析するプログラムを事前に組んでおくことも可能です。

以下は、Excel VBAで簡単なゴールデンクロスを判定し、メッセージボックスで通知するコードの例です。

Sub GoldenCrossChecker()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim maShort As Double, maLong As Double
    Dim i As Long

    ' シート名の指定
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 最終行を取得（A列を基準）
    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row

    ' 最低限のデータがあるかチェック
    If lastRow < 21 Then ' 20日移動平均計算に必要な行数+ヘッダー行
        MsgBox "データが不足しています。移動平均を計算できません。", vbCritical
        Exit Sub
    End If

    ' 最新の短期移動平均（例: 5日移動平均）を計算
    ' ここでは簡略化のため、過去のデータから直接計算するのではなく
    ' 仮の計算式で表現しています。実際には過去5日間の平均値を計算します。
    maShort = Application.WorksheetFunction.Average(ws.Range("B" & lastRow - 4 & ":B" & lastRow))

    ' 最新の長期移動平均（例: 20日移動平均）を計算
    maLong = Application.WorksheetFunction.Average(ws.Range("B" & lastRow - 19 & ":B" & lastRow))

    ' 一つ前の短期移動平均を計算（直前のゴールデンクロス判定用）
    Dim prevMaShort As Double, prevMaLong As Double
    prevMaShort = Application.WorksheetFunction.Average(ws.Range("B" & lastRow - 5 & ":B" & lastRow - 1))
    prevMaLong = Application.WorksheetFunction.Average(ws.Range("B" & lastRow - 20 & ":B" & lastRow - 1))

    ' ゴールデンクロス判定
    If maShort > maLong And prevMaShort <= prevMaLong Then
        MsgBox "ゴールデンクロスが発生しました！買いシグナルかもしれません。", vbInformation
    Else
        MsgBox "ゴールデンクロスは発生していません。", vbInformation
    End If

End Sub

このコードは、Yahoo Financeなどから取得した株価データ（例えばB列に終値がある場合）を想定し、ゴールデンクロス（短期移動平均が長期移動平均を下から上に抜けること）が発生したかを判定するものです。

このVBAを使いこなせるようになれば、汎用的なルールに縛られず、あなたの投資哲学を反映した独自の売買戦略を数値化・検証できるようになるでしょう。

【自動売買ロボット作成マニュアル初級編】があなたの投資を次のステージへ導く

プログラミング未経験の投資家でも、この一冊があれば、あなた自身の「自動売買ロボット」作成への道が開かれるでしょう。Amazonで試し読みできますので、ぜひ手にとって見てください。

テクニカル指標の組み合わせを試すなら、TradingView の無料プランで十分始められます。

※ 解約はワンクリック・いつでもOK

今すぐできるアクション

まとめ

「自動売買ロボット作成マニュアル 初級編」は、Jさんのように手動トレードの非効率さに悩む投資家にとって、ExcelとVBAで投資を自動化する強力な入門書です。マクロの記録でルーティン作業を効率化し、Webクエリで最新データを自動収集、そしてVBAで自分だけの売買ルールを実装する。

これらは感情に左右されないシステムトレードの基盤となります。今回はその基本概念に触れましたが、本書の真骨頂は、これらの技術を組み合わせて実際に動く投資ツールを構築する手順にあります。