ExcelのVBAで出発地点と到着地点からYahoo!路線で調べた最寄り駅と運賃の結果を出力する

こんにちは。　がっきーです。

皆さんは、Excelを使っていますでしょうか？

私は、Excelを使う機会がちょくちょくあります。

私がExcelを使う中で、インターネットでExcelについて調べていて、「コレ、便利だな」と思ったものを少し、私なりにアレンジしたものを紹介しようと思います。

それが

ExcelのVBAで出発地点と到着地点からYahoo!路線で調べた最寄り駅と運賃の結果を出力する

ことです。

どういうことかと言いますと、下図のように、A列に出発地点、B列に到着地点を入力します。

その後、D1セルの「最寄り駅と運賃を表示」というボタンを押すと、VBAで記述したマクロが動き、

B列に出発地点の最寄り駅、D列に到着地点の最寄り駅、E列に出発地点から到着地点までにかかる運賃が表示されるもの

を紹介しようと思います。

今回参考にさせていただいた情報は以下のサイトになります。

ExcelのVBAでYahoo!路線情報からHTMLを取得して運賃を取得してみる - Qiita

上記のサイトを参考にして書いたVBAが以下になります。