Excel○○地方のアメダス地点の日別降雪量を取り込みたいという要望がありました。前にそんなのを作ったような記憶が・・・。過去のファイルを探してみたら、半年前に北海道用に作成したマクロがそのまま流用出来ました。残しておいても、忘れることは確実ですが、取り急ぎ、備忘録的に残しておきます。<main>タブに設定した地点・年度のデータを<data>タブに取り込む。<data>タブに取り込まれるのは、地点ごと・月ごとのデータ。取り込む月は年度で指定した年の10月~12月、および翌年の1~4月。地点ごと・月ごとに取り込んだデータは別のタブ・<20xx年度>にコピー。以上がこのマクロでやりたいこと。<main>タブでの設定はこんな感じ。prec_no、block_noは気象庁HPのURLにしたがったもの。block_noはpoint_noでよい気もしますが・・・。prec_noは支庁(北海道の場合)や都府県に対応した2桁のコードで、アメダス地点番号の上2桁と同じ。block_noが少々ややこしく、気象台・測候所(廃止されたものを含む)は国際地点番号。それ以外は、アメダス地点番号・・・とは無関係の番号。アメダス地点番号の一覧表をそのまま使えず、手打ちしなくてはいけないのがうっとうしいです。以下、マクロの記述――。)を分けたのはデータの入り方が違うから。データの入り方が違うのは、観測要素が違うから、当然といえば当然。観測要素以外でデータの入り方が違うとは、思いもよらないことでした。i-------------------------------------------------------------------------------Webからデータを取り込むところは、例によって「マクロの記録」で。それぞれの行の意味を分かっていません、例によって流してしまいました。Sub-------------------------------------------------------------------------------<data>タブに取り込んだデータを<20xx年度>にコピーする部分のマクロ。コピーする行数は月によって変わるので、先頭と末尾を指定する必要があります。先頭は、日にちが記述されているA列で「1」が入っている行、というのは問題ありません。ところが、末尾は大問題。)を分けることになるとは・・・。)を分ける必要があるのか?当初は、どちらも「データに付加している記号の意味」を末尾のフラグにしてマクロを組んでいたのですが、ふつうのアメダス地点が毎月一行ずつずれてしまいます。謎は深まるばかり・・・。仕方がないので、<data>タブに取り込まれたデータをよくよく見ると・・・。下はシノップ(気象台・測候所)地点の旭川、2013年4月のデータ。4月30日のデータが45行目にあり、A46のセルには「データに付加している記号の意味」が入っています。)の和寒、2013年4月のデータ。4月30日のデータが44行目にあるのは、スタートが違うから。1行ずらせば、A45のセルに「データに付加している記号の意味」が入るはずですが、空白・・・。「データに付加している記号の意味」が入っているのはA46で、4月30日のデータの2行下なのです。この違いはいったい・・・?両者の違いの理由は分かりません。意図されたものなのか、意図せざるものなのかも・・・。理由が分からなくても、データは正しく取り込まれなくてはいけません。そんなわけで、末尾を指定する箇所も無理やり場合分けしてしまいました。結果の一例がこれ・・・。2011年度の降雪量で、10月1日~11月21日までを示しています。それにしても、こんな落とし穴があるとは思いませんでした。勝手にデータを取り込んでいるので、何も言えませんが・・・。ほかのDBもちゃんと扱えるようにならないといけませんね。篠原美也子ブログ気持玉クリックして気持ちを伝えよう!ログインしてクリックすれば、自分のブログへのリンクが付きます。***久しぶりに、謎の天気図。(WEAミ...昔、このブログで書いた3つの記事――。(新潮文庫)名前は知っていましたが、初めて買った柚木麻子。(岩...定価(本体630円+税)に対し、鉛筆で書いた450。(将...4日間の夜勤が終了。