2008/07/31 中干し

■ 【大輪向日葵】満開


朝は涼しく感じるようになった。寝汗もかかない。


【大輪向日葵】　外輪の黄色い花びらが完全にひらいたので満開。一本の
茎に一輪の花しか咲かない。高さ 192cm。


外輪の黄色い花びらのところ　：直径：16cm


内側の花びらがない花のところ　：直径：11cm


いいもの（安いもの）を求めて買物に。
きょうのいいものは、「アサヒ十六茶〈2L〉￥98」、「味の素 ごま油好きのご
ま油〈180g〉￥118」など。
いいものは少なくなり、ほとんどが値上がりしている。

■ 散歩道にて


早起き【シロ】


【稲】　普通の田園風景だが、


田んぼの中は、「中干し」中。水を抜き土を乾燥させている。土が乾燥する
と根が水を求めて伸びて丈夫な稲が育つ。稲の分けつをおさえたり、田ん
ぼの土の中に酸素を供給したり等、いろいろな効果がある。


中干しの終った田は水入れ。


ため池の噴水。


他地区用水路の井手。用水路に近づかなくていいので安全、電動式なの
で労力不要。

■ 畑の管理

【いんげん】の種まき。

実っていたのを収穫せず、そのまま種として残しておいた。十分に乾燥している。


【いんげん】の種。大きくて形のいいものを選び、


一粒づつ種を蒔く。そのあと１cmくらい土をかぶせ水やりをする。


【プリンスメロン】　今年最大。直径16cm、高さ16cm、体重２kg。

■ きょうのタマちゃん



　　　のち　　

2008/07/30 いやしの暑中見舞い

■ 蟷螂 と遊ぶ


よく眠れた。久しぶりにラジオの伴奏でラジオ体操をする。


【大輪向日葵】　さらにお辞儀をする。顔は東を向いたまま。


大輪向日葵の茎に【蟷螂】。「かまきり」と読むより「とうろう」の方が語感がいい。


カメラを近づけると、恥ずかしがり隠れる。


向こう側から撮影すると、困った顔。


おどけて「こんなことできるよ」。

「吾輩は猫である」の「吾輩」が運動に選んだのは【蟷螂狩り】。きょうの
タマちゃんは【蟷螂】の存在に気づいてないが、タマちゃんも同じ運動をする。


きょうの気温。36.4℃を経験しているので、34℃は暑く感じない。


その後「Ｉオン」へ買物。20日・30日は５％引き。

タマちゃんの主食。「Ｉオン」グループで値段が違う。
    　
「Ｉオン」　


「Ｓティ」
仕入先が同じなので同じ価格に出来るはずだ。


一昨日の大雨で井手を３ヶ所開門したので、閉門に出かける。３ヶ所とも近
くの農家の人が閉めてくれていた。

■ いやしの暑中見舞い


「Ｙ田」さんから、ケロケロくんの暑中見舞いをいただく。


かわいい立体シール。はがきいっぱいにていねいな文章。

　　　　　
ハマナスの切手。隅々まで気配りありがとうございました。心の底からいやされました。

■ きょうのタマちゃん　



　　　　　　時々　　　

2008/07/29 のっぽの【プリンスメロン】

■ 二度寝が出来ない
５時頃起床。一度目が覚めると二度寝が出来ない。
昨日の雨の影響で涼しい朝だった。27℃　70％。
日課・・・　は、ゴミ出しだけ。


【大輪向日葵】　昨日までは真上を向いていたが、少しお辞儀をしてきた。


どの時点で開花というのかわからない。今朝の状況。

火曜日なので「Ｓティ」で買物が・・・　きょうは留守番。
女房殿帰宅して「抽選会、400番台はいっこもなかった」。

■ アカデミー受賞作品
きょう見たアカデミー受賞作品は、「失われた週末」　1945年。


　　　　　NHK BS2 アカデミー受賞作品「失われた週末」①
悪循環の円。


　　　　　NHK BS2 アカデミー受賞作品「失われた週末」②
アルコール中毒者の苦しみの過程が丁寧に描かれている。物語は何回目
かの禁酒を誓う場面で終わるが、尻切れトンボの印象を受けた。

アルコール依存症の完治は難しいようだ。何年も断酒していたのに、一口
の飲酒で元に戻ってしまったという話をよく聞く。

■ 畑の管理
夕刻畑へ。草引きと秋蒔き【いんげん】の耕作。


のっぽの【プリンスメロン】直径13cm、高さ17cm。【干瓢】と間違うくらいの
形状と大きさ。

■ 散歩道にて


きょうは「シロ」が主役。

■ きょうのタマちゃん　



　　　時々　、　一時　

2008/07/28 息子は見ていた

■ ガソリン値上げは便乗値上げ？


７時起床。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　

■ きょうのタマちゃん

　

　　　のち　

2008/07/27 自治会の「○○通知書兼領収書」の作成準備

■ 日本人の労働意欲低下


５時30分起床、すでに３０℃を超えている。
日課のラジオ体操、朝食、水やりなどを済ます。


暑くならないうちに、Ｙさんと井手の閉門に。３箇所回ると汗だくだくになる。


　　　　MBS「サンデーモーニング」
途中から見る。「風をよむ」のコーナーは「日本人の労働意欲低下？」
先日の新聞にも「労働意欲低下」が載っていた。一つの要因として「裁量労
働制」を取り上げ、思ったほど効果が出ていないどころか、逆効果であっ
た。突き詰めれば評価者が正しく評価できていない。それにより労働意欲
低下になり、企業業績低下になったとの分析。

自治会の「○○通知書兼領収書」の作成準備。いままで会計責任者が手
書きしていたのを、パソコンでやろうと考えている。パソコン購入はまだだ
が、準備だけはすることにした。

一覧表から各人宛の請求書をマクロを使ってできるか考えて見た。


各項目を


請求書の金額欄にコピーし、印刷する。一人目が終われば次の人に移り
同じ事を繰返す。

マクロ
Sub Macro1()
    Sheets("一覧表").Select
    Range("A2").Select　　　　　　　　＜－－自動で A3,A4,A5・・・と変えて行きたい
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("請求書").Select
    ActiveSheet.Paste
    Range("B6").Select
　　～～～～～～～～～～
　　～～～～～～～～～～
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

変数を使ってセルをA3,A4,A5を変えたいがやり方がわからない。


図書館へ調べに行くが、涼しさに気持ちがよくなり、うとうと・・・。
あす以降、ゆっくり頑張ろう。

■ 畑の管理
昼前に野菜・果物の収穫に。


【さつまいも②】　一部枯れかけてきた。水不足？


【アムスメロン】　今年最大のもの、直径15cm、高さ17cm

夕刻、

水やり


井戸水は冷たく、


水桶に溜めて一晩寝かし水やりするのがベストだが、じょうろでの水やりで
は追いつかない。


井戸水を直接やる。野菜はびっくりしていると思う。

ビールの調合。灌水ポンプの燃料がなくなってきた。

ガソリン２Ｌに


２サイクル専用オイルこの容器いっぱいで25：１の割合になる。

■ 散歩道にて


「ガ～公」「シロ」の間に【亀】


2008/07/26　17：18　夕立は降りそうにない。

■ きょうのタマちゃん