「etTomioのトホホ日記」 2011年1月
◆2011/1/26 |
会社からの帰宅時、書店に寄り時刻表を眺めました。おっ 3/12開業の九州新幹線のダイヤが載っている。2つの時刻表を見比べて、文字の大きい方を選びました。眼鏡をかけていても、ちっちゃな文字は見づらいです。 さて今からダイヤを眺めて、九州直通のS編成(JR西)や、R編成(JR九州)のダイヤ、並びに500系「こだま」のダイヤをチェックしたいと思います。 |
◆2011/1/22 |
1/19の17時半頃帰宅して間もなく、近所のご主人が来られて、○○さんが亡くなったという知らせを貰いました。18時から当家に伺い段取りを決めようということでした。カミサンは遅番なのでまだ帰っていませんでした。頭の中、真っ白になりました。平日かよ・・・ オレ、平日の午前中は休んだことないのに・・・ 隣家ですから夫婦で告別式の手伝いです。 頭に覚えられそうにないと思い、作業着のまま、手帳を持って行きました。ウチ以外は夫婦で来ておられました。えっ、20日の16時出棺で、18時に通夜、そして21日の10時から葬儀・・・ そしたらカミサンと2人セットで2日間も引っ張られるのか・・・ 夜8時前にカミサンも来ました。 20日の午後から休みを貰い、カミサンと13時に御当家に集合。私は会計をすることになりました。14時からしもけしということで、2人買い物に行かれました。しもけしというのは今から葬儀のお手伝いをしますということで、つまみをつまんで一杯飲むんです。奥さん連中がちっちゃなむすびを7つもみ、男で山に上がって六地蔵にお参りです。私は行ったことがないので勉強にとついて行きました。 15時から受け付け。15時半頃から部落の方が見えられ、16時までには50軒以上の方がみえられました。それからお寺さんが来られて、16時には出棺。私も棺をかかえました。霊柩車を見送り、御当家に香典、会計の報告をしてその日の手伝いは終わりです。16時20分頃に帰宅。 昨日はいつものように5時前には会社に行き、7時頃までその日の仕事の準備をして帰宅しました。 8時半には町の合同葬儀場へ集合なので、私は8時過ぎには出ました。カミサンともうひとり奥さんの2人は御当家の守です。家の方にも誰かお客がこられたらいけないというので、香典帳1冊と、お返し10ヶを持って再び御当家に私が持って行きました。9時半頃から親戚の方や会社の方がみえられました。 10時から葬儀、11時から隣の火葬場へ入られましたので、私たちや配膳の準備に来られた3人奥さんも戻りました。香典は私が預かって帰りました。 12時から当家で食事。私は通風なのでビールも日本酒も飲みませんが、焼酎なんてないので構わず飲ませて戴きました。そのうち奥さん連中はお開き。私たち男5人が飲みながら、御当家の帰りを待ちました。15時前に帰られたので、香典の報告です。これでお手伝い終わりですが、5人とも腰を上げず、御当家の方と昔話をして4時過ぎまで飲んでいました。私が1番年下で次はアンタの時代だからなと言われました。葬儀の手伝いはこれで4度目かな。次はいつかは分かりませんが、教えて頂きながら私がメインで動かなくてはならないようです。 会社を休んで皆には迷惑をかけますが、普段近所のダンナ連中とは話をする機会もありませんので、昨日はよい交流の場になったかなと思っています。 |
◆2011/1/17 |
昨日、若し新幹線を撮りに行ってたら、雪の中の電車を撮れてたのかもしれません。でも、昨日はパスしました。コンマ何秒の世界に、通常でも5分も遅れたら、もう集中力の限界です。それをネットで見ても昨日は数十分遅れです。私は新幹線撮影の為に、今2個目の電波時計を使っていますが、新幹線ダイヤは通常は数秒の違いしかありません。それを数十分遅れなんて、この寒いのにカメラをじっと構えて待っている気がしません。 土曜日のドクターイエローの流しは、曇り以外は殆ど完璧だったと思います。この撮影の為だけに片道30分をかけて出かけました。流し撮りなんてプロじゃないし、そんなに決まるモノではありません。1/40秒といっても相手は1.9m進みます。それを今回はT4というちっちゃな文字も写し止めました。完全にまぐれです。 |
◆2011/1/15 |
最近すごく寒いです。昨夜ネットでドクターイエロー、JR東海のT4編成が試運転で下ったことを知りました。今朝も早朝から会社に行き、9時過ぎに戻りました。曇りだし、寒いし気乗りはしなかったのですが、片道30分かけて、この撮影だけの為に出かけました。 流しのタイミングも今回は殆ど合いました。最後尾は少しぶれてしまいました。 ![]() ![]() |
◆2011/1/10 |
今日は9ヶ月ぶりに半日休みを貰いましたが、定時時刻までは作業服を着ていました。携帯はいつも不携帯ですが、今も傍に置いてあります。特に用事があって午後から休んだわけではないので、何をしようかと、土日に撮り溜めていた新幹線の写真を編集してupしたり、仙台に出張してた次男が戻って来たり、長男が来て話をしたりしてたら、いつの間にか暗くなりました。 さてこの日記の1/6にYesのキーボード奏者、リック・ウェイクマンの「ヘンリー8世の6人の妻」の動画を3曲載せていますが、このブルーレイを昨日手に入れました。アメリカ輸入盤です。私はマスターを直ぐにコピーしてしまいますので、昨日BDにコピーしました。片面1層の25GBに収まりましたが、画質は凄く綺麗です。今や、4層128GBのブルーレイなんてのがあるそうですね。今のところ私には使える機器もありませんし、使用目的も思い当たりません。 現在、私のパソコンで音を聞くための機器は、スピーカーは両手に載るほどのサイズのBOSEのComputer MusicMonitor、サウンドボードはクリエイティブのサウンド・ブラスターから今はONKYOのSE-U55XX2、ヘッドフォンはDENONを使っていましたが、 高音が高すぎて耳が痛いので、定価はその半額のBOSEの方が音も全体に柔らかく、Bose AE2 audio headphonesを使用しています。 パソコンで音を聞くってのは、今では日常化しているみたいですが、パソコン内部のノイズを拾います。オーディオ機器のない我が家では、そして特に音楽をよく聴く私としては、パソコンで如何にいい音を出すか・・・ ま、これ以上に贅沢言える身分ではありませんので。 |
◆2011/1/10 |
今日は午後から昨年の4月から初めての休暇を貰いました。別に祭日だからとか、特別な用事があるわけではありません。若い人たちに勉強してもらうためです。 さて下の絵は昨日撮った流し撮りです。朝は曇っていたので流し撮りしたのですが、最近の流しでは一番タイミングが合いました。 ![]() |
◆2011/1/6 |
夕方帰宅して、TVを見て、途端にリストの「愛の夢」を聞きたくなり、自分のCDを探したら見つかりません。仕方なしにネットで動画を探してたらこんなのがありました。 浅田真央(mao asada) 「愛の夢」 |
◆2011/1/3 |
昼前からカミサンの実家に三男と勿論カミサンと行ってきました。カミサンの弟さん家族も集まり、おおいに楽しませていただきました。 今朝は8時頃起きて、さてこの前新幹線の撮影の合間に読んでいたExcel VBAの参考書から一部、自分のプログラムにも取り込むかなと、試そうとしたら、ウチのパソコンはデータが古かった… 会社に最新のデータを取りに行ってくるかと、10時頃行きまして、USBメモリに最新のデータを取り込んで、さてウチで書き込みました。 Sub 確定メールから数値自動仕分け計算() ' ' 確定メールから数値自動仕分け計算 Macro ' マクロ記録日 : 2010/7/1 ユーザー名 : ettomio ' 2010/8/1 ' ' セルD24に入力した日付が確定メールフォルダにない場合の処理を追加 2010/9/4 Dim d As String Dim n As String 'd = Worksheets("メニュー2").Cells(24, 4) 'Cells(行番号,列番号) d = Worksheets("メニュー2").Range("D24") '今回はRange("セル番地")で参照する。2010/9/5 n = "ト○○" & d & ".xls" If Dir(ThisWorkbook.Path & "\確定メール\" & n) = "" Then MsgBox "該当する日付はありません。" Exit Sub End If Application.ScreenUpdating = False ' 画面のちらつきを抑える処理 2011/1/3 Sheets("メニュー2").Select Application.Run "プレマシー配車NN.xls!メール日付入力" Sheets("確定コピー").Select Application.Run "プレマシー配車NN.xls!確定メール読み込み" Application.Run "プレマシー配車NN.xls!workにコピーN" Application.Run "プレマシー配車NN.xls!Module5.work1" Sheets("work2").Select Application.Run "プレマシー配車NN.xls!Module5.work2" Sheets("work3").Select Application.Run "プレマシー配車NN.xls!Module5.work3" Sheets("集計").Select Application.Run "プレマシー配車NN.xls!work1から3読込" Application.Run "プレマシー配車NN.xls!空白セルだけ入力" Application.Run "プレマシー配車NN.xls!罫線設定" Application.ScreenUpdating = True Application.Run "プレマシー配車NN.xls!集計印刷" Sheets("メニュー2").Select Range("F24").Select End Sub いきなり、自分にしか訳分かんないコード書きましたが、 Application.ScreenUpdating = False ' 画面のちらつきを抑える処理 Application.ScreenUpdating = True マクロを実行させると、すごい速さで順番にマクロが実行され、画面が目まぐるしくちらちらと変化してしまう、その画面表示を止めさせようというコードです。マクロ実行後は元に戻します。 上の2行のコードで、実行するマクロを挟み撃ちにすると 当然マクロは実行されますが、いちいちけなげに画面表示するというエネルギー (?) を消費しなくて済みます。結果的に一瞬で目的の画面が表示されます。 |
◆2011/1/1 |
USA for Africa - We Are The World (w/M.Jackson) + Lyrics HQ |
◆2011/1/1 |
THE BEATLES- HERE COMES THE SUN |
◆2011/1/1 |
新年お目出度う御座います。今年も宜しく です。![]() |