東大阪市役所のラグビー事業

大阪府の市町村別人口 大阪府の市町村別人口は、大阪府庁のHPにあります。 ホーム > 大阪府の毎月推計人口 http://www.pref.osaka.lg.jp/toukei/jinkou/ ホーム > 大阪府の毎月推計人口 > 推計人口（年報） http://www.pref.osaka.lg.jp/toukei/jinkou/jinkou-pdfindex.html 令和元年（2019 年）10 月１日現在 大阪府の推計人口 年報です。 Excelに、データとして貼り付け易いように、以下に、テキストデータとして掲載しておきます。 '　以下　市町村名 大阪市 堺市 岸和田市 豊中市 池田市 吹田市 泉大津市 高槻市 貝塚市 守口市 枚方市 茨木市 八尾市 泉佐野市 富田林市 寝屋川市 河内長野市 松原市 大東市 和泉市 箕面市 柏原市 羽曳野市 門真市 摂津市 高石市 藤井寺市 東大阪市 泉南市 四條畷市 交野市 大阪狭山市 阪南市 島本町 豊能町 能勢町 忠岡町 熊取町 田尻町 岬町 太子町 河南町 千早赤阪村 '　以上　市町村名 ’　以下　人口。上記市町村の順で並んでいる 2,740,202 827,971 189,811 400,329 104,169 381,829 74,566 348,247 85,860 142,262 399,197 282,824 266,386 100,239 110,132 229,974 102,102 118,340 119,986 185,208 136,184 68,400 109,553 119,692 86,004 56,320 63,814 494,640 60,435 55,427 76,100 58,746 51,747 30,797 18,441 9,189 16,840 43,884 8,536 15,185 13,213 15,751 4,921 '　以上　人口 以上

東大阪市でコロナ陽性者が急増 MicrosoftのExcelで動作するMacroを作成しましたので公開します。 大阪府庁では、 新型コロナウイルス感染症患者の発生状況 を公表しており、エクセルのファイルをダウンロードできるようにしてはありますが、2020年11月以降、毎日、ファイルがアップロードされているため、100個以上のファイルがあります。 このような大量のファイルを手動でダウンロードすることは手間がかかります。 このため、一度に大量のファイルをダウンロードできるMacroを作成しました。 下の図は、ダウンロードしたファイルのデータを元に作成しました。 東大阪市でコロナ陽性者が急増していることがわかります。 以下　使い方 任意のフォルダーを新規に作成する。 そのフォルダーに、空のExcelファイルを作成する。 この空のExcelファイルで以降の操作をする。 Excel > 表示 > マクロ > マクロの表示 マクロ名に適当な名前、例えば、aaaと記入し「作成」する。 「Sub aaa()     End Sub」を削除する。 下にあるMacroをコピーし、Excel(Microsoft Visual Basic for Applications)に貼り付ける。 Excelで、 > 表示 > マクロ > マクロの表示 > 実行 以上　使い方 動作内容 下のマクロは12月から４月までの対応です。それ以外の月への対応は、Macroを修正する必要があります。 直近のデータファイルには対応していません。直近の１日過去のデータからの取得になります。直近のデータファイルは手動で入手してください。 大阪府庁のファイルの名称には、公表した日付が使われています。本Macroでは、その１日過去の日付の名前で作成します。 ' *** 以下 Microsoft Visual Basic for Applications Macro *** Option Explicit '変数の宣言が必須 Const sURLPre As String = "http://www.pref.osaka.lg.jp/attach/23711/" Const sURLExtention As String = ".xl...