「etTomioのトホホ日記」 2010年8月
| ◆2010/8/30 |
昨日の朝撮った500系V9編成です。それにしてもかつてのW連と、Vの8連の200mの差は･･･ あ～ぁ 左側にぽっかり開いた空洞･･･
|
| ◆2010/8/29 |
|
昨日と、今日も暑いのに新幹線詣でです。先日ネットで、下松トンネルを教えて下さったある方から、お題が出まして、夕暮れの写真でしたが、100系の最後尾と700系の先頭がクロスしている、色といい構図といい凄くドラマチックな絵でした。この場所は何処でしょう
?
こんなドラマチックな絵が作れる人が居るんだと感心しながら、その絵をソフトで拡大すると、背景はトンネルです。緩やかに左にカーブを切りながらトンネルに入っている。暗くて周りの景色が見えないので、下りは500系のDVDで上りはN700のDVDで新岩国～山口間を探しました。そして何とか当てました。 昨日は逆光になる昼まで、今日は完全に雲がかかってきたので10時には帰宅していました。あの場所は昔から知ってたけど、下り方向に望遠で臨んだことはありませんでした。 
|
| ◆2010/8/27 |
もう1点500系V編成を載せておきます。
|
| ◆2010/8/27 |
この前土日に撮った500系を2点載せておきます。どちらの絵もW編成16両なら、後が長くてサマになる絵なのに、8両V編成、しかも「のぞみ」から「こだま」への転落、あれれ後が付いてきてないやと、ちょっと間の抜けた絵になってしまっています。
|
| ◆2010/8/22 |
|
金曜日の夜、ネット上である方の新幹線の作品を見ました。下松トンネルです。それもトンネル抜きの絵です。下松トンネルは徳山側の出口は今まで何回も行っていますし、新岩国側は下り線路側には数回行っています。しかし、その作品は今まで見たことのない絵でした。おそらく上り線路側だ。早速、軽トラに脚立を積み、昨日、今日と炎天下の中行ってきました。線路と田んぼに挟まれた狭い道を上ってたら、おっ これだ。あの架線柱と架線柱の間を抜けば撮れる。脚立を立て、200mmに2倍のテレコンを付けて狙いました。この組み合わせ、苦手なんです。ものすごくシビアにピント合わせをしなくちゃなりません。 帰宅して、パソコンで見ると、列車16両とほぼ同じ長さのトンネルで400mぐらいです。その向こう側が長い直線、そしてカーブを切って国道2号と併走します。 さて今日も行きました。昨日、撮れなかった電車を撮りに･･･ その後でよく行く熊毛に戻りました。何せ暑いです。家の中に居ても暑いのですから、外はもう･･･ 木陰やガード下に軽トラを入れ、スポーツドリンクで水分補給です。 今日は昨日と今日で気に入った2枚を･･･ 
|
| ◆2010/8/18 |
|
夕方19時頃、カミサンはまだ仕事から帰っていない。ツクツクボウシの鳴き声が聞こえる。これを聞くと夏も終わりかなと思えるけど、日中の状況は、暑いと書くのが相応しいのか、熱いと書くのが相応しいのか。暑いに決まってるじゃん。ん ?
じゃ何故熱帯と書くんだ ? 日本はすでに熱帯じゃないのか･･･ 煙草吸いながら、もち 焼酎飲みながら、北を見てると、あれは玖珂辺りかな ? 稲光が凄く綺麗です。 |
| ◆2010/8/17 |
|
「新幹線検索システム」に今日いくつか送付依頼が来ていました。 これは15年前の書籍の付録です。この本を何千、何万の人が買ったか分かりませんが、新幹線好きの人、あるいは自分の勉強のために、現代版に蘇らせたのは、私ぐらいでしょう。本当に作者のプログラミングには脱帽ですし、改竄するのも骨が折れました。 これ、A4で4枚ぐらいズラ～っとコードが書いてあるんですね。 でも、駅は15に省略されてるし、時刻表も古い･･･ で、新幹線好きだから勉強になるかなと、コードを一部改竄し 駅は全て入力し、時刻表も最新に書き換えました。 ま、遊べるかどうか･･･? 例えば、広島～新横浜まで広島10:00～12:00発と入れたら 広島発の時系列に並びます。時刻表だとそうはいかないでしょう? 発時刻あるいは着時刻を全く入れず、のぞみ、ひかり、こだま、全て選択すれば 1日の全ての列車が検索されます。 因みにこだまは500系だと「こだま 500系」とわざわざ入力しました。 そうですね。時刻表検索機能という方が適切かもしれません。 こだまで検索すれば、こだまだけ並び 500系だと、こだま 500系 と表示されます。 べつに、のぞみ、ひかり、こだま すべてチェックを入れても構いません。 のぞみ、ひかりが止まらない駅は、こだましか表示されませんから。 ※ ただ、発駅と着駅が同じだと駄目です。 ※ のぞみ、ひかり、こだまのどれかにチェックを入れないと検索されません。 さくらのダイヤはダミーです。 来春に備えて「さくら」をチェックボックスに入れました。 作者のあるいは私が改竄したコードは、ツール→マクロ→VisualBasic Editor →標準モジュールで見れます。 |
| ◆2010/8/15 |
|
昨日はカミサン方の親戚関係の争議がありまして、カミサンの車で、カミサンの両親も乗せて宇部市に行きました。パーソナルナビに○○会館を入力して出たのに、全く音声が出ません。途中PASAに寄って設定し尚したのですが、駄目。音声なしでも何とか着きました。 今日9時前に神奈川に帰る三男を駅に連れて行き、その後ナビを外してきましたので、試しにパソコンに繋ぎました。いきなりバックアップから始まりまして、どうやら修繕しながらバックアップしているようです。これに50分。そしてリストアに50分。カミサンにキーを借りてそのヘンを走ってきました。完全に直ったみたい。車に付けっぱなしだから、ハードがやられたかなと思っていましたが、ソフトの方で良かった。 バージョンアップをサイトで見たら19800円。えっ、新しいナビ買った方がいいじゃん。 |
| ◆2010/8/14 |
|
10年前のある参考書の付録に「新幹線検索システム」というのがありました。 これはExcelを使ったシステムです。 ほんの一部マクロを書き換え、時刻表は現在のものにするため、 1ヶ月もかけて、昨夜30ページもの入力が終わりました。 Excel2000/2002/2003/2007そしておそらく2010でも対応していると思います。 東海道・山陽新幹線のみです。 乗り継ぎには対応していません。 臨時列車は省いています。 マクロを有効にしないと使えません。 ① Excel2000/2002/2003はファイル名が 新幹線.XLSです。 ② Excel2007/2010はファイル名が 新幹線.xlsmです。 遊んでみようと思われる方は n518et@yahoo.co.jp に①か②のどちらか希望を書いてお知らせ下さい。 添付ファイルでお送り致します。 |
| ◆2010/8/13 |
|
一昨日、台風の接近する中、久しぶりに新幹線撮影に行きました。時折小雨も降りましたが、殆ど曇っていましたので、久しぶりに流し撮りです。お目当ては、上りのドクターイエローでした。ところが予期しない時刻に、ものすごくぴかぴかのS編成が上っていきました。ただ、見てるだけでどうすることもできません。そしてドクターイエローは、流し撮り失敗。そしてこれまた予期しない時刻にS編成が下っていきました。 昨日はそのリベンジと、S編成を待っていたのですが、来てくれません。結局、昨日は予想する時刻に全く現れませんで、昨日は試験走行しなかったようです。流し撮りが成功するかどうかは分かりませんが、走ってくれないことにはどうしようもありません。 
|
| ◆2010/8/10 |
|
昨日早朝台風が発生したことを知りました。今朝の情報で日本海側を通りそうなので、1時間ばかり会社で転びそうな収納ケースとか建屋の中に入れに行きました。 さて7日日曜日は、朝らうちの周りの草刈り、昼前からカミサンの両親、カミサンの弟さんも来られ、ウチでバーベキューをしました。ただ次男だけは日曜日も仕事でした。飲みすぎて居間に寝転がっていまして、次男が戻ったのを知りませんでした。 昨日は朝6時前から、隣の家の前の荒らしている田んぼの草刈り、今年3度目ですが、1反あまりあり、3時間半かかります。昨日もそのぐらいかかりました。さて三男はこちらの昔からの友達と海に出かけまして、夕方には2人でサザエを50個も持って帰りました。 夕方、カミサンが仕事から帰る頃からまたバーベキューです。私は年のせいか、肉よりも魚貝類の方がいいです。 |
| ◆2010/8/7 |
|
今日から夏休みに入りました。いつみのように早朝、ちょっと会社により、それから田んぼの畦の草刈りを始めました。先日夕方犬を散歩させてるとき、2週間前に刈ったのにもうこんなと唖然としました。朝は露が多くて、ナイロンカッターの草刈り機だとうまく刈れないので、昔のカネの刃を付けた草刈り記を持ち出しました。しかし、9時半には暑くてストップ。 それからはウチだと暑くて居る場所がないので、オフクロの処で寝ていました。夕方5時頃、三男が神奈川から帰ってきました。その頃、私はまた長袖の上着を着て、保護めがねをつけて再び草刈り。1時間ばかり刈って、今日2度目のシャワーを浴びました。 今はのんびりと焼酎飲んでいます。先日、長男が父さん、アル中だろうと言いました。そうだ。アルチュール・ランボーだ。 |
| ◆2010/8/6 |
| 少し、ソフトに。その11、その12。これでおしまい。 |
| ◆2010/8/6 |
| こんなことして良心の呵責は ? はは、こんなジジイのサイトにどれだけの人が。その影響は極めて微少。それよりもパスが通らないのなら、通してやろうという意地。 |
| ◆2010/8/6 |
| さらに、その7、その8、その9、その10。 |
| ◆2010/8/6 |
| 続いて、その5、その6。 |
| ◆2010/8/6 |
| ふうーん、昨日の絵は私のIDとかパスワードを打ち込まないと、通らなくなっていますね。やれやれ、プログラムが進化したか･･･ 別に見れないなら見れないでも、どおってことないんですが、じゃこれならどうですか。 |
| ◆2010/8/5 |
| 続いてその3，その4。 |
| ◆2010/8/5 |
| 暑いし、真面目なこと書いても大してアクセスはないし、ここらで久しぶりに公序良俗に反する絵でもupしてみましょう。その1。その2。 |
| ◆2010/8/2 |
|
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓 イチローに学ぶ勝利する人の習慣術（児玉光雄） Ｐ２４ 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓 ───────────────────────── 怒鳴りつけるような注意の仕方は、 無用に相手の心を傷つけ、 主体性を奪い取ってしまう。 注意するなら「理性的に叱る」こと。 いったん叱るのをやめて、 相手の言い分を聞いてあげる寛容さも必要だ。 ───────────────────────── 宣之さんも、小学３年のイチローと 練習をしていたとき、 ちょっとした感情の行き違いで ケンカになったことがある。 やる気のない態度を 宣之さんが叱ると、 イチローは口も聞かなくなり、 ふてくされて グラウンドに座り込んでしまう。 o(T△T=T△T)oジタバタ こんなとき、宣之さんは さっさと家に帰って、 「イチローがグラウンドで ひっくりかえっているから、 迎えにいってやってくれないか」 と 妻の淑江さんに頼んだ。 家へ帰っても ふてくされている イチローの気持ちをほぐしてやろうと、 宣之さんは 「イチロー、足が疲れたろう。 よし、お父さんがちょっと揉んでやろう」 と言って 足の裏を揉んでやったという。 よほど気持ちがよかったのか、 イチローは 宣之さんに足を預けたまま、 うつらうつらし始めた。 ( ｕ _ ｕ ) クゥゥゥ。ｏ◯ 「イチローが眠るまで お父さんが足の裏を揉んでやるから。 明日また、お父さんと一緒に 野球をやろうな。」 イチローは父の顔を見て、 こくりと うなずいたという。 (^ー゜）σ いくら相手を責めても トラブルが解決するわけではないことを 宣之さんは よく知っていた。 叱りが怒りに変わり始めたら、 勇気を出して叱ることを中断する。 自分が理性を取り戻すまで、 叱りから逃げることは それほど悪くない。 |
| ◆2010/8/2 |
| 夕飯を食べるときも、神経質に両手で、テーブルを叩く。まさか私がピアノを弾けるわけでもなく、パソコンのブラインドタッチさえ出来ない。夢のプログラムの何のイメージも湧かない･･･ |
| ◆2010/8/2 |
| 昨日書いたプログラムは、今日、ちょっとアクシデントがありましたが、段々と10年前、VBに夢中になっていた頃の感覚を取り戻しています。昨日も、罫線を引かせたら、途中で直ぐに頓挫。こりゃ無理かなと思いましたが、空白があるから表がないと判断しているんだな。じゃ空白行に*を入れてやろうと思いつくまでに10分もかからなかったと思います。 |
| ◆2010/8/2 |
|
神奈川県にいる三男は、この土日で富士山に登ったようです。私も、上に居た頃、2度登りました。一度も登らぬ馬鹿。二度登る馬鹿。じゃもう1回登らなくちゃ… いやいやそんな元気ないです。二度目は高山病になり、苦しい思いをしました。二度登る馬鹿というのは、あんな汚い山、二度も登るもんじゃないということでは。あの山は登る山ではありません。遠くから眺める山だと思います。 さて三男も春は忙しくて帰らなかったので、正月以来、この土曜日に帰ってきます。 |
| ◆2010/8/2 |
|
よく焼酎飲んだら天才プログラマーなんて書いていますが、何を言ってんのやら。今日、1つ目のファイルを自動実行させて数秒後、プリントアウトされた用紙を見て、あれ
?
なんでこんな処に罫線が… 暫くして理解できました。フィルタをかけたいくつかのシートを「集計シート」にコピーする前、数値と数式は消去していますが、罫線も消去しなくちゃならないんだ。これ、昨日の罫線が残っているんだ。急いで3つのファイルに罫線を消去するよう自動記録マクロを作りました。 Sub 集計シート消去() ' ' 集計シート消去 Macro ' マクロ記録日 : 2010/8/2 ユーザー名 : ettomio ' 2010/8/2 数値だけでなく罫線も消去 ' Columns("A:I").Select Selection.ClearContents Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone Range("K1").Select End Sub |
| ◆2010/8/1 |
|
今朝、5時20分頃会社に行って、昨日稼働したラインのある製品の月末処理をして、その後8時過ぎまで、私が普段使っている自動車部品関係のあるファイルに、何かコードを書いて完成させて帰宅したのですが、昼間、参考書を枕にゴロゴロしていた私は、それが何だったのか覚えていません。 夕方になって、ある記事を参考に罫線を引くコードを書きましたが、これだって、罫線の種類、セルの上か下か、あるいは左かで書き方が変わりますし、そのような詳細なことは、2週間前に買った「Excel VBA 大事典」で調べました。 新幹線の時刻表も上りを打ち始めて、中座しています。大体、あのプログラムはA4で4ページぐらいのコードで動いています。今日、罫線という部品を書くことで、そのコードの一部が読めました。 何故、こんな暑いのに勉強するのか･･･ およそ誰も認めてくれないのに。これは写真と並ぶ趣味であり、60になるまでに書きたいExcelでの夢のプログラムがあるから･･･ おそらく書けないでしょうけど。 |
| ◆2010/8/1 |
|
暑いのなんの、これまでの最高じゃないでしょうか。ウチには誰もいないし、オフクロの処で殆ど寝ていました。夕方、読んでいたexcelのマクロの本で、前からやりたいと思っていたヒントが… 車種ごとに日勤と夜勤を配車番号1と2に分けて、自動で集計を取らせています。今まで、プリントアウトされたモノを納入時刻で、鉛筆で日勤と夜勤の境に線を入れ、下に出ている集計を他の帳票と照らし合わせていました。 配車番号1と2の間に線を入れられないか… 参考書を基にコードを書いてみました。そしたら、一品目は1と2の間に線が入りましたが、その下に日勤の集計、夜勤の集計の行はI列の配車番号に何も入っていません。これじゃ駄目だと諦めかけましたが、まてよ、この空欄に何かを入れたらいいのでは ? そして空欄に * を入れるマクロを書き、先ほどのマクロを実行させたら、見事最下行まで罫線が入りました。 Sub 空白セルだけ入力() ' 下の罫線設定でI列が空白だとそれ以後罫線が引かれないので ' I列の空白欄に * を入れた。 2010/8/1 ettomio For y = 2 To 300 If Cells(y, 9).Value = "" Then Cells(y, 9).Value = "*" End If Next End Sub
|
| ◆2010/8/1 |
| 噂では九州直通新幹線S5が試運転を始めたそうですが、こう暑くては写真どころではありません。 |
| ◆2010/8/1 |
|
昨日の朝は、うちで会社のHPの更新をし、アップロードしました。それからはオフクロの処に行き、ゴロゴロしていたら眠っていました。 さて今朝は普段仕事で使っているあるファイルの修正です。Excelでオートフィルタを使っているのですが、これって、データ→フィルタ→オートフィルタにあり、設定していないとき設定するとフィルタか働き、解除するときも同じところを押すんです。ここがややこしい。 よってwork1から4まで設定されていないときは、設定したのちに解除。設定されてるときはそのまま解除するように書き換えました。 Sub workにコピー() ' ' workにコピー Macro ' マクロ記録日 : 2010/4/26 ユーザー名 : ettomio ' 2010/8/1 オートフィルタが設定されていなければ設定して解除 ' 設定されていれば、そのまま解除。 ' Sheets("work1").Select If Not ActiveSheet.AutoFilterMode Then Range("A1").AutoFilter End If Selection.AutoFilter Sheets("work2").Select If Not ActiveSheet.AutoFilterMode Then Range("A1").AutoFilter End If Selection.AutoFilter Sheets("work3").Select If Not ActiveSheet.AutoFilterMode Then Range("A1").AutoFilter End If Selection.AutoFilter Sheets("work4").Select If Not ActiveSheet.AutoFilterMode Then Range("A1").AutoFilter End If Selection.AutoFilter Sheets("work5").Select If Not ActiveSheet.AutoFilterMode Then Range("A1").AutoFilter End If Selection.AutoFilter Sheets(Array("work1", "work2", "work3", "work4", "work5")).Select Sheets("work1").Activate Columns("A:H").Select Selection.ClearContents Sheets("確定ｺﾋﾟｰ").Select Columns("A:H").Select Selection.Copy Sheets(Array("work1", "work2", "work3", "work4", "work5")).Select Sheets("work1").Activate Columns("A:H").Select ActiveSheet.Paste Application.CutCopyMode = False Range("J3").Select Sheets("確定ｺﾋﾟｰ").Select Range("I5").Select End Sub |