ダイヤグラム(Diagram)作成プログラム

ホーム > Programing > VBA > ダイヤグラム(Diagram)作成プログラム

概要

  • 自分の好きな経路に対して、それに合った時刻表を組み合わせて ダイヤグラムが組めたらいいなぁと思って作りました。
  • えきから時刻表」を元にして下記の「時刻表データ」を作成しております。

プログラムファイル

Diagram.xlsm
Microsoft Office Excelファイルです。VBAが使われています。
収録されている一部の時刻は2012年10月21日更新のものです。
MSOffice更新のためxlsmに変更しました。(2014年3月16日)
「通過」に対応しました。(2013年10月2日)
md5:e68981be01312f66e2f4c4bad7170f8f
sha:b62dac221616e41ea0e2d95c0a8c33c531991ee0
sha256:2ed2f962fde6bd2c7aefe942f34822e3e1333d25867394edda3035c6e44191fa

大雑把な使い方と解説

[出力]シートについて

  • 赤枠で囲まれている[駅番号]という部分ですが、 必ず「1,2,3,…」と順番通りになるように駅の個数だけ入力してください。
  • また、青枠で囲まれている[駅名]についてはご自由に入力してください。

[入力系]シートについて

  • シート名は、 「路線名」「上り・下り」「平日・休日」 「普通・快速・急行・特急・快特」 など、各自管理しやすい形で名前を付けてください。
  • なお、シートはコピーしても支障は出ないようになっております。(たぶん) (各入力系シートにVBAがそれぞれ乗っかっているため、シートをコピーしても、同時にVBAのコードもコピーされて互いに干渉しないためです。)
  • 赤枠で囲まれた部分について、 11行目には「1,2,3,…」となるように番号を付けていただきます。 その中で、ダイヤグラムとして出力したい時刻について、 開始番号と終了番号を3行目~4行目の枠に指定することで出力されます。
  • 青枠で囲まれた部分について、 下で実際に時刻を入力していただく部分ですが、 例では、東京~新大阪と5つの駅が入力されています。 そこで関係しているのは「13行目~34行目」ですが、 13行目~34行目の時刻を出力したいので、 上の6行目~7行目ではその行数を開始駅番号・終了駅番号として指定します。
  • 緑色で囲まれた部分について、 駅記号は[出力]シートの上部で入力していただいたものを利用しています。 駅記号を入力すると[出力]シートからhlookup関数を使って B列に駅名を拾い上げてきます。 そのため、B列には入力する必要はありません。
  • 水色で囲まれた部分について、 時刻を3ケタ~4ケタの数字として入力します。 たとえば、「5時30分」は「530」となります。
  • 時刻に関してですが、4時00分を開始時刻とし、 「4:00~27:59」の範囲で処理が行われております。
  • 緑色の矢印で示している部分について、 12行目に相当する部分ですが、 これは、ダイヤグラムで描く線の色を指定しています。 セルの背景色を変えていただくと、その色の線色で ダイヤグラムが描かれます。
  • 通過駅の時刻は空欄でお願いします。

あとがき

  • 粗い解説で申し訳ありませんが、 実際に動かしてみてください。
  • 平日用・休日用としてそれぞれファイルを コピーして使い分けてください。
  • 昨年からダイヤグラムがほしいなぁと思っていたのですが、 なかなか作る時間が取れなくてやっと作ることができました。
  • 時刻表のExcelデータさえあればダイヤグラムが作れるような 仕組みになっています。

時刻表データ・Diagram

