目次
イントロダクション
郵便局巡りを趣味としている人にとっては開局情報は重要なものです。
廃止の知らせが見つかれば、ルート検索高速料金検索をして向かわなくてはなりません。
開局情報は個別的、断片的な情報を与えてくれます。
しかし
毎年何件が廃止、一時閉鎖、再開、開局されているのか？
歴史的に見て廃止は増えているのか、減っているのか？
数をまとめたものは公開されていません。
それら計量的・時系列的な情報は謎に包まれています。
今回独自研究として、開局情報を自前の解析マクロを利用してグラフ化しまとめてみました。
グラフから、いくつかの傾向を見つけることが出来ます。傾向のひとつには2012年の郵政民営化を境とするものです。あるいは自然災害の影響もあるでしょう。
以下のグラフは、現実の郵便局の変動を理解する助けになるでしょう。
解析方法
データはこちらから取得しています。
集計にはMicrosoft Office Excelを使用しました。
office製品と言えば「見た目がダサい。MSゴシック。おっさんが使ってる」というイメージがあります。
ただ集計するだけでは楽しくありません。兎に角かっこよくすればモチベが上がります。
オフィスの負のイメージを払拭するための闘いが始まりました。
ビジュアル系オフィス=エクセルの真価を見よ。
マトリックス。
あるいは海外ドラマのビッグデータから何か傾向を捜査してる場面を彷彿とさせるます。
我ながら出来栄えに笑いました。
こんな感じで機械に自動で集計させてます。
当記事はあくまで個人研究です。何度か確認した上でマクロ組んでるので間違ってるはずはありませんが、何らかの誤りによる損害は補償しません。
使用アルゴリズムは一番最後に貼り付けたので見てください。
アルゴリズムを試してみたい方は、データ自体は開局情報の方で取得してください。
2012～2019年の推移表
全体
| 全て | 開局 | 廃止 | 一時閉鎖 | 再開 | 改称 | 移転 | 合計 |
|---|---|---|---|---|---|---|---|
| 2007 | 0 | 0 | 15 | 7 | 1 | 5 | 28 |
| 2008 | 4 | 4 | 110 | 130 | 8 | 136 | 392 |
| 2009 | 3 | 2 | 78 | 203 | 24 | 223 | 533 |
| 2010 | 2 | 2 | 68 | 136 | 14 | 166 | 388 |
| 2011 | 2 | 1 | 98 | 121 | 18 | 134 | 374 |
| 2012 | 1 | 15 | 67 | 67 | 15 | 97 | 262 |
| 2013 | 4 | 13 | 89 | 88 | 18 | 131 | 343 |
| 2014 | 6 | 37 | 77 | 70 | 20 | 142 | 352 |
| 2015 | 13 | 39 | 99 | 43 | 27 | 152 | 373 |
| 2016 | 7 | 34 | 108 | 63 | 22 | 160 | 394 |
| 2017 | 11 | 39 | 106 | 62 | 17 | 116 | 351 |
| 2018 | 11 | 47 | 134 | 80 | 19 | 79 | 370 |
| 2019 | 1 | 2 | 32 | 5 | 3 | 12 | 55 |
| 合計 | 65 | 235 | 1081 | 1075 | 206 | 1553 | 4215 |
うーん。
表だとやはり分かりませんね。
推移グラフの章で詳しく書くので、そちらをご覧ください。
普通郵便局(特定局)
| 普通局 | 開局 | 廃止 | 一時閉鎖 | 再開 | 改称 | 移転 | 合計 |
|---|---|---|---|---|---|---|---|
| 2007 | 0 | 0 | 0 | 1 | 1 | 4 | 6 |
| 2008 | 2 | 1 | 3 | 1 | 7 | 44 | 58 |
| 2009 | 0 | 2 | 2 | 2 | 13 | 49 | 68 |
| 2010 | 1 | 2 | 3 | 2 | 8 | 49 | 65 |
| 2011 | 1 | 1 | 17 | 42 | 12 | 61 | 134 |
| 2012 | 1 | 7 | 6 | 5 | 15 | 54 | 88 |
| 2013 | 4 | 10 | 15 | 11 | 11 | 54 | 105 |
| 2014 | 6 | 20 | 8 | 6 | 16 | 76 | 132 |
| 2015 | 13 | 14 | 12 | 11 | 25 | 122 | 197 |
| 2016 | 7 | 14 | 19 | 16 | 17 | 120 | 193 |
| 2017 | 9 | 5 | 13 | 18 | 16 | 86 | 147 |
| 2018 | 9 | 5 | 46 | 36 | 13 | 56 | 165 |
| 2019 | 1 | 2 | 8 | 1 | 3 | 9 | 24 |
| 合計 | 54 | 83 | 152 | 152 | 157 | 784 | 1382 |
簡易郵便局
| 簡易 | 開局 | 廃止 | 一時閉鎖 | 再開 | 改称 | 移転 | 合計 |
|---|---|---|---|---|---|---|---|
| 2007 | 0 | 0 | 15 | 6 | 0 | 1 | 22 |
| 2008 | 0 | 3 | 107 | 129 | 1 | 92 | 332 |
| 2009 | 2 | 0 | 76 | 201 | 11 | 174 | 464 |
| 2010 | 1 | 0 | 65 | 134 | 6 | 117 | 323 |
| 2011 | 1 | 0 | 81 | 79 | 5 | 72 | 238 |
| 2012 | 0 | 0 | 61 | 62 | 0 | 42 | 165 |
| 2013 | 0 | 1 | 74 | 77 | 4 | 76 | 232 |
| 2014 | 0 | 14 | 69 | 64 | 3 | 65 | 215 |
| 2015 | 0 | 25 | 87 | 32 | 0 | 29 | 173 |
| 2016 | 0 | 19 | 89 | 47 | 5 | 40 | 200 |
| 2017 | 2 | 34 | 93 | 44 | 1 | 30 | 204 |
| 2018 | 2 | 42 | 86 | 42 | 6 | 23 | 201 |
| 2019 | 0 | 0 | 24 | 4 | 0 | 3 | 31 |
| 合計 | 8 | 138 | 927 | 921 | 42 | 764 | 2800 |
分室
| 分室 | 開局 | 廃止 | 一時閉鎖 | 再開 | 改称 | 移転 | 合計 |
|---|---|---|---|---|---|---|---|
| 2007 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| 2008 | 2 | 0 | 0 | 0 | 0 | 0 | 2 |
| 2009 | 1 | 0 | 0 | 0 | 0 | 0 | 1 |
| 2010 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| 2011 | 0 | 0 | 0 | 0 | 1 | 1 | 2 |
| 2012 | 0 | 8 | 0 | 0 | 0 | 1 | 9 |
| 2013 | 0 | 2 | 0 | 0 | 3 | 1 | 6 |
| 2014 | 0 | 3 | 0 | 0 | 1 | 1 | 5 |
| 2015 | 0 | 0 | 0 | 0 | 2 | 1 | 3 |
| 2016 | 0 | 1 | 0 | 0 | 0 | 0 | 1 |
| 2017 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| 2018 | 0 | 0 | 2 | 2 | 0 | 0 | 4 |
| 2019 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| 合計 | 3 | 14 | 2 | 2 | 7 | 5 | 33 |
推移グラフ
全体
民営化前の2011年までは廃止(黒)も開局(赤)も殆どありませんでした。2012年からいきなり増加しています。民営化で営利傾向になったので、儲からない過疎地は潰して新興住宅地や人口密集地に開局しているようです。
2013年を境に、一時閉鎖が再開よりも増えました。一時閉鎖でそのまま終了パターンが増えたようです。
普通局(特定局)
民営化前の2011年までは廃止は殆どあり得ませんでした。
2012年以降、廃止(黒)が一気に増えました。2017年には廃止が落ち着いてきて、開局(赤)の方が若干多くなりました。
2011年に再開(ピンク)が急増しているのは地震の影響と思われます。2011年の開局情報を見ると志津川、野蒜、雄勝、石巻、鵜住居などの地名が見かけられます。
全体的に見ると比較的変化が穏やかです。
簡易郵便局
2012年の郵政民営化まではほとんど無かった廃止(黒)が、2012年以降一気に増加しています。
2014までは一時閉鎖(青)より再開(ピンク)が多かった時期がありますが、2014年以降は一貫して一時閉鎖が再開の2倍です。
一時閉鎖＝再開+廃止 がニアリーイコールしているので、一時閉鎖後そのまま廃止という流れが増えたようです。
全体的に見て流動が激しいです。簡易局は個人経営ですので局長が体調を崩したりするとすぐ一時閉鎖したりします。
一時閉鎖(青)と再会(ピンク)、移転(黄色)が多い傾向です。
分室
分室はもともと少ないですが、郵政民営化の2012年にいきなり8件も消滅しました。
大清算です。
種別ごと比較グラフ
開局
民営化以降、やはり普通局の開局が増えました。2018年では「イオン板橋SC内郵便局」「ジ・アウトレット広島内郵便局」「イオンモール苫小牧内郵便局」などの
チャラい感じの名前の局が次々と出来ています。
イオンの買い物ついでに郵便局に寄るという需要が増えたということでしょう。イオンの集客力つよつよ。
廃止
簡易局の廃止がマッハ。
普通局の廃止は、2014～2016年で目立っていますが、2017年以降は落ち着いた様子。
一時閉鎖
簡易局はコンスタントに一時閉鎖が多いです。
2018年は普通局が40局も一時閉鎖しています。
これは広島県の豪雨によるものです。2018年7月9日の1日間で32件の普通郵便局が閉鎖しました。
再開
再開の数は、簡易局で特に減少しています。2015年以降は常に50件以下です。
一方、一時閉鎖のグラフでは簡易局はコンスタントに80件前後をキープしています。一時閉鎖後に再開しないでフェードアウトするパターンが多いと思われます。
改称
改称は普通郵便局で頻繁に改称が行われているようです。
移転
2015年以降は普通局の移転が増えています。
最近では昔ながらの雰囲気の郵便局が消えてコンビニみたいなのが増えていますね。建物の更新期ということでしょう。
使用アルゴリズム
VBAです。
人に見せるために作ったわけじゃないので、変数名が不可解ですが大体これで行けます。
A行に開局情報の年月日、B行に局名が入れてください。
シートはSheet1を使ってください。
行、列の項目名とかは雰囲気で入れてください(雑)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 |
Sub countpost() Dim i As Integer 'A行に開局情報の年月日、B行に局名 '全局:E2～K17,簡易:N2～S17,分室W2～AB17, '上から2007～2022年 '左から開局,廃止,一時閉鎖,再開,改称,移転 '一旦クリーン（全部ゼロ）してから使ってください '合計は各自SUM数式を書いて使ってください For i = 1 To 4000 If Cells(i, 2).Value Like "*開局*" Then '3つの関数を呼ぶ years i, 5 kani i, 14 bunsh i, 23 End If If Cells(i, 2).Value Like "*廃止*" Then years i, 6 kani i, 15 bunsh i, 24 End If If Cells(i, 2).Value Like "*一時閉鎖*" Then years i, 7 kani i, 16 bunsh i, 25 End If If Cells(i, 2).Value Like "*再開*" Then years i, 8 kani i, 17 bunsh i, 26 End If If Cells(i, 2).Value Like "*改称*" Then years i, 9 kani i, 18 bunsh i, 27 End If If Cells(i, 2).Value Like "*移転*" Then years i, 10 kani i, 19 bunsh i, 28 End If Next i End Sub 'argiは現在精査している行 'argは完成した表のopen/close/suspend/again/move/renameの番号 Function years(argi, arg) If Cells(argi, 3).Value Like "*2007*" Then '2007は2 celval = Cells(2, arg).Value celval = celval + 1 Cells(2, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2008*" Then '2008は3 celval = Cells(3, arg).Value celval = celval + 1 Cells(3, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2009*" Then '2009は4 celval = Cells(4, arg).Value celval = celval + 1 Cells(4, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2010*" Then '2010は5 celval = Cells(5, arg).Value celval = celval + 1 Cells(5, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2011*" Then '2011は6 celval = Cells(6, arg).Value celval = celval + 1 Cells(6, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2012*" Then '2012は7 celval = Cells(7, arg).Value celval = celval + 1 Cells(7, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2013*" Then '2013は8 celval = Cells(8, arg).Value celval = celval + 1 Cells(8, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2014*" Then '2014は9 celval = Cells(9, arg).Value celval = celval + 1 Cells(9, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2015*" Then '2015は10 celval = Cells(10, arg).Value celval = celval + 1 Cells(10, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2016*" Then '2016は11 celval = Cells(11, arg).Value celval = celval + 1 Cells(11, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2017*" Then '2017は12 celval = Cells(12, arg).Value celval = celval + 1 Cells(12, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2018*" Then '2018は13 celval = Cells(13, arg).Value celval = celval + 1 Cells(13, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2019*" Then '2019は14 celval = Cells(14, arg).Value celval = celval + 1 Cells(14, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2020*" Then '2020は15 celval = Cells(15, arg).Value celval = celval + 1 Cells(15, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2021*" Then '2021は16 celval = Cells(16, arg).Value celval = celval + 1 Cells(16, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2022*" Then '2022は17 celval = Cells(17, arg).Value celval = celval + 1 Cells(17, arg).Value = celval End If End Function Function kani(argi, arg) If Cells(argi, 2).Value Like "*簡易郵便局*" Then If Cells(argi, 3).Value Like "*2007*" Then celval = Cells(2, arg).Value celval = celval + 1 Cells(2, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2008*" Then celval = Cells(3, arg).Value celval = celval + 1 Cells(3, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2009*" Then celval = Cells(4, arg).Value celval = celval + 1 Cells(4, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2010*" Then celval = Cells(5, arg).Value celval = celval + 1 Cells(5, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2011*" Then celval = Cells(6, arg).Value celval = celval + 1 Cells(6, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2012*" Then celval = Cells(7, arg).Value celval = celval + 1 Cells(7, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2013*" Then celval = Cells(8, arg).Value celval = celval + 1 Cells(8, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2014*" Then celval = Cells(9, arg).Value celval = celval + 1 Cells(9, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2015*" Then celval = Cells(10, arg).Value celval = celval + 1 Cells(10, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2016*" Then celval = Cells(11, arg).Value celval = celval + 1 Cells(11, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2017*" Then celval = Cells(12, arg).Value celval = celval + 1 Cells(12, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2018*" Then celval = Cells(13, arg).Value celval = celval + 1 Cells(13, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2019*" Then celval = Cells(14, arg).Value celval = celval + 1 Cells(14, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2020*" Then celval = Cells(15, arg).Value celval = celval + 1 Cells(15, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2021*" Then celval = Cells(16, arg).Value celval = celval + 1 Cells(16, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2022*" Then celval = Cells(17, arg).Value celval = celval + 1 Cells(17, arg).Value = celval End If End If End Function Function bunsh(argi, arg) If Cells(argi, 2).Value Like "*分室*" Then If Cells(argi, 3).Value Like "*2007*" Then celval = Cells(2, arg).Value celval = celval + 1 Cells(2, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2008*" Then celval = Cells(3, arg).Value celval = celval + 1 Cells(3, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2009*" Then celval = Cells(4, arg).Value celval = celval + 1 Cells(4, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2010*" Then celval = Cells(5, arg).Value celval = celval + 1 Cells(5, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2011*" Then celval = Cells(6, arg).Value celval = celval + 1 Cells(6, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2012*" Then celval = Cells(7, arg).Value celval = celval + 1 Cells(7, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2013*" Then celval = Cells(8, arg).Value celval = celval + 1 Cells(8, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2014*" Then celval = Cells(9, arg).Value celval = celval + 1 Cells(9, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2015*" Then celval = Cells(10, arg).Value celval = celval + 1 Cells(10, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2016*" Then celval = Cells(11, arg).Value celval = celval + 1 Cells(11, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2017*" Then celval = Cells(12, arg).Value celval = celval + 1 Cells(12, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2018*" Then celval = Cells(13, arg).Value celval = celval + 1 Cells(13, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2019*" Then celval = Cells(14, arg).Value celval = celval + 1 Cells(14, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2020*" Then celval = Cells(15, arg).Value celval = celval + 1 Cells(15, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2021*" Then celval = Cells(16, arg).Value celval = celval + 1 Cells(16, arg).Value = celval ElseIf Cells(argi, 3).Value Like "*2022*" Then celval = Cells(17, arg).Value celval = celval + 1 Cells(17, arg).Value = celval End If End If End Function |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
Sub clean() '普通 For j = 5 To 10 For k = 2 To 17 Cells(k, j).Value = 0 Next k Next j '簡易 For j = 14 To 19 For k = 2 To 17 Cells(k, j).Value = 0 Next k Next j '分室 For j = 23 To 28 For k = 2 To 17 Cells(k, j).Value = 0 Next k Next j End Sub |
関連記事
了
