Thank you, エクセル　ANAの飛行機一覧を教えて！

ヒコーキ好きのあなた
ANAが所持している飛行機は何機あるんだろう🤔
一覧表があったら便利なのに！って思うときはない？

あるに決まってるよな！

そんな航空ファン向けのエクセル活用ネタを紹介するぞ。

飛行機リストをコピペで作るのもいいけど、そんな仕事はWebクエリ機能が便利だ。
ホームページからデータを取り込んであっという間にリストが出来上がる。


まずは、ヒコーキデータの一覧があるホームページが必要。
俺たちのご愛用サイト「フライトレーダー24」には、航空会社フリート一覧という絶好のページがある。ソースは、そこに決まりだ。

ANAだと、URLは https://www.flightradar24.com/data/airlines/nh-ana/fleet
このアドレスをテキストファイルに貼り付けて保存。


ファイル名は、ヒコーキ一覧.iqyとしておく。
拡張子を.iqyにするのがポイントだ。

つぎに、エクセルを開いて
メニューバーのデータ ＞ 外部データの取り込み ＞ Webクエリの実行
でさっき作ったテキストファイルを指定する。



準備はこれだけ。

「サンキュー エクセル、
　　ANAの飛行機一覧をリストにして」



どう？一瞬にしてリストができあがったことだろう。

ホームページから取り込んだデータには、空行があったり要らないデータが混ざってしまう。
手作業でセコセコ直してもいいけど、定形な作業マクロが便利。

① 不要なデータと空行を削除
② ついでにフライトレーダーとかにリンク

ふたつの条件を入れるだけで快適な飛行機リストの出来あり。
Macで作ってるけどWinでも動くはず!?

Sub ヒコーキの一覧リスト()

Dim 縦 As Long, 縦最大 As Long
縦最大 = Cells(Rows.Count, 1).End(xlUp).Row
For 縦 = 縦最大 To 2 Step -1

’① 不要なデータをカットして空行を削除
If InStr(Cells(縦, 1), "JA") = 0 Then
    Rows(縦).Delete
Else

’② ついでに、FlightRadar24 と FlightAware のリンクを追加
    Cells(縦, 3).Hyperlinks.Add Anchor:=Cells(縦, 3), Address:= _
    "https://www.flightradar24.com/data/aircraft/" & Cells(縦, 1), TextToDisplay:="FR24"
    Cells(縦, 4).Hyperlinks.Add Anchor:=Cells(縦, 4), Address:= _
    "https://ja.flightaware.com/live/flight/" & Cells(縦, 1), TextToDisplay:="FA"
End If
Next

End Sub

マクロをポチると…
GREAT👍　ANAの飛行機一覧が一瞬で完成。



よーし、この勢いでJALも作っちゃうぞ！
でもどうやって…。😥

ノープロブレム、勘のいい、きみならもう気づいただろう？

ヒコーキ一覧.iqyの中身を
https://www.flightradar24.com/data/airlines/ja-jal
に変えてみよう。

OK エクセル！JALの飛行機一覧を教えて！

どう？JALでまとまったはずだ。
この調子で世界中のエアラインの機体番号をあっという間にエクセルにできる。

ヒコーキ一覧のエクセルの使い方は、撮影したことのある機体をマークしたり、スペマ機をチェックしたりときみ次第。

表計算ソフト「エクセル」を、家計簿だけに使っていてはもったいない。
機体の種類や番号、航空会社、空港、航空無線の周波数などなど膨大なデータが必要な航空ファンこそエクセルを活用してさらにマニアックになってほしい。

グッデー！


Tweet
ブログ記事をツイートする


関連ブログ
Macにもエクセルがあるとやっぱり便利だった！Excel2019購入