凡例
無印….xls…時刻表データ
DH***.xls…Diagram(平日)
DD***.xls…Diagram(土曜)
DN***.xls…Diagram(休日)
DA***.xls…Diagram(平日・土曜・休日混合または共通)
青い森鉄道
[Aoimori20130930.xls]
2013年(平成25年)9月30日更新版を収録
吾妻線
[Agatsuma20130930.xls]
2013年(平成25年)9月30日更新版を収録
秋田内陸縦貫鉄道
[DHAkitaJukan20130930.xls]
[DDAkitaJukan20130930.xls]
[DNAkitaJukan20130930.xls]
2013年(平成25年)9月30日更新版を収録
飯山線
[Iiyama20130930.xls]
2013年(平成25年)9月30日更新版を収録
いすみ鉄道
[Isumi20130930.xls]
2013年(平成25年)9月30日更新版を収録
五日市線
[Itsukaichi20130930.xls]
2013年(平成25年)9月30日更新版を収録
岩泉線
[Iwaizumi20130930.xls]
2013年(平成25年)9月30日更新版を収録
いわて銀河鉄道
[IwateGinga20130930.xls]
2013年(平成25年)9月30日更新版を収録
羽越本線
[Uetsu20130930.xls]
2013年(平成25年)9月30日更新版を収録
内房線
[Uchibo20130930.xls]
2013年(平成25年)9月30日更新版を収録
江差線
[Esashi20130930.xls]
2013年(平成25年)9月30日更新版を収録
奥羽本線
[Ouu20130930.xls]
2013年(平成25年)9月30日更新版を収録
大船渡線
[Ohunato20130930.xls]
2013年(平成25年)9月30日更新版を収録
大湊線
[Ominato20130930.xls]
2013年(平成25年)9月30日更新版を収録
男鹿線
[Oga20130930.xls]
2013年(平成25年)9月30日更新版を収録
海峡線
[Kaikyou20130930.xls]
2013年(平成25年)9月30日更新版を収録
釜石線
[Kamaishi20130930.xls]
2013年(平成25年)9月30日更新版を収録
北上線
[Kitakami20130930.xls]
2013年(平成25年)9月30日更新版を収録
久留里線
[Kururi20130930.xls]
2013年(平成25年)9月30日更新版を収録
京急本線
[Keikyu20130930.xls]
2013年(平成25年)9月30日更新版を収録
京急空港線
[KeikyuKuko20130930.xls]
2013年(平成25年)9月30日更新版を収録
京急久里浜線
[KeikyuKurihama20130930.xls]
2013年(平成25年)9月30日更新版を収録
京成本線
[Keisei20130930.xls]
2013年(平成25年)9月30日更新版を収録
京成千葉線
[KeiseiChiba20130930.xls]
2013年(平成25年)9月30日更新版を収録
京成千原線
[KeiseiChihara20130930.xls]
2013年(平成25年)9月30日更新版を収録
京葉線
[Keiyo20130930.xls]
2013年(平成25年)9月30日更新版を収録
弘南鉄道大鰐線
[KonanOwani20130930.xls]
2013年(平成25年)9月30日更新版を収録
弘南鉄道弘南線
[KonanKonan20130930.xls]
2013年(平成25年)9月30日更新版を収録
五能線
[Gono20130930.xls]
2013年(平成25年)9月30日更新版を収録
小湊鉄道
[DAKominato20140417.xlsm]
2014年(平成26年)4月17日更新版を収録
札沼線
[Sassyou20130930.xls]
2013年(平成25年)9月30日更新版を収録
札幌市営東西線
[SapporoTozai20130930.xls]
2013年(平成25年)9月30日更新版を収録
札幌市営東豊線
[SapporoToho20130930.xls]
2013年(平成25年)9月30日更新版を収録
札幌市営南北線
[SapporoNamboku20130930.xls]
2013年(平成25年)9月30日更新版を収録
札幌市営山鼻線
[SapporoYamahana20130930.xls]
2013年(平成25年)9月30日更新版を収録
三陸鉄道北リアス線
[SanrikuN20130930.xls]
2013年(平成25年)9月30日更新版を収録
三陸鉄道南リアス線
[SanrikuS20130930.xls]
2013年(平成25年)9月30日更新版を収録
芝山鉄道
[Shibayama20130930.xls]
2013年(平成25年)9月30日更新版を収録
上越線
[Joetsu20130930.xls]
2013年(平成25年)9月30日更新版を収録
上越新幹線
[JoetsuExp20130930.xls]
2013年(平成25年)9月30日更新版を収録
新京成電鉄
[ShinKeisei20130930.xls]
2013年(平成25年)9月30日更新版を収録
石勝線
[Sekisyou20130930.xls]
2013年(平成25年)9月30日更新版を収録
石北本線
[Sekihoku20130930.xls]
2013年(平成25年)9月30日更新版を収録
釧網本線
[Semmou20130930.xls]
2013年(平成25年)9月30日更新版を収録
総武本線
[Sobu20130930.xls]
2013年(平成25年)9月30日更新版を収録
総武快速線
[SobuRapid20130930.xls]
2013年(平成25年)9月30日更新版を収録
宗谷本線
[Souya20130930.xls]
2013年(平成25年)9月30日更新版を収録
外房線
[Sotobo20130930.xls]
2013年(平成25年)9月30日更新版を収録
高崎線
[Takasaki20130930.xls]
2013年(平成25年)9月30日更新版を収録
田沢湖線
[Tazawako20130930.xls]
2013年(平成25年)9月30日更新版を収録
秩父鉄道
[Chichibu20130930.xls]
2013年(平成25年)9月30日更新版を収録
千歳線
[Chitose20130930.xls]
2013年(平成25年)9月30日更新版を収録
千葉都市モノレール
[ChibaCityMono20130930.xls]
2010年(平成22年)12月4日改正
2013年(平成25年)9月30日更新版を収録
中央・総武緩行線
[ChuoSobuLocal20130930.xls]
2013年(平成25年)9月30日更新版を収録
銚子電気鉄道
[Choshi20130930.xls]
2013年(平成25年)9月30日更新版を収録
[JR]津軽線
[Tsugaru20130930.xls]
2013年(平成25年)9月30日更新版を収録
津軽鉄道
[TsugaruTetsudo20130930.xls]
2013年(平成25年)9月30日更新版を収録
ディズニーリゾートライン
[Disney20130930.xls]
2013年(平成25年)9月30日更新版を収録
東金線
[DATogane20140417.xlsm]
2014年(平成26年)4月17日更新版を収録
東京モノレール
[TokyoMono20130930.xls]
2013年(平成25年)9月30日更新版を収録
東京臨海高速鉄道りんかい線
[TWRRinkai20130930.xls]
2013年(平成25年)9月30日更新版を収録
東武野田線
[TobuNoda20130930.xls]
2013年(平成25年)9月30日更新版を収録
南武線
[Nambu20130930.xls]
2013年(平成25年)9月30日更新版を収録
根室本線
[Nemuro20130930.xls]
2013年(平成25年)9月30日更新版を収録
函館本線
[Hakodate20130930.xls]
2013年(平成25年)9月30日更新版を収録
函館市電2系統
[Hakodate2City20130930.xls]
2013年(平成25年)9月30日更新版を収録
函館市電5系統
[Hakodate5City20130930.xls]
2013年(平成25年)9月30日更新版を収録
八高線
[Hachikou20130930.xls]
2013年(平成25年)9月30日更新版を収録
八戸線
[Hachinohe20130930.xls]
2013年(平成25年)9月30日更新版を収録
花輪線
[Hanawa20130930.xls]
2013年(平成25年)9月30日更新版を収録
日高本線
[Hidaka20130930.xls]
2013年(平成25年)9月30日更新版を収録
富良野線
[Hurano20130930.xls]
2013年(平成25年)9月30日更新版を収録
[JRバス]防長線
[DABotyo20131021.xls]
2013年(平成25年)10月21日更新版を収録
北総線
[Hokuso20130930.xls]
2013年(平成25年)9月30日更新版を収録
室蘭本線
[Muroran20130930.xls]
2013年(平成25年)9月30日更新版を収録
山手線
[Yamanote20130930.xls]
2013年(平成25年)9月30日更新版を収録
山田線
[Yamada20130930.xls]
2013年(平成25年)9月30日更新版を収録
[山万]ユーカリが丘線
[Yukarigaoka20130930.xls]
2013年(平成25年)9月30日更新版を収録
ゆりかもめ
[Yurikamome20130930.xls]
2013年(平成25年)9月30日更新版を収録
由利高原鉄道
[DHYurikogen20130930.xls]
[DDYurikogen20130930.xls]
[DNYurikogen20130930.xls]
2013年(平成25年)9月30日更新版を収録
留萌本線
[Rumoi20130930.xls]
2013年(平成25年)9月30日更新版を収録

ファイルのHash値

ハッシュ値リスト
[DiagramHash.csv]
2013年(平成25年)10月8日更新

作成日:2013年4月3日、最終更新日: