※このリポジトリはGemini 2.5 Proが作成しました。

Excel VBA 星座マッピング・プラネタリウム

概要

Excel VBA 星座マッピング・プラネタリウムは、ユーザーが指定した日時と場所（緯度・経度）に基づき、その時点で見える夜空をシミュレーションし、Excelシート上に散布図グラフとして描画するアプリケーションです。

このプロジェクトは、VBAプログラミングの学習者や、天文学に興味がある方々が、Excelでどこまで出来るのかを体験することを目的としています。

主な機能

• 日時の指定: 好きな日時を指定して、その瞬間の星空を再現します。
• 場所の指定: 緯度・経度を入力することで、世界中のどこからでも夜空をシミュレーションできます。
• 視覚的な星の表現: 星の明るさ（実視等級）を、グラフ上のマーカーの大きさで表現します。
• 星座線の描画: オリオン座やカシオペヤ座など、主要な星座の形が分かるように星座線を描画します。

必要なもの

• Microsoft Excel (2010以降を推奨)
  • VBAのマクロが実行できる環境が必要です。
  • 開発タブが表示されている必要があります。

使い方

1. UIシートを開きます。
2. 以下の項目を入力します。
   • 観測日時: シミュレーションしたい日時（例: 2025/10/12 21:00）
   • 観測地の緯度: 北緯をプラス、南緯をマイナスで入力（例: 35.68）
   • 観測地の経度: 東経をプラス、西経をマイナスで入力（例: 139.76）
   • タイムゾーン: UTCからの時差を時間で入力（例: 日本は 9）
3. 「星空を描画」ボタンをクリックします。
4. 自動的にSkyChartシートに移動し、計算された星空が表示されます。

注意点・制約事項

• 計算の精度: このアプリケーションの天文計算は、簡易的な計算式に基づいています。厳密な天文学的位置を保証するものではありません。
• 恒星データ: 収録されている恒星データは一部のみです。より多くの星を表示するには、StarDataシートにデータを追加する必要があります。
• 大気差: 大気による光の屈折は考慮されていません。

今後の拡張アイデア

• 惑星の位置計算と描画機能の追加
• 天の川の表現
• グラフを全天球（魚眼レンズ風）表示にする
• 恒星データを外部ファイル（CSV）から動的に読み込む機能

ライセンス

このプロジェクトは MIT License のもとで公開されています。