Untidy Bookshelves

アクセスカウンタ

zoom RSS *** 気分転換・・・? ***

<<   作成日時 : 2014/09/08 23:00   >>

ブログ気持玉 0 / トラックバック 0 / コメント 0

 きょうはシフト外の業務で、冬の準備――
 雪と雨の境は・・・などといろいろ考えていたら、すっかり煮詰まってしまいました。。
 Excelのグラフでデータ参照先を考えるのも、けっこう面倒だし・・・。

 そんな時、雪とはまったく縁がない、インドネシアが話題に上がっているのを見つけたので・・・。
 お題は、インドネシア気象局のサイトにある、降水分布図。
 はたして、過去の画像にさかのぼれるのか・・・。

画像

 画像のプロパティを見ると、URLには日付の情報が入っていました。

    http://meteo.bmkg.go.id/data/hj/2014/09/08/hj_20140908.png

 試しに2ヵ月前の日付を入れると、ちゃんと画像が表示されました。
 ついでに、一年前も――。

 そんなわけで、気分転換――という名の現実逃避――の意味で、マクロを組んでみました。
 気分転換といっても、Excelを扱っていることに変わりないのですが・・・。

--------------------------------------------------------------------------------
Sub test()

 y = Cells(■, ■)
 m = Format(Cells(■, ■), "00")
 d = Format(Cells(■, ■), "00")

 ActiveSheet.Hyperlinks.Add(Anchor:=Range("■■"), _
 Address:="http://meteo.bmkg.go.id/data/hj/" & y & "/" & m & "/" & d & "/hj_" & y & m & d & ".png", _
 TextToDisplay:="降水分布図").Follow

End Sub

--------------------------------------------------------------------------------

 これで、シート上に年月日を入れると、その日の画像がブラウザに表示されます。
 重複している感じですが、ハイパーリンクも追加――。
 サイトにリンクはないようですが、2013年1月28日以降の画像は見られるようです。
 
 だから何? と言われても・・・苦情は受け付けませんので。。

テーマ

関連テーマ 一覧


月別リンク

ブログ気持玉

クリックして気持ちを伝えよう!
ログインしてクリックすれば、自分のブログへのリンクが付きます。
→ログインへ

トラックバック(0件)

タイトル (本文) ブログ名/日時

トラックバック用URL help


自分のブログにトラックバック記事作成(会員用) help

タイトル
本 文

コメント(0件)

内 容 ニックネーム/日時

コメントする help

ニックネーム
本 文
*** 気分転換・・・? *** Untidy Bookshelves/BIGLOBEウェブリブログ
文字サイズ:       閉じる