■ ガソリン値上げは便乗値上げ？
７時起床。30.4℃ 62％ 快晴、日差しが強い。ラジオ体操、朝食のあと、
サイホンの原理を利用した
日課の水やり。
そしてのぞき見。
【大輪向日葵】 脚立を持ち出し真上からのぞき見。右上の四角い影は
カメラ。３本中１本が開花近し。
他の２本は蕾かたし。
昼食後、
タマちゃんの買物のあと、
姉に野菜・果物を届ける。一雨ほしいが・・・。
帰りにガソリン給油。
１Ｌあたり、171円。
４ヶ月のガソリン価格の推移を見ると、
122円（4月）→ 152円（5月）→ 162円（6月）→ 171円（7月）
ドル換算で 1.17＄(4月）→ 1.44＄(5月）→ 1.52＄(6月）→ 1.58＄(7月）
一方 ドル円、ＮＹ原油は
ドル円 103.95(4月）→ 105.50(5月）→ 106.09(6月）→ 107.88(7月）
ＮＹ原油（ドル/バレル） 127＄ (5月）→ 140＄ (6月）→ 123＄ (7月）
ガソリン価格は５月の値上げは特殊要因で、５月から７月の値上がり率
は、円で12.5％、ドル換算で9.7％の上昇。一方ドル円は５月から2.2％の
下落しかしていない。この間にＮＹ原油価格は下落している。
これで８月も値上げするのか？ 便乗値上げや！
13：30頃、隣の奥さんが枕が飛んだので拾わしてほしいとやってきた。子ど
もが枕投げをやっていたのかなと思ったら突風で飛ばされていた。台風並
みの強い風、15分位でおさまった。
その後、雷とともに大雨。昨日井出を閉めたが、雨の中井手の開門に行
く。他の井手当番の人は不在で一人で出かける。水量がすごい。下流の
ゲートから水門を開放する。
夕刻、水かさは減っていた。
■ 息子は見ていた
Excelでやりたい事： 自治会の「○○通知書兼領収書」の印刷。一覧表の
各項目を通知書の金額欄にコピーし、印刷する。一人目が終われば次の
人に移り同じ事を繰返す。
2008/07/27の続きで、マクロを調べようと思ったら息子がこうしたらえねん
とメールをくれていた。
Range("A2").Select のところを Range("A" & i).Select
で表現すればいい。
息子は見ていた。
マクロ
Sub Macro1()
For i = 2 To 4
Sheets("一覧表").Select
Range("A" & i).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("請求書").Select
Range("B6").Select
ActiveSheet.Paste
～～～～～～～～～～～～～～～～～～
～～～～～～～～～～～～～～～～～～
Range("D15").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-2]C)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub
やってみたらＯＫ、ありがとう息子。
マクロで出来る目処がたったので、「○○通知書兼領収書」を簡単なもの
から作成する。
■ 散歩道にて
2008/07/28 18：42
■ きょうのタマちゃん
のち 
