« 旧中山道を歩く(計画:木曽福島~美江寺) | Main | 十日町の棚田を見に・・・ »

04/19/2016

トレッキングに使えるWebクエリを使ったマクロ( 2日3時間+ 7日6時間)天気予報

Webクエリを使うマクロ、こんどは 3日間 3時間天気予報と、10日間 6時間予報を組み合わせて作ってみた。しかし、マクロに間違いないはずなのに・・・途中で必ず停まってしまう。

もしかして、使用制限されているのか・・・。原因は明確には分からないが、こちら側からWebへの処理要求が早すぎるのではないかと考え、次の処理まで 5秒間一時停止するコマンドを追記した。

 5秒間一時停止するVBAコマンド : Application.Wait [Now() + "0:00:05"]

これを入れてマクロを起動させたところ、処理に時間はかかるが、途中で停まってしまうことはなく処理を終了させる事が出来た。
多分、これを使うユーザーのインターネット回線速度などの環境で、処理のスムーズさが変わるかもしれない。もし、通信環境が良ければ、一時停止コマンド部分をコメント行にして使うのが良いと思う。

アップロードしたマクロは、トレッキングする地域の天気予報取得用URLに対して、日本気象協会のWebから、最初の2日間は 3時間天気予報、その後の7日間は 6時間天気予報を取得し、表にする。

雨天なら、その時間帯のセルを薄い青色で、2mm/h以上の降雨量の場合には、少し濃い青で、5mm/h以上の場合には赤色で塗るようにした。(5mm/hの場合に、赤色のセルにするというのは前回公表のマクロには入れていなかった処理)

これを使いたいと思うユーザーは、私がアップロードした表の2列目のデータを準備すれば、Webクエリにより容易にこのような天気予報表を作成する事が出来る。

天気予報を調べる地域用URLの作成に関しては、僕が以前に書いたブログ記事を参照すると良いと思う。

ダウンロード用データとマクロ

「weather_forecast3h6h_trek_schedule_cmbined_sheet_20160418.xlsm」をダウンロード

マクロの実行のボタンを設定
マクロを毎回開くのでは面倒なので、表の左上にマクロ実行用のボタンを設定した。
ボタンの設定は、Excelの「開発」タブをクリックして、
Photo ⇒挿入アイコンをクリックし、
 メニュー窓の左上にあるボタンの形をしたアイコンをクリックする。
(赤でマーキングしたアイコン)

マウスのカーソルが十時線に変わるので、ボタンを作成したい場所の左上をクリック、次に右下になる場所でクリックしボタンを作る。

ボタンを作成すると、マクロの登録という窓が開くので、
該当するマクロを選択クリックし、OKボタンをクリックする。

ボタンの場所・サイズが気に入らなければ、ボタンの何処かをマウスクリックすれば、ボタンの編集が出来るので、移動、拡大・縮小 など行い位置などを確定する。

ボタンの中でマウス右クリックし、メニューを表示させて、「テキストの編集」を選び、ボタンの名前を記入する。

ボタンの文字や色を変更する場合には、マウスの右クリックでメニューを表示させて、その中から「コントロールの書式設定」を選びクリック、
フォントや文字の色、フォントの太さなどを変更する。

マクロ実行ボタンを追加したファイル
「weather_forecast3h6h_trek_schedule_cmbined_sheet_20160419.xlsm」をダウンロード


このマクロで処理した結果事例
Weather_forecast3h6h_trek_schedule_



















⇒その後

 マクロ中の一時停止処理の入れ方や、時間を変更しても、またこの処理方法を根本的に変更してみたが、Webクエリの処理中で止まったままになってしまう。
 この状況を改善する方法が見つからない・・・。


結局 10日間6時間毎天気予報(下記↓)しか実用的にならないみたいだ。
「weather_forecast_trek_schedule_cmbined_sheet_20160420.xlsm」をダウンロード

« 旧中山道を歩く(計画:木曽福島~美江寺) | Main | 十日町の棚田を見に・・・ »

PC and PC troubles」カテゴリの記事

Comments

Post a comment

Comments are moderated, and will not appear on this weblog until the author has approved them.

(Not displayed with comment.)

TrackBack

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/540128/63504945

Listed below are links to weblogs that reference トレッキングに使えるWebクエリを使ったマクロ( 2日3時間+ 7日6時間)天気予報:

« 旧中山道を歩く(計画:木曽福島~美江寺) | Main | 十日町の棚田を見に・・・ »

June 2017
Sun Mon Tue Wed Thu Fri Sat
        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  

Recent Trackbacks

無料ブログはココログ