「etTomioのトホホ日記」　2014年11月　　　　　　　　

◆2014/11/24
散歩
15時から当てもなく散歩に出かけた。
少し歩いだけできつい。
その体の状況に愕然とする。
散歩なんて何年振りだろう。
61年にして長谷方面を奥に初めて散策する。
気になる景色はスマホで写真に撮る。
1時間余り歩いて帰宅。
いい天気の中、色んな発見はあったけど、
果たして足は大丈夫か？
◆2014/11/24
「eText」
20年も前に作ったデータベースソフトだった。
ただこれをテキストエディタのジャンルにしてしまった。
メモアプリにすれば良かったかなとも思うが今となってはどうでもいい。
3年前から、あるデータベースソフトのプロ版に登録して、毎日10件余りのデータを放り込んでいる。
今となっては1万5千件のデータで埋まっている。
クラウド版だから何処でも検索出来る。
ホームページも放り込めるってことは、HTMLタグを保存しているんだろう。
「eText」もWindows8.1に強制的にインストールして今も使っている。
これをインターネット上で使える能力があれば良かったんだけど。
膨大な費用をかけてサーバーを構築するなんて自分には考えもつかない。
「たられば」の話だ。
◆2014/11/17
今あらためてThe Beatles
珍しくXperiaにBoseのヘッドフォンを繋いでBeatlesを聴いている。
子供の頃音楽っての嫌いだったし、プレーヤーってのもなかったし、当然レコードなんてあるわけない。
授業でクラシックを聴かされたってさっぱり、なんのことか訳が分からん。
歌謡曲ってのも聴くのがなんか自分には恥ずかしいような、まったく馴染めなかった。

学校の寮祭でプール辺りで先輩がグループを作っておられて、何気なく聞きに行ってうちのめされた。カッコイイ。
これがロックっていうやつか。
あとで知ったのはローリングストーンズの「テル・ミー」という曲だった。
かっこ良かった。これが生で聴くエレキギターの音か…ドラムスか…

それからローリング・ストーンズではなく、ビートルズに向かった。
が、初恋の人にふられ、何故かビートルズのLPは全て売り払った。

その後はプログレッシブロックとかボウイにかぶれた。

10年ぐらい前だったか、ウォークマン携帯にヘッドフォンを付けてビートルズを聴いたとき、また打ちのめされた。
それまでベースギターの存在意義が分からなかった。
ポールはこんなにもきれいなメロディをきざんでいたのか…
革新的な奏法とか読んだか、聞かされていたが、なんであんな地味なベースギターなんて担当していたんだろうとずっと思っていた。
昔、レコード聞いたって安いスピーカーで聞いてるとさっぱり分からなかった音が聞こえる。
レコードにしたってCDにしたってきちんと音源は収まっていたのに気付かなかったというか、分からなかった。

ポールはビートルズを解散させた。本当にビートルズを愛していたのはポールだった。「Let It Be」なんて、なんで28にして人生悟ったような詩を書けるんだろう ?
ポールはソロになったが未だにビートルズを超える曲を作っていない気がする。
コンサートだってビートルズナンバーばかりじゃないか。
にしても誰一人音楽を学んでいないのに世界を熱狂させる楽曲を次々生み出したのか。

話が脈路もなくなるが、ジョンはポールの才能に嫉妬しビートルズを分裂させたとも聞いた。
が、四人のうち奇跡的に天才が二人も居て長続きする訳ないじゃないかと今はっきり思う。

結局10代に聞いた音楽を死ぬまで引きづるとか何かで読んだが、若い頃聞いた音楽しかやっぱり興味ないな。

あと20年かそこらの自分が今しみじみとビートルズの美しさに感服する。
ビートルズ、今はもうポールとリンゴしかいない。
リンゴの歌声にしたってあの下手くその歌が凄く暖かい。
一番若くて一番控えめで自分が一番好きだった故ジョージの「ヒアカムズザサン」に涙が出そう…
◆2014/11/16
自動発注システム-人工知能 ?



　数週間前にも土日家に閉じこもり、仕事で使うExcelシートに新たな機能を盛り込んだ。
土曜日は1日かけて関数を書き、翌日はプログラムコードを書いた。

　さて昨日と今日再び新たなテーマに挑戦。
　ある製品を作るのにパレットが毎日必要。このパレットを日毎に自動で必要枚数注文出来ないか ?
　3連休まで対応させたい。3連休、全部休む。いや最初と3日目は生産するとか、色んなパターンに対応させたい。
　求める結果が違う ! 昨日はその為の関数を何度も改良し乍ら書くことに費やした。

=IF(AND(G55=0,H55=0,I55=0),E56-F55-J55*0.7,IF(AND(G55=0,H55=0),E56-F55-I55*0.7,IF(H55=0,E56-F55-G55*0.7,IF(G55=0,E56-F55-H55*0.7,IF(F55=0,0,E56-F55-G55*0.7)))))

　ひとつのセルだけで上の長い式をいくつも入れた。
　そして今日はコーディング。お昼過ぎに大体出来た。その後は色んな条件でのテスト。
　一応出来た。自動ボタンには「P/Lシミュレーションby人工知能」とふざけた名前を入れた。
　おそらく色んな物を自動発注するシステムが作れそうな気がする。でも何週間も閉じこもるのはイヤだからやらない。

Sub パレットシミュレーションN()
' 2014/11/15 T.N.

On Error GoTo エラーメッセージ

Range("F54:K54").Value = 0

Dim i As Integer

For i = 6 To 11 '横に走らせている

' 3連休までしか対応させていない
' 翌日から3連休で3休止

If Cells(53, i + 1).Font.ColorIndex <> 1 And Cells(53, i + 2).Font.ColorIndex <> 1 And Cells(53, i + 3).Font.ColorIndex <> 1 And _
Cells(55, i + 1).Value = 0 And Cells(55, i + 2).Value = 0 And Cells(55, i + 3).Value = 0 Then
Cells(54, i).Value = Cells(61, i)

' 翌日から3連休で1稼働-最後は稼働

ElseIf Cells(53, i + 1).Font.ColorIndex <> 1 And Cells(53, i + 2).Font.ColorIndex <> 1 And Cells(53, i + 3).Font.ColorIndex <> 1 And _
Cells(55, i + 1).Value = 0 And Cells(55, i + 2).Value = 0 And Cells(55, i + 3).Value <> 0 Then
Cells(54, i).Value = Cells(61, i + 3)

' 翌日から3連休で1稼働-真ん中は稼働

ElseIf Cells(53, i + 1).Font.ColorIndex <> 1 And Cells(53, i + 2).Font.ColorIndex <> 1 And Cells(53, i + 3).Font.ColorIndex <> 1 And _
Cells(55, i + 1).Value = 0 And Cells(55, i + 2).Value <> 0 And Cells(55, i + 3).Value = 0 Then
Cells(54, i).Value = Cells(61, i + 2)

' 翌日から3連休で1稼働-最初は稼働

ElseIf Cells(53, i + 1).Font.ColorIndex <> 1 And Cells(53, i + 2).Font.ColorIndex <> 1 And Cells(53, i + 3).Font.ColorIndex <> 1 And _
Cells(55, i + 1).Value <> 0 And Cells(55, i + 2).Value = 0 And Cells(55, i + 3).Value = 0 Then
Cells(54, i).Value = Cells(61, i + 1)

' 翌日から3連休で2稼働-真ん中と最期は稼働

ElseIf Cells(53, i + 1).Font.ColorIndex <> 1 And Cells(53, i + 2).Font.ColorIndex <> 1 And Cells(53, i + 3).Font.ColorIndex <> 1 And _
Cells(55, i + 1).Value = 0 And Cells(55, i + 2).Value <> 0 And Cells(55, i + 3).Value <> 0 Then
Cells(54, i).Value = Cells(61, i + 3)

' 翌日から3連休で2稼働-最初と真ん中は稼働

ElseIf Cells(53, i + 1).Font.ColorIndex <> 1 And Cells(53, i + 2).Font.ColorIndex <> 1 And Cells(53, i + 3).Font.ColorIndex <> 1 And _
Cells(55, i + 1).Value <> 0 And Cells(55, i + 2).Value <> 0 And Cells(55, i + 3).Value = 0 Then
Cells(54, i).Value = Cells(61, i + 2)

' 翌日から3連休で2稼働-最初と最期は稼働

ElseIf Cells(53, i + 1).Font.ColorIndex <> 1 And Cells(53, i + 2).Font.ColorIndex <> 1 And Cells(53, i + 3).Font.ColorIndex <> 1 And _
Cells(55, i + 1).Value <> 0 And Cells(55, i + 2).Value = 0 And Cells(55, i + 3).Value <> 0 Then
Cells(54, i).Value = Cells(61, i + 3)

' 翌日から3連休で3稼働

ElseIf Cells(53, i + 1).Font.ColorIndex <> 1 And Cells(53, i + 2).Font.ColorIndex <> 1 And Cells(53, i + 3).Font.ColorIndex <> 1 And _
Cells(55, i + 1).Value <> 0 And Cells(55, i + 2).Value <> 0 And Cells(55, i + 3).Value <> 0 Then
Cells(54, i).Value = Cells(61, i + 3)



' 翌日から2連休で2休止

ElseIf Cells(53, i + 1).Font.ColorIndex <> 1 And Cells(53, i + 2).Font.ColorIndex <> 1 And _
Cells(55, i + 1).Value = 0 And Cells(55, i + 2).Value = 0 Then
Cells(54, i).Value = Cells(61, i)

' 翌日から2連休で1稼働-最後は稼働

ElseIf Cells(53, i + 1).Font.ColorIndex <> 1 And Cells(53, i + 2).Font.ColorIndex <> 1 And _
Cells(55, i + 1).Value = 0 And Cells(55, i + 2).Value <> 0 Then
Cells(54, i).Value = Cells(61, i + 2)
'Else
' Cells(54, i).Value = Cells(61, i)
'End If

' 翌日から2連休で1稼働-最初は稼働

ElseIf Cells(53, i + 1).Font.ColorIndex <> 1 And Cells(53, i + 2).Font.ColorIndex <> 1 And _
Cells(55, i + 1).Value <> 0 And Cells(55, i + 2).Value = 0 Then
Cells(54, i).Value = Cells(61, i + 1)
'Else
' Cells(54, i).Value = Cells(61, i)
'End If

' 翌日から2連休で2稼働

ElseIf Cells(53, i + 1).Font.ColorIndex <> 1 And Cells(53, i + 2).Font.ColorIndex <> 1 And _
Cells(55, i + 1).Value <> 0 And Cells(55, i + 2).Value <> 0 Then
Cells(54, i).Value = Cells(61, i + 2)
'Else
' Cells(54, i).Value = Cells(61, i)
'End If


' 翌日が休日で休止

ElseIf Cells(53, i + 1).Font.ColorIndex <> 1 And _
Cells(55, i + 1).Value = 0 Then
Cells(54, i).Value = Cells(61, i)
Else
Cells(54, i).Value = Cells(61, i)
End If

Next

Range("C2").Select

Exit Sub

エラーメッセージ:
MsgBox "何らかの原因で中断されました。"

End Sub
◆2014/11/4
心が寒い
今朝は冷えた。
放射冷却とは地上の熱が赤外線として
宇宙へ放出されると言ったら笑われたことがある。
何故笑われるんだろ。

心がさぶい
人恋しい秋
冷たい布団

昼休みにそう唱えたら笑われちまった。
◆2014/10/11/3
青春って何だ ?
昨日、青春なんて面映ゆい言葉を書いたんで…。
「青春って何だ ?」 なんかこういうタイトルのスポコンドラマがなかったかな ?
青春って社会的規範を外して、無茶することだろ ? って昨日書いた。
自分なりに纏めてみると、性欲を抑制されていることに対しての発露、爆発だ。
社会的規範でもって抑制されてるから、スボーツだ、芸術だ、音楽だ、バイクだ、車だとはけ口を求める。もとい、封じ込めている。芸術は爆発だ !
異性へのアピールだ !
犬、猫だったら、サカリがついたら相手を見つけて交わる。
そりゃ、動物はメスをめぐって死ぬかってほどの熾烈な闘いをする。
そして勝ち残ったモノが子孫を残せる。
セミなんか地上に出て何日生きる ? 地上に出たら、子孫を残すのみの生涯だ !
それが地上に生きとし生けるモノ、万物の摂理だ !
人間の場合、社会的規範とか理性で抑制される。
人間の場合、性欲の一番強い時って、丁度高校生だろ。
そりゃ、働きもしないのに女の子を囲って交わるって無理だよ。
子孫を残す、DNAを引き継ぐ。動物の本能だ !
バーチャル恋愛、恋人代行 ?
動物止めたのか ?
しかし、今の世の中、人間ゆえに子孫も残せない、なんと過酷な世の中よ。
純粋にスボーツや芸術を極めんと志している方には申し訳ない。
また不幸にもお子さんに恵まれない方にも申し訳ない。
ま、自分なりの恣意的な、しかし自分としてはまっとうな普遍的な考えと思っている。
このHPはたまにしか書かないし、アクセスも少ないんで炎上もないとたかを括っている。
◆2014/10/11/3
コンピュータに対する人間の優位性
ある製品の生産報告を更新するに当たって、これまで端数を扱う処理は入れていなかった。そいつを処理させたい。
そのためには列を増やさなくちゃならない。
そうすると列に入っている数式を皆書き換えなくちゃならない。
出来るだけ列を増やしたくない。そんなことすると列に入っている数式はさらに複雑になる。コードも書き換えなくちゃならない。
色んな場面を想定してはテストするとどこかでエラーとなる。これを潰すのに休日を丸一日要した。
この愚図奴 ! 画面に面罵したくなる。
列を際限なく増やせば、列の数式は簡単だけど、今度は見た目に難解になる。
人間が紙に書けば暗黙の了解で捨てる事が出来る。即座に判断する人間の方が合理的なのかもしれない。
ところがコンピュータは命令してやらなければ0に出来ない。
まだ人間の方に優位性はある。
じゃ何故コンピュータを使うか ?
そりゃ人間より遥かに演算能力と記憶力が優れているから。
演算処理のさらなる増大、途方もない記憶装置を飽くこともなしに開発者は追求している。

かつての自分の興味として新幹線N700Aが何故無人でも走れるか ?
あらゆる場面がデータとしてデータベースに蓄積されているから。
その場面場面でデータベースを東京の総合指令所に読みに行く。

今朝会社のパソコンが「エラーが発生したため情報を収集しその後再起動します。」とメッセージ。
こいつは自己修正を図った。
これが何を意味するか ?
いつしかコンピュータは人間の能力を凌駕する。
◆2014/10/11/2
立花隆って…?
立花隆、著書は全然読んだことないけど、圧倒的な知の巨匠と言われる人だよね。
蔵書20万冊とか言われてるけど、今夏は余り猛暑に悩まされなかったので1回しか行かなかったけど、昨年はよく通った隣の市の図書館、あそこが9万冊というんだから、個人でどうやって保管するんだろう？
若い頃、David Bowieが数千冊の蔵書を持つと知り吃驚したけど、ああいう人達って周りの事象とか文明とか人間社会とかの疑問を常に自身で解釈出来ないと気が済まないんだろうな。
恐らく死ぬまで次々と知的疑問を追い続けるんだろう。本人はまだ完成しない、満足しないままに死んじゃうんだろう。
Bowieって人は自身の美貌を知り尽くしていたから、それを武器に自身をプロデュースした。ベルリン時代は行き詰まって鬱を患ったらしいけど。
ジョブスは50代で亡くなったけど、癌と知り死を覚悟しても無念だったろうな。やり残してる事がいっぱいあったろう。

そんな雲上のあり得ない天才人達に思いを馳せてもしようがないんだけど、それにしてもオレ何してんだろう？
銭にもならない知識ばかり増やし、家族は不遇を囲っても、自分の関心ばかり追っかける。

「近頃の若い者は」ってのは遠いギリシャ時代から言われてるらしいし、自分もこっぴどくやられた。それよりももっと若い頃の青春ってのは社会の規範を外れて無茶をする時代なのかなと今思っている。年取って「亡国論」を唱えるモノは、私憤を大義に置き換えてるだけの輩だともネットで読んだ。
だがね、夏のクソ暑い中、刈っても刈っても草は伸びる。こいつら、下等生物は切られても自身をコピーする能力を持っている。じゃIPS細胞ってのは、こいつら下等生物みたいに自身をコピーしようとしてるのか…　神への冒涜だろ。
それに、ロボットは自身をもっと進化させるために自身でプログラミングする。そしてもっと高性能なチップを作り、自身に換装する。そんな時代が近いうちに来る。
先進国の人間はどうやって生きていくんだ。そんな近未来に亡国論、憂国論、私憤を置き換える…　どうだっていいこと。

家族には不遇を負わせてると知りつつ、そして妻は今日は早朝から夕方遅くまで仕事に行ってるのに、相変わらず自分のやりたいことやって夕方は焼酎飲んでる。一生ってなんだろう？
苦しんで苦しんで…　人間って何だろ ? 価値観ってのは ?
◆2014/10/11/2
もう11月か…
年取ると時間が早く進み過ぎる。
神のみぞ知る自分の最期に向かって時間が刻まれていく。

先週は定時後は日曜日の続きの草刈りをしようと思っていたけど
毎日自分のテーマを見つけては
パソコンに向かっていた。
仕事先で作業をする際に配られている帳票を見て
何処を見りゃいいんだ ? ちっちゃな字でごちゃごちゃ

訳分からんから、自分の扱うデータを
別な表に抜き出して自分に分かり易いデータ表に変換。
こりゃプログラムを書かなくちゃ走らないと思ったけど
関数で出来そう。いっぱい関数を書いたね。

この表を先でお前にやるよ。
無理だろうからオレが組み込んでやる。
はい、授業料1万円。
えっ ? 1万円ですか ?
安いもんだろ。労せずして毎日一発で出力されるんだから。

この1週間、定時後14時半ぐらいから毎日関数書いたり、
プログラムコードを書いたり。
えっと何書いたかな ? 一日一件テーマを解決していったはずなんだけど。

昨日土曜日は自宅で夕方まで関数を書いていた。
引き継ぎに使う帳票、生産報告なんだけど実に簡単にしてある。
毎日生産報告を作ってはメールで先方の何人かに添付ファイル込みで送るんだけど
宛先やCCはコードの中に、文面は定型文をコード内に書いとけばいい。
勿論、ボタン一発でメール送信している。
ただ、この表には年に何度かの端数を扱う場合対応させていない。
この端数を扱うために、昨日は朝から晩までかかった。

今まで20年余りもパソコンに向き合ったけど
いまだに参考書や、ネットを調べなくちゃなんない。
プロはいきなりすらすら書くんだろうな。

今朝は日々の生産報告を作成日ごとに
データログに複製を作ることにした。
名前は日付をテキストに変えて○○1401103.xlsxというファイルで保存できるようにした。
後であの日のデータを調べたいときとか、容易になるはず。
今までは作成後送信したら、翌日分としてデータを繰り越していたから
過去に遡れない。
今日はプログラムコードを書いたけど(関数でこんなこと出来るわけない)、
11時近くまでかかってしまった。

午後からはタブレットでニュースを見て
気になる案件があれば、クラウド上の自分のデータベースに飛ばすつもり。
焼酎飲み乍ら。

自分は0か1の世界にどっぷりだけど
これって磁気嵐とかに遭遇したらみな吹っ飛ぶんだよね。
送電網もやられるし、銀行や交通といったインフラあるいは医療を例にとるまでもなく文明は一瞬で吹っ飛ぶ。
原発再稼働なんて話とは次元が違うほどの話。

ま、先を案じたとところで老い先は短い。
焼酎チビリチビリが昼からの幸せ。
◆2014/10/6
今夜のISSは台風18号とほぼ同じコース
先程見たISS-国際宇宙ステーションは18:50頃から見え始めたかな。
日本の遥か南のISSが南西の方向に見え始め、今種子島の沖、今室戸岬の沖、今室戸岬の沖と辿り、紀伊半島潮岬沖、そして浜松辺りで本土の上、富士山の少し北、埼玉県と群馬県の境辺りでふっと消えました。
その間約4分ぐらい。早い ! 圧倒的に早い !
飽きもせず何度も何度もチャンスがあれば見るのは、その都度見える位置が違うから。
いつだったか、上海上空から見え始め、ずっと追っかけると、知床半島上空で消えました。
これが高度400kmの世界、イリジウムは高度800kmの世界です。
今夜はもうじきイリジウム23も見えるはずです。
◆2014/9/8
恋人代行サービス

先週帰宅してTVを見てたら
恋人代行サービス
もういい加減にしろ！！
宿題代行サービス！試験代行サービス！
ただでさえカボチャばかりになっているのに、こんな平和ボケていたら、
習近平はオバマをたらしこんで日本を乗っ取るぞ。
もう米軍は日本の基地から撤退しようとしてるんだから。

ばっかばかしくてTVを消した。
ふと昨年書いたプログラムに追記を思いついた。

祝日があれば、日付を赤文字で表記させているが、メッセージも出るようにしてやろう。
ウチから自分のデータファイルにアクセスするのはわけなく出来るけど、
モチベーションが上がらないのでまた会社に戻る。

Sub 日付に色を付けるN()
'2013/1/12～1/13,1/18 T.N.

Dim i As Integer

For i = 5 To 12 '横に走らせている

' 土日に色を付ける
' Unionで複数のセルを選択

If Weekday(Cells(4, i).Value) = 1 Then
Application.Union(Cells(4, i), Cells(5, i), Cells(53, i)).Select
With Selection.Font
.ColorIndex = 3
End With

ElseIf Weekday(Cells(4, i).Value) = 7 Then
Application.Union(Cells(4, i), Cells(5, i), Cells(53, i)).Select
With Selection.Font
.ColorIndex = 5
End With

Else
Application.Union(Cells(4, i), Cells(5, i), Cells(53, i)).Select
With Selection.Font
.ColorIndex = 1
End With

End If

If Weekday(Cells(6, i).Value) = 1 Then
Application.Union(Cells(6, i), Cells(7, i), Cells(42, i)).Select
With Selection.Font
.ColorIndex = 3
End With

ElseIf Weekday(Cells(6, i).Value) = 7 Then
Application.Union(Cells(6, i), Cells(7, i), Cells(42, i)).Select
With Selection.Font
.ColorIndex = 5
End With

Else
Application.Union(Cells(6, i), Cells(7, i), Cells(42, i)).Select
With Selection.Font
.ColorIndex = 1
End With

End If


' 祝日に色を付ける

If Application.CountIf(Range("R8:R212"), Cells(4, i).Value) = 1 Then '>0を=1に変更 2013/12/16
Application.Union(Cells(4, i), Cells(5, i), Cells(53, i)).Select
With Selection.Font
.ColorIndex = 3
End With

'MsgBox "注意 ! 祝日があります。" '此処じゃ駄目!

End If

If Application.CountIf(Range("R8:R212"), Cells(6, i).Value) = 1 Then
Application.Union(Cells(6, i), Cells(7, i), Cells(42, i)).Select
With Selection.Font
.ColorIndex = 3
End With

'MsgBox "注意 ! 祝日があります。" '2014/9/4
'此処に書くと繰り越しボタンのクリックで8日間もメッセージが表示される。

End If

Next

'2014/9/5
'2014/9/8 此処に書くのはやめる。日付が変わる前にメッセージが出る。
'「繰り越しN」実行後に書くことにする。

'If Application.CountIf(Range("R8:R212"), Cells(6, 12).Value) = 1 Then
' MsgBox Cells(6, 12).Value & " は祝日です。"
'End If

End Sub


そしてさらに今朝早く繰り越して祝日が来たらメッセージが出るように書き換えた。

Sub 繰り越しN()
'
' 繰り越しN Macro
' マクロ記録日 : 2012/1/14-2013/1/19 ユーザー名 : T.N.
'

Application.ScreenUpdating = False
' 画面のちらつきを抑える処理

前日データ転写 '2014/2/26
パレット繰り越し
繰り越しN1
'空段ボール繰り越し 2014/2/12 使用中止
天気繰り越し
'パレット繰り越し 'ここだと上の行が移動した後のデータを"D53"に入れてしまう
'土日に色を付ける
'祝日に色を付ける
'日付に色を付ける
日付に色を付けるN
Range("E8").Select

Application.ScreenUpdating = True

'2014/9/8
祝日の通知

End Sub

Sub 祝日の通知()
'2014/9/8
If Application.CountIf(Range("R8:R212"), Cells(6, 12).Value) = 1 Then
MsgBox Cells(6, 12).Value & " は祝日です。"
End If
End Sub
◆2014/8/11
イリジウム98を見ようとしたら1分の間に人工衛星を3つ見た
久しぶりにイリジウムを見ようとして外に出た。20:46:49にピカッと光る予定。そしたら少し前に衛星が見え始めた。えっ ? 次に東から西に衛星が見え始め、同時にお目当てのイリジウム98が見えた。こんなの初めて。
ま、3,000個以上の衛星が周ってるんだもんね。
◆2014/7/28
何だ ? UFO ?
22時を過ぎてさて寝るかと、その前に外に煙草を吸いに出た。
空を見乍ら煙を吹かしていたら、スーと光の帯が…　数秒で消えた。
何だ ? あれは…　
20時過ぎには紀伊半島付近のイリジウムを見たが…
そんなもんじゃない。
ブロッケン現象という言葉は知っているが、見たことはないし、霧も雲もない。大体、22時3分に太陽も月もない。
雲に投光器でスーと光を当てたような。
雲もないよ。夏の大三角形よりもっと東から北へスーと。目を凝らしたら天の川も見えるぐらいに星空が見えるんだから雲はない。
都会と違って地上は暗いしね。
何なんだ ? オレ気でも狂ったか…
◆2014/6/25
小１にプログラミング ?
　帰宅して、いつものように草刈りとかして、焼酎飲んで、風呂入って、夕飯食べて、また焼酎飲んで、タブレットでニュース見てたら

佐賀県武雄市:小１にプログラミング教育　１０月から - 毎日新聞

　最近やたらとこういうニュースが、ちっちゃい頃からプログラミングとか…　そりやYesかNo、OnかOff、1か0だからね。論理的に考察する能力をちっちゃい頃から養うってことなんだろうけど…

　ふぅーん、でもさ、何でもいいからその人に興味のある本をいっぱい読んで、国語の勉強した方がいいんじゃないの ? 日本語が喋れない、読めない、書けないの若い人がいっぱいいるから。
　考えるってことは、何故だろうって疑問から始まるんだと思うし…　そして考えるってのはその国の言葉でもって、思いを巡らすんだからさ。英米は英語で、日本人は日本語で考えを巡らすんでしょ。なら、日本語いっぱい知ってた方がいいでしょ。

　て゛、こんなこと書くとオマエはウザイんだよとなるんだけどね。
◆2014/6/2
田圃の中での採血
　今朝、健康診断があった。採血をします。昨日の昼、田圃の中で蛭に採決されたんだけどな。悪い血をいっぱい吸われた。このところ消毒もきついのしないから、昨年も吸われた。
◆2014/5/22
イリジウム
　今朝、うとうとしてたら充電中のタブレットがボロンと鳴った。イリジウムあるいはISS観測の10分前に通知、並びにGメールが届くように設定している。起きて外に出た。うん ? 星は見える。晴れている。3時9分21秒、西の方向に見えるとある。西側に見えるのは最近では珍しいな。5秒前にまたタブレットが音で知らせる。5,4…　あっ　光った。数秒間光った。今朝の明るさが-5.3とある。
　1週間前から期待しているのが、明日のイリジウム22、この地域で20:00:19。何と明るさが-8.1とある。金星が明るいたって、-4ぐらいだろ。-8.1のイリジウムなんて見た記憶がない。天気予報は晴れ。
　それにしてもこの無料のソフト(有料版もあるけど)、NASAのデータを基に演算するのだろうけど、1週間も前から起動の計算をして、今自分がいる場所で何時何分何秒まで予告する。
　日の出前だったらまだ地上では顔を出していない太陽からの光が衛星の太陽パネルとかに反射してこの地域に届く、日没後だったらその反対。イリジウムで地上800kmだったかな。ISSで400km。コンピュータでぴったり予測してしまうというのか何とも脅威。あらゆる地域の時間を演算するはずだから、まさかスパコンを使ってる ?
◆2014/5/16
ISS 国際宇宙ステーション

　今朝3時37分イリジウム86が見えると通知が来たが、薄雲のせいか確認できなかった。

　次いで4時21分、昨日無事帰還された若田光一さんの搭乗しておられたISS。これははっきり見えた。黄海の上から見え始め、対馬近辺を日本海へと進み、北海道上空で私の目には見えなくなった。

　半年前に若田さんがISSに乗られた翌日にもはっきり確認できた。以後、タブレットに通知が来る度に可能な限り目で追っかけている。

　それにしてもロシアの世界でのポジションは凄い。ISSに往復する宇宙船はロシアのソユーズばかりじゃないか。ISS、「国際宇宙ステーション」。

　ソ連のスプートニク。そしてガガーリンが初めて周回。アメリカも負けじと続いてアポロ11は月へ降りたが、ISSなんて私が子供の頃の東西冷戦の時代からすれば隔世の感がある。

　元々アメリカを始めとした西側だけでは運用するのに予算で行き詰った。そこでロシアも巻き込んだ。だから日本でもISSが確認できる。ロシアを巻き込んでいなかったら、フロリダのケープケネディを中心とした軌道になる。そうすると日本では見えない。もっと北のロシアのバイコヌール基地をも巻き込んだ軌道となったから日本でも見える。

　今やロシアはウクライナ問題の西側の制裁に対抗して、近い将来ISSには協力できないと言っている。

　映画「ゼロ・グラビテイ」も2回見たよ。

　あれ、何でこんなに映像容量が小さいんだろう。ああ、殆ど宇宙だから周りは漆黒か…　くるりんくるりんと回転し乍ら宇宙船から遊離してしまうシーンなんか「2001年…」を思い出します。

　この原稿は早朝に会社でテキストで書いて、gmailの私のアドレス宛とCCとしてhotmailのアドレス宛に送信。2つ使うのは迷惑メールとしてはねられるのを怖れての事です。直ぐに傍のタブレットに受信されます。

　どちらもIMAPだから、帰宅したらPCでも開けます。POP3受信だとこうはいきません。

　今時分、夜中の2時半頃夜空を見たら、澄んでいたら天の川がはっきりと、そして夏の星座が見られます。
◆2014/5/13
Paul McCartney
　先日タブレットでニュースを見て、ポール・マッカートニー、アリーナ席10万円って記事には、えっ ? また来るの ? 10万円には、ハハ、まっいいんじゃない。ポールにはそれだけの価値あるでしょ。ワンステージ億単位のヒトだから。でもダフ屋はいくらで販売するんだろ ? 50万か ? 100万か ?
　自分のティーンエイジの頃ハマったのがビートルズだったですね。其の頃に影響を受けた音楽ってのが死ぬまで引きずっていくんだよ。年取っていいなと思ったのは、サラ・ブライトマンとマイケル・ジャクソンとマドンナぐらい。
　Yesterday,Hey Jude,Let It Beをビートルズ時代に書いた人がまだ現役で人前で歌うんだよ。そりゃ自分からしたら、ビートルズの生き証人、生きてる伝説だ。
　昨年71歳で来日した時、福岡のドームでコンサートの日は、三男の結婚式で上京していた。こちらに戻ったら、行き違いにポールは東京へ行った。ビートルズは生で見たことない。冥土の土産に行きたいなと思ったけど叶わぬ思いを持っても仕方ない。
　他界した叔父が警視庁に就職した時、ビートルズの警護をしたことがあると昔聞いた。あれは1966年。
　武道館ってのは当然コンサートをするためのホールではない。東京五輪に臨んで九段下に建てられた。東京に居た頃何度か武道館に外タレのコンサートに行ったけど、音響の良くないホールだから音響スタッフはPAに相当気を使っただろうなと思う。
　ポールは初来日の武道館に特別な思い入れがあるんだろうけど、に、しても武道館で10万円ね。自分が今も東京に住んでたとして、行くか ? 自分の今の境遇でそんな酔狂な…　そのぐらいの分別はあるよ。行くに能う方のみ、そしてコンサートは是非成功して欲しいと思います。
◆2014/5/13
妻へ…
　オレはもうじき61になる。もう何年も前から家族には見限られている。ことあるごとに古い隣の生家にひとり蟄居し煙草を吸い(小人閑居して不善をなす)、本を読んだり、タブレットでクラウド上の自分のデータベースを検索したり、TVを見たり…
　オレはお前を幸せにしてやれなかった。不遇を囲い、今もお前に働いて貰い、オレ以外の人と一緒になっていれば、もっと幸せになれてたかも知れないのに…　申し訳ない。

　オレの過去を振り返り、カメラは一番の金食い虫だった。そしてコンピュータだ。その本体、周辺機器、雑誌、参考書と一体何十万、下手したら何百万かかったのか分からない。
　ただ、この20年余りで、夜中、休日と何千時間もの勉強したのは確かだ。もともと幼少より何故 ? 何故 ? の性格が益々論理的に考えるようになった。

　それを小学生か幼稚園児みたいなの相手に仕事を引き継げってのが不可能だろ。オレにパワハラとかセクハラなんて説教して何になる。告知された張り紙も確かに倫理的に正しい !
　オレは浮いてた。じゃ浮いてないってのは皆と同じってことだろ。凡庸な皆と同じで何が起きる ? オレの何千時間もの勉強は若い頃の壮大なコンプレックスだ。カメラ、コンピュータ ! ネクラのオレにぴったりのオモチャだった。

　オレにあんなの相手に引き継げってのが組織をあげての壮大なパワハラだ。
　オレはまだまだ知りたいことがいっぱいある。だからまだまだ勉強する。
　ただオレの家系は脳をやられるんだな。アルツハイマーってやつだ。
◆2014/5/13
会話 ?
　オレは仕事先でも限られた人としか日常会話をしない。
　いつだったか、若い人が朝、「アルゼンチンが通貨危機に見舞われて日本の円が高くなってるそうです。」「ふーん、そのニュースは知らなかったけど、じゃ何故アルゼンチンが通貨化危機に見舞われたら、日本の円が高止まりするんだ ?」「…」
　「俺がキミに話しかけたんじゃないぞ。キミはただニュースのうわべをおうむ返しにオレに話しかけてるだけ。オレがキミにそのようなことで話しかけることはない。」
　会話が成立しない。だから日常会話をしない。
◆2014/5/13
こんな田舎にもいまどき暴走族 ?
　あったかくなると、毎年出てくるよ。今年もひとつきぐらい前からいるよ。夜中に爆音と若い男女のけたたましい叫び声で目が覚めたこともある。
　ふん、この国のごみ ! そのエネルギーをもっと建設的な方向に向ければいいのに。鬱屈した心の叫びを爆音にぶつけるか… オレと同じで、結局誰にも理解されることはないよ。ま、警察もあんなのムキになって税金使って取り締まる必要もないよ。
◆2014/5/13
そういえばかつてはカメラにハマっていた…
　ハマっていましたね。休みの度に新幹線沿線に行ってはカメラを構えていました。3.11からピッタリ止めましたけど。
　あの津波の映像を見るにつけ、オレは能天気にこんなことやっていていいんだろうか ? と勝手に自責の念に駆られました。大体カメラなんて昔は医者の息子とかしか手が出せないんですよ。それをオレ如きがフィルムに凝り、これは現像代が滅茶苦茶にかかる。レンズに凝り、そのレンズも何十年も使えば、機械式じゃないんだから壊れるに決まってるでしょう。機械式でも壊れるか …　修理して貰うたって一体いくらかかるのか ?
　開放値で撮った狙った点だけ背筋が寒くなる程にピンのエッジが立ち、それ以外は綺麗なボケったって、ただただ自己満足の世界でしょう。
　ただ、カメラに凝って勉強したことは、徹底的に構図です。主体をどの位置に置くかを瞬時に判断しなくちゃならない。それから当然のことですが、絞りとシャッター速度の相関関係ですね。手ブレとか被写界深度とか…　あと光を読むってのも徹底的に勉強したと思う。
　そういったこと初耳っていう方はスマホのカメラだけでいいと思います。
　オレなんかたまにスマホやタブレットで写そうとするとどうやって、このアプリを使えばいいんだ ? ってなっちゃいます。カメラをアプリで使う ??? ここにカメラ本体があれば、瞬時にマニュアルでピンも絞りも設定するのに…　と地団太踏み、結局スマホでは何も撮れなかったってことよくあります。
◆2014/5/8
飼い猫の悪戯
　夕方、Bose社から修理依頼していたヘッドフォンが戻って来た。連休前にPCに保存してある音楽を聞こうとしたら、あれ音がしない…音源ボードを見ても異常はない。おかしいなと、他のヘッドフォンを繋いだら鳴るじゃん。Boseのそれを丹念に見たらほっそ～いケーブルが2か所切られている。猫か…　
　猫はアメショーで、銀色に黒の虎模様で、去勢された雄だけど、顔は綺麗で、前飼っておられた方の躾のおかげか猫用のフード以外は食べない。外には出さないからストレスが溜まるだろうな…　夜中に寝ていてやけに寝苦しいなと思ったら布団の上でお休み中…　カミサンが飼ってるんだけど、ま、家族の一員。
　半年ぐらい前、ネットに直結しているPCがネットに接続出来ない。調べたらLANケーブルを切っている。
　やれやれ、ペットフード以外は食べないにしても、いっぺん電源ケーブルを噛んで感電してみろ !
◆2014/5/2
IEのゼロデイ脆弱性は修正された ?
　今朝、ネットでの情報、あるいはTVのニュースでMicrosoftは5/2未明から修正パッチを配布開始とあったので、早速アップデート。
http://weekly.ascii.jp/elem/000/000/218/218573/
　つい最近、5/18の定期的なアップデート配布に間に合うか分からないと言われていたのに。ま、世界のあちこちでIEを使うなとか言われると焦っちまうか…
　アップデート適用後はIEのバージョンに(KB2964358)が表示された。
　しかし、昨日、IEのゼロデイ脆弱性に対応させるソフトを起動させるとVGX.DLLは以前と変わっていないし、自分でスキャンをかけて調べてもVGX.DLLは前のままだ。
　まっ、いいか。Chromeばかり使ってると時々メンドーになる…
◆2014/5/1
　さて近頃OpeSSLの「Heartbleed（心臓出血）」脆弱性の影響を受けるWebサイトが凄く話題になっています。
　これに対して私などなんの対応も出来ません。
　ただただ、私がたまに使っているAmazonとかすぐに対応していると信じています。
　で、今度はMicrosoftが発表したIEの脆弱性を突いたゼロデイの脆弱問題。
　HeartbleedもIEの脆弱性もTVのニュースにまでなりました。やれやれデジタルで動いてるんだから、絶対にハッカーにはつけ入られる。
　IEを使うのを止めて、GoogleのChromを使っておりましたが、慣れ親しんでいるIEを使いたい。
　Microsoftはまだ対応パッチを発表できていませんが、昨日、「日本人技術者、Internet Explorer脆弱性の対策ツールを公開」という記事が出ましたので、今朝私は書かれている対応策をとりました。
http://www.asahi-net.or.jp/~tz2s-nsmr/IERemove.html
　それとMicrosoftが発表した
http://internet.watch.impress.co.jp/docs/news/20140430_646651.html
　の2段構えです。ただし私が実行したからといって、同じことをされるのは自己責任です。
◆2014/3/4
徒然に 3

　このホームページに、いつだったか、オレは焼酎飲んだら天才プログラマーと書いたことがある。実際は素面ではこんなコード書いて動く訳ないと思っていても、飲んじゃうとエイヤッで、無謀なコード書いて、たまたま動いたことがあるってことだけとも記していた。
　酒飲んだらと書かなかったのは、痛風を患い、以来ビールと日本酒は絶ったってだけのこと。
　この土日は都合20時間近く書いたかな。普段滅茶苦茶早く起きる自分が土曜日は未明2時(日曜日)まで書いていた。
　日曜日の15時頃、はっと閃いて、もう書けるとタカを括り、焼酎飲み始めた。途端に思考が愕然と低下したのを実感した。意識が混濁してのコーディングは苦しかった。それでも夜にかけてなんとか書き上げた。
　翌、月曜日出社して実際に仕事で使ったらバグを見つけた。おまけにインフルエンザで休んでいる者がまた休んでいる。よくもまあ、馬鹿正直に６連休もするもんだなと呆れてしまった。親父が死んだときも、夜中と早朝は出ていた自分が重なった。オフクロが心臓手術した時も早朝は出てたな。ま、これが今なんだろ。つまり、彼らは　会社=給料だ。会社<>仕事だ。どういう末路(?)にしたって知ったこっちゃない。ついでに言うなら、誰がインフルエンザに罹患しろと言った ?
　兎に角、バグを見つけて、オレは不機嫌だった。夕方遅くからバグ修正にかかり19時頃帰宅したかな。でも今朝は4時には出て、3時間また色んな勉強した。もうこの歳で仕事とかに明け暮れたくない。
　今日はそのプログラムは快適に動く。今までも簡略化してたつもりだけど、今までが何だったのかってほど、訳もなく動く。土日に、だてに２０時間も書いちゃいないぞと。ただ、自分の仕事を楽にしてるってのが、まあ…　正直誰にも理解されないよ。
　仕事をTargetにコードを書くってのは、自分が一番理解していて、具現化し易いから。昼休みと夕方、他にも流用して一気に書いた。あれだけ苦労したんだから訳もない。およそルーチンの数値は自動化出来る筈だと思っている。思い上がりか ? 社内でパートさんがデータを読む。お客さんがデータを読む。実に簡略に分かり易くしてあるか。もしかしたら、その方面は潔癖症かも知れない。その内部はというとウチに帰ってこの２０年余り、何百時間、何千時間の参考書と打鍵と時間の徒費と無為な思考に費やしたか…。ま、趣味だから出来るといえば…　ま、それだけのことか。

　さて、オレは特に年を取ってから、徒に色んなことを知りたい欲求に駆られている。死に急いでるのか ? ネットで新聞読んだり、本を読んだり、こんなに色んなハテナ、何故(?)を追っかけて、金 ! にもならない知識を取り込んで、色んな色んな役にも立たない情報を得て、でもオレは結局死んでいくんだなと…　。

　ホームページにしたって、今や自分のホームページに興味もないと以前書いた。だから更新頻度は1、２か月単位にまで落ちた。このちっちゃな町でホームページを最初に書いたのは自分かも知れない。少なくとも町の公式サイトより遥かに前だ。これでも最初はアクセス数は自分の方が上だったんだから。つまり自分はこんなことも出来るんだよという衒学的行為だとも以前書いた。

　ブログってのは誰でもテンプレートに乗っかって発信できるお手軽な、つまりノーテンキな芸能人でもやってんだよ。殆どのサイトってのがHTMLタグっていう言語が使われてるってことも知らないだろな。タグをテキストでコピーして拡張子を.htmlにしてそれを開いてみろよ。

　ま、どうでもいいか…　酔いが回ってきた。タブレットが急速にのしてきて、パソコンが急落した。SONY VAIOもそうだ。仕方ないでしょ。殆どはメールとサイト循環とか、地図アプリとか写真で用が済むもん。オレも目が見えなくなったのでスマホじゃなくタブレットだ。ただ、パソコンはどうしても要る。Officeを使うから。特にExcelは仕事とオレの趣味を満足させてくれる。Excelはオレにとって、あれはゲームだと思っている。だからワクワクして、動いた時の快楽を何百回も体験してるから止められない。

　この世の中の色んな事象、特に物理面では平衡というものがある。物理ではなく、極端だけど、Microsoftのビル・ゲイツが自社の株価のベストな頃、資産11兆円と書かれた。余りにも天文学的な馬鹿馬鹿しい話だけど、平衡というものから見れば、欧米、この国も多くの人からパソコンで職をとかれた。一部屋もあるオフィスコンピュータはパソコンに替わった。多くの関連企業がWindowsに右並えした。それがグローバルスタンダード。すべての人にコンピュータをという彼の高邁な意思と裏腹に滅茶苦茶多数が失職した。さらにはこの国は先で年収１００万円時代を迎えると書かれる。話は変わるが、この国の閉塞感を打破するには戦争しかないのじゃないかとさえ思う。
　パソコンはどうでもいい。先進国のモノ作りは今後２０年間でみな自動化され、ロボットに置き換わる。資本家(特にユダヤ)が利益を追求するのは当然である。
　全ては０か１だ。前に遺伝子だろうが脳の伝達だろうが０か１と書いた。
神の領域に踏み込んだのかどうか知らないが、自分の息子の時代に確実にその時代を迎える。
　
◆2014/2/23
映画「東京難民」

    　

一体この国は何処へ行くのか
色んな意味で余裕があれば観てもいいけど、
例えばネットで
ソニー「キャリアデザイン室」
を読んでもこの国の病が見える。

東京に暮らす三男夫妻に幸あれと…
　
◆2014/2/16
『整数で無い数字を判別する』Excel-(例)確定一覧.XLS手入力

　今も業務で使っている一番大きなアプリは「確定一覧.xls」である。調べてみると2000/7/31作成となっているが、その母体はもっと前、20年前の筈だ。
　数年前にS氏のアイデアで親会社のWebからデータを取り込み、自動で作表するように改良していった。素晴らしいアイデアに私は驚愕した。しかし、実際には作動しなかった。泣くような思いでベラボウに長い関数を書き、10シートのこれまたベラボウな数の各セルに数式を埋め込んでいった。
　さらに20年前からプログラムに興味を持っていたので、各種手順をみな自動化した。このアプリを母体に色んな帳票にデータを一瞬で飛ばしていった。
　が、その中に自動読み込み出来ないものがある。親会社から1週間に1度コピーかFaxで送られてくるデータ。デジタルデータなら日付を基に自動で読み込んでやるのに。
　結局今もその何点かが毎日手打ち入力だ。人が手で打ち込んでいるとどうなるか…　誤入力が発生する。間違いがあってはならない業務に間違いが発生する。
　1週間前、ふと、打ち間違いが発生した時、視覚的に注意喚起できるようにと、条件付き書式を使って延べ1時間で作った。打ち間違いがあったときは大抵、数量／入数で小数点が発生した時生じる。これはワークシート関数のINTやTRUNC関数を使えばいい。
　さらに、こいつをプログラム化できないか ? 昨日は土曜日なので久しぶりに7時頃まで惰眠を貪っていたが、10時頃から開始。TRUNC関数はVBAでの関数は何か ? から始まった。入力後に演算結果が整数でないときは、「入力間違いでありませんか ?」のメッセージ発生させ、数量も赤文字表記、Yesなら入力セルにカーソルを戻す。Noならその数字を生かす。ただ、このストーリーを具現化するのに夕方までかかってしまった。
　さらに、Enterキーならカーソルは下に移動しているが、矢印キーで横の方に打ち込んだ場合も元のセルに戻すように改良した。

条件付書式

リボンの[ホーム]－スタイル部分の[条件付き書式]をクリックし、表示されるメニューの[ルールの管理]をクリックします。
ルールの管理のヒントです「条件付き書式ルールの管理]で、ブックの条件付き書式ルールを表示、作成、編集、削除します。」




Excel2003では




Excel2013では





マクロ

Fix関数
構文
Fix(num)
引数numには、倍精度浮動小数点数型の数値または任意の数式を指定します。

解説
引数numの小数部分を取り除いた整数を返します。
Fix関数の返り値は、引数numと同じデータ型になります。
引数numに負の数値を指定した場合、Fix関数は引数num以上の最小の整数を返します。

サンプル
次の例は、Fix関数で数値を整数に丸めます。また、Fix関数の返り値のデータ型を調べます。
Sub Sample()
Dim a As Double, b As Double, c As Variant
a = 1234.5678
b = -1234.5678
MsgBox Fix(a) '1234が返ります
MsgBox Fix(b) '-1234が返ります
c = Fix(b)
MsgBox VarType(c) '５(Double)が返ります
End Sub



(例)確定一覧.XLS手入力





Private Sub Worksheet_Change(ByVal Target As Range)

' セルの値が変更されたときマクロを自動実行する
' ExcelVBA 逆引き時点 P.320

'2014/2/15 T.○○ 作成


Dim Ret As Integer

Target.Font.ColorIndex = 1
Target.Offset(, 6).Font.ColorIndex = 1

On Error GoTo myError
' 入れないと「半製品0」実行で型が一致しません。
' If Target.Offset(, 6) <> Fix(Target.Offset(, 6)) Then の処で止まる｡

If Target.Offset(, 6) <> Fix(Target.Offset(, 6)) Then
Target.Font.ColorIndex = 3
Target.Offset(, 6).Font.ColorIndex = 3

Ret = MsgBox("入力間違いではありませんか ? ", vbYesNo)
If Ret = vbNo Then
Target.Font.ColorIndex = 1
Else
Target.Font.ColorIndex = 3
End If

End If

myError:
' 何もしない

End Sub

さらに進めて

Private Sub Worksheet_Change(ByVal Target As Range)

' セルの値が変更されたときマクロを自動実行する
' ExcelVBA 逆引き時点 P.320
' ※ シート全体に有効だから項目を増やしてもOK !

'2014/2/15 T.Nakamoto 作成


Dim Ret As Integer

Target.Font.ColorIndex = 1
Target.Offset(, 6).Font.ColorIndex = 1

On Error GoTo myError
' 入れないと「半製品0」実行で型が一致しません。
' If Target.Offset(, 6) <> Fix(Target.Offset(, 6)) Then の処で止まる｡

If Target.Offset(, 6) = 0 Then
Target.Offset(, 6).Font.ColorIndex = 1
' 0の場合は黒

ElseIf Target.Offset(, 6) <> Fix(Target.Offset(, 6)) Then
Target.Font.ColorIndex = 3
Target.Offset(, 6).Font.ColorIndex = 3

Ret = MsgBox("入力間違いではありませんか ? ", vbYesNo)
If Ret = vbNo Then
Target.Font.ColorIndex = 1
Else
Target.Font.ColorIndex = 3
' 整数でない場合は赤
MsgBox "入力訂正してください。"
'ActiveCell.Offset(-1, 0).Selec 'Enterキーならこれで良いが
Target.Select '普遍的に元のセル位置に戻す
End If

Else
Target.Offset(, 6).Font.ColorIndex = 32
' 整数の場合は青

End If

myError:
' 何もしない

End Sub


　
◆2014/2/3

    　

　さて先程書いたコードで何をやってるかというと、毎日、ルーチンで同じ人たちに、定型文みたいなメールを送るのはイヤだから、数年前から自動で各メンバーに送っている。
　それを最近になって、元にしているテキストデータを呼び出して、そこに日々本文を書き換え、それをコピーしたらメールの本文にペーストされて、各メンバーに送付するように書き換えました。
　因みにExcelの添付ファイルも数年前から自動送信です。

　そんなことしなくたって、outlookはofficeの一員だからプログラムを組めばそちらで出来るのかも知れないけど、outlookは私は受信に使っているだけ。
　数年前ネットで見つけたのは○○.dllをWindowsのsystemにコピーして…
　これはoutlookとかhotmailとかGmailといったメールソフトを介さないで送信してしまいます。



'*******************************************************************************
' メール送信処理
'*******************************************************************************
Sub SEND_MAIL()
Dim xlAPP As Application
Dim GYOMAX(1 To 4) As Long
Dim IX As Long
Dim swOwnerBCC As Boolean
Dim intDelMode As Integer
Dim msg As String
Dim FF As Integer
Dim strFileName As String
Dim strMessage As String

Set xlAPP = Application

With ActiveSheet
' 宛先各項目の最終行判定→GYOMAX1,2,3
GYOMAX(1) = .Range("$J$65536").End(xlUp).Row ' 宛先
GYOMAX(2) = .Range("$L$65536").End(xlUp).Row ' CC
GYOMAX(3) = .Range("$N$65536").End(xlUp).Row ' BCC
' 未登録対処として最低1件は登録されたものとする(ﾌﾞﾗﾝｸは送信処理側で対応)
For IX = 1 To 3
If GYOMAX(IX) < 3 Then GYOMAX(IX) = 3
Next IX

' 添付ﾌｧｲﾙ最終行判定
GYOMAX(4) = .Range("$B$32:$C$32").End(xlUp).Row ' 添付ﾌｧｲﾙ
If GYOMAX(4) < 27 Then GYOMAX(4) = 27

If .Cells(33, 2).Value = "送信者をBCCに加える" Then swOwnerBCC = True

If .Cells(34, 2).Value <> "" Then intDelMode = CInt(Left$(.Cells(34, 2).Value, 1))

' 本文の編集(セル内改行でLF→CRLF変換、署名を接合)
strMessage = Replace(.Cells(11, 2).Value, vbLf, vbCrLf) & vbCrLf & _
Replace(.Cells(22, 2).Value, vbLf, vbCrLf)

'-----------------------------------------------------------------------
' ■Eﾒｰﾙ送信の呼出し(modSendMailByBASP21)
' [引数]
' strDialUp : ﾀﾞｲｱﾙｱｯﾌﾟ登録名(ﾀﾞｲｱﾙｱｯﾌﾟしない時はﾌﾞﾗﾝｸ)
' strDomain : ﾄﾞﾒｲﾝ名(xxxx.co.jp等)
' strSMTP : SMTPｻｰﾊﾞ名(smtp.xxxx.co.jp,mail.xxxx.co.jp等)
' strPort : 通常は｢25｣,ﾌﾞﾗﾝｸの場合は｢25｣
' strTimeOut : ｢60｣位が適当,ﾌﾞﾗﾝｸの場合は｢60｣
' strFromName : 送信元名称
' strFromAddr : 送信元ｱﾄﾞﾚｽ
' vntToName : 宛先名称(複数の場合は配列をｾｯﾄする)
' vntToAddr : 宛先ｱﾄﾞﾚｽ(複数の場合は配列をｾｯﾄする,配列要素数は宛先名称と一致させる)
' vntCCName : CC宛先名称(複数の場合は配列をｾｯﾄする)
' vntCCAddr : CC宛先ｱﾄﾞﾚｽ(複数の場合は配列をｾｯﾄする,配列要素数はCC名と一致させる)
' vntBCCName : BCC宛先名称(複数の場合は配列をｾｯﾄする)
' vntBCCAddr : BCC宛先ｱﾄﾞﾚｽ(複数の場合は配列をｾｯﾄする,配列要素数はBCC名と一致させる)
' swOwnerBCC : Trueの場合､送信元ｱﾄﾞﾚｽをBCCに加える
' strSubj : 件名
' strMessage : 本文(署名も付加してｾｯﾄ)
' strCaption : 親ｳｨﾝﾄﾞｳのCaption
' vntFileName : ﾌﾙﾊﾟｽ添付ﾌｧｲﾙ名(複数の場合は配列をｾｯﾄする) ※ない場合はﾌﾞﾗﾝｸ
' strLzhFile : 上記添付ﾌｧｲﾙを圧縮する場合はその圧縮ﾌｧｲﾙ名(ﾊﾟｽ名不要)
' intDelMode : 圧縮時の削除方法(0=削除なし, 1=圧縮ﾌｧｲﾙを削除, 2=元ﾌｧｲﾙを削除)
' [戻り値]
' "OK"=成功, それ以外はｴﾗｰﾒｯｾｰｼﾞ
If GYOMAX(4) > 27 Then

……
以下延々と続く…

　
◆2014/2/3
クラウド

例えば先ほど書いたコードは私が2年半前から利用しているクラウド上のデータベースに保存した。毎日ネット上のニュースも放り込んだりするから、データ数はすでに9800にもなった。ここまで来るともう、検索もちょっと難しくなる。
「Excel_VBA_テキストファイルを開く」というタイトルで、タブレットのメモ帳の「Excel」フォルダに入れてある。そこにはデータベースアプリ上のそのデータ固有のURLが書かれているから、それをタップすると9800の中から先程のコードが表示される。
　
◆2014/2/3
これは単に後々までの覚え書き

Excel_VBA_テキストファイルを開く

Sub テキストopen()
'2014/2/3
'外部のテキストデータを呼び込む
'

Dim WSH
Set WSH = CreateObject("Wscript.Shell")

'If Dir("D:\除湿剤在庫\**メール送信\**配車依頼定型文.txt") <> "" Then

''WSH.Run """D:\除湿剤在庫\**メール送信\**配車依頼定型文.txt""", 3
''例文のように3だと最大化して開く。2だと最小化。
'WSH.Run """D:\除湿剤在庫\**メール送信\**配車依頼定型文.txt""", 1
''何故""" """で囲むのかはModule6を参照
'Set WSH = Nothing

'Else
'MsgBox "テキストデータがありません。"
'End If
'上記のままだとDドライブから他のドライブに変えたときパスが通らない。

Dim myPath As String

myPath = ThisWorkbook.Path & "\**配車依頼定型文.txt"

If Dir(myPath) <> "" Then

'WSH.Run """D:\除湿剤在庫\**メール送信\**配車依頼定型文.txt""", 3
'例文のように3だと最大化して開く。2だと最小化。
'数字なしでも1と同じ表示。つまりデフォルトは1。
'Chr(34) & myPath & Chr(34)の説明はModule6を参照

WSH.Run Chr(34) & myPath & Chr(34), 1
Set WSH = Nothing

Else
MsgBox "「**配車依頼定型文.txt」 がありません。"
End If

End Sub



★Module6を記載

'拡張子関連づけでファイルを開く   テキストを開くための参考文献

http://www.moug.net/tech/exvba/0060072.html


'拡張子関連づけでファイルを開く
'(Excel 97/2000/2002/2003/2007)
'VBAから､exe形式などの実行形式ファイルを起動するにはShell関数を使います｡
'次のコードは、Windowsに標準添付されている「メモ帳」を起動します。

Sub Sample10()
Shell "notepad.exe", vbNormalFocus
End Sub


'「メモ帳」の実体は「notepad.exe」という実行形式ファイルで、一般的にWindowsフォルダに保存されています。
'本来なら"C:\Windows\notepad.exe"のようにパスを指定しますが、Windowsフォルダには環境変数のパスが設定されていますので、"notepad.exe"のようにファイル名を指定するだけでも起動できます。

'このように､実行形式ファイルを起動するにはShell関数を使えますが､データファイルを指定して､そのデータファイルが関連づけられているアプリケーションで開くにはどうしたらいいでしょう｡
'たとえば､拡張子txtのテキストファイルは､一般的にメモ帳に関連づけられていますので､テキストファイルのアイコンをダブルクリックすると､自動的にメモ帳が起動してテキストファイルが開かれますよね｡
'その動作をVBAから実行するようなケースです｡

'これにはWindowsのAPIを使う方法もありますが、手軽なのはWindows Scripting Host(WSH)を使うやり方です。
'次のコードは"C:\Sample.txt"を拡張子関連づけで開きます。

Sub Sample1()
Dim WSH
Set WSH = CreateObject("Wscript.Shell")
WSH.Run "C:\Sample.txt", 3
Set WSH = Nothing
End Sub


'WSHのRunメソッドが､ファイルを開く命令です｡

'非常に便利なWSHですが､思わぬ落とし穴がありますので注意が必要です｡
'たとえば､次のコードはエラーになります｡

Sub Sample2()
Dim WSH
Set WSH = CreateObject("Wscript.Shell")
WSH.Run "C:\My Documents\Sample.txt", 3
Set WSH = Nothing
End Sub


'Sample1とまったく同じコードですが､何がいけないのでしょう｡
'実は、WSHのRunメソッドに指定するファイル名には「空白を含まない」というルールがあります。
'ファイル名に空白が含まれていると､Runメソッドは空白までがファイル名であると認識してしまうのです｡
'Sample2で指定したファイル名「C:\My Documents\Sample.txt」には空白が含まれています。
'このような場合は「"C:\My Documents\Sample.txt"」と、ファイル名全体を「""」で囲む必要があります。

Sub Sample3()
Dim WSH
Set WSH = CreateObject("Wscript.Shell")
WSH.Run """C:\My Documents\Sample.txt""", 3
Set WSH = Nothing
End Sub


'あるいは、「"」という文字はCha(34)で表せますので、次のように書くこともできます。

Sub Sample4()
Dim WSH
Set WSH = CreateObject("Wscript.Shell")
WSH.Run Chr(34) & "C:\My Documents\Sample.txt" & Chr(34), 3
Set WSH = Nothing
End Sub


'もちろん、空白を含まないファイル名を「""」で囲っても正常に動作します。
'GetOpenFilenameメソッドなどを使って、任意のファイル名を開きたい場合には、次のように、念のため「""」を付加するようにしてください。

Sub Sample5()
Dim WSH, Target As String
Target = Application.GetOpenFilename
If Target = "False" Then Exit Sub
Set WSH = CreateObject("Wscript.Shell")
WSH.Run Chr(34) & Target & Chr(34), 3
Set WSH = Nothing
End Sub

　
◆2013/12/21
徒然に 2

特別秘密保護法成立
　カミサンがどうにもオレの事が気に入らない。そこでウチの主人は危険思想の持主だと地元の新聞にでもリークする。やがてオレは特高警察に逮捕される。冤罪をでっち上げれば簡単にオレは犯罪者だ。社会的に抹殺もいとも容易いことだ。
　元々あの法は、そんないかにも軍靴の音が聞こえてきそうな物騒な法ではない。
　西側諸国の特に米からの圧力だ。これに公安がのっかったと聞く。
　そしてマスコミは拡大解釈して不安 恐怖を撒き散らした。
　安倍政権も悪い。国民に法の意味 意図の説明責任を果たしていない。取って付けたような第三者機関とかを次々に打ち立てる。そして強行採決。拙速と言われても仕方ない。

猪瀬東京都知事
　あんな聡明な 何百万票もの得票者が…　かつて報道者に対して「ミカドの肖像」を読んだか ? 「ミカドの肖像」って何だと調べたら本人の著書じゃないか。オレもいつか読んでみようかと思っていたが、今となっては興味ない。トカゲの尻尾なのか知らんが、マスコミ相手に高慢な舌戦を繰り広げていた人が見苦しい。
　次の都知事に東国原なんかがなったら都民はバカだ ! 舛添も ? ただ該当者がいないから選挙に行かないは良くない。

　12/19 やはりというか当然というか都知事を辞職。

老人の情報処理能力
　先日TVでやっていた。老人は考える力 情報処理能力が衰えると…　オレも定年を過ぎ老人の仲間入り…　へっ　若いヤツラもアルツハイマーみたいなのがいっぱい居る。
　私「ロト６」関係の者ですが、絶対儲かりますから。実は当選番号は予め分かるんですよ。じゃ今回の当選番号当てて見せますからメモして下さい。嘘だと思ったら明日の朝刊を見て下さいよ。　えっ　?! これで引っかかる輩がいるのか…　オレもやろうか。

F22 ラプター
　11/15 三男の結婚式のため岩国空港から離陸する直前 只今航空機が着陸するため少し待機します のアナウンス。面前に異様な戦闘機が２機立て続けに降りてきた。あれは何だろう ? F15とかF16或はF18じゃない。黒に近い灰色、金属光もなく、正直汚いという印象だった。
　羽田に着いて、カミサンの弟さんに岩国で見た戦闘機はあれは一体何ですか。弟さんは岩国基地に勤めている。
　あれはラプターですよ。F22、沖縄からたまに整備か給油で立ち寄ります。
　あれがラプター !! 猛禽　最強の戦闘機。しかもステルス。日本の自衛隊が配備したかったのに、日本は機密を漏らすからダメ。本当はハイテクの塊を米国から外に出したくなかった。１機１８０億円位じゃなかったかな。沖縄、嘉手納基地には駐留している。今年、爆弾装備して演習をしたら、習近平がビビったというシロモノ。
　岩国で間近に見た戦闘機は道理で金属光もなく異様だったはずだ。あの形状　塗装がレーダーに捉えられないんだ。

エドワード・スノーデン
　元CIA職員の彼の暴露は世界中に疑心暗鬼を植え付けた。12/6にはネットにNSAは世界中で１日５０億件の携帯情報を収集と出ていた。プログラムの名前はCO-TRAVELER。この名前で検索したら、なんとある国での一人の人間の足跡が道路上を次々にプロットされていく様が動画としてアップされている。
　米国のIT企業からも情報が集められているったって、１日７０００万件のメールをじっくり読まれているわけがない。ドイツのメルケル首相の携帯も傍受されていて、両国が緊張したったって、ドイツだって似たようなことをしてるだろ。昔から噂されているエシュロンを共同運営している国はドイツも入ってるだろ。
　一市井の人間に張り付いて行動監視なんて そんな暇があるわけがない。テロや紛争抑止のため必要である。スノーデンの暴露によって世界に激震が走ったって今後情報収集が止まるなんてことはない。
　むしろ、あのようなことが暴露されたってのが米国の弱体化だ。

映画「永遠の０」
　今日12/21、映画「永遠の０」が上映開始。今年、春だったか、自分の読んだ本で映画化されるものから「プラチナデータ」、「モンスター」、「永遠の０」を見たいと書いた。
　先の２本は見ていない。「プラチナデータ」は２か月前だったか、レンタル店でブルーレイを借りてダビングしたまま、いまだに見ていない。「モンスター」はレンタル店に出れば借りるかも知れない。
　さて映画というのは、３人の息子たちが小さい頃、毎年正月には「ゴジラ」シリーズに連れて行っていたが、以来映画館に行ったことはないし、２０年ぶりぐらいか。
　一昨日からこの映画をネットで調べていた。そして今朝やはり行こうと。涙を流しに映画館に行くのか。涙が、身体に染みついた煩悩を浄化してくれるのか ?
　タブレットで空席に十分余裕があるのを確認して映画館へ向かう。今日２回目の１１時半のチケットを買った。自分は今回からシニア料金の１０００円である。おかげでパンフレットも買った。初日なのに始まる頃も空席がいっぱいある。田舎ってこんなものか。
　ん、館内にゼロ戦の発動機の音が響き渡る。機銃照射、真珠湾攻撃、音も絵もいいなあと感心。２時間余りの映画では原作の通りに隅々までは作れないんだなと感じる。物足りないなと思いつつ、原作にはない場面もあった。オレは映像マニアではないので俳優も知らないし、演技の技量も分からない。小説を映画化したんじゃないか。史実でもないのに涙するものかと思いつつ、涙腺は緩んでしまった。
　オレが生まれる８年余り前にはこういう悲劇がいくつもあったのだ。戦地に向かう兵士の思いはひと様々だったろう。ましてや特攻。おくにの為に散華できるのかという昔からの疑問はこのタイトルで少しは理解できたつもりである。真におくにの為に散った人もいただろう。大事な家族、そして家族のいるこの国。いつの時代も官僚的組織に操られる普通の名も無き人達とその周辺。
　特攻の発案者は大西瀧治郎中将。自らを統率の外道と嗤い、終戦を聞くと割腹、介錯を要としないと、多くの無念を思い十数時間も悶えて息絶えたという。
　今この国は原発事故でさえ一人の逮捕者もいない。

　あの壮大なドラマを２時間余りで映像化するというのはやはり無理がある。でも素晴らしい映画を作って下さったと率直に嬉しく思います。

http://www.eienno-zero.jp/index.html
　
◆2013/11/14
猪瀬東京都知事
いつだったかな…　石原知事の後は猪瀬副知事で決まりだろとか書いたら、猛攻撃を受けたな。結果はおよそこの地球上の選挙と名の付く圧倒的な得票だろう。やれ福祉施設が潰されたとか、そんな右翼的なアナタこそ潰れればいいとか。　辞めればいいじゃん !!
あのな、オレが30年前までいた、本社東京の一部上場の大会社は、儲けている筈の部門も子会社にしたり、寮を売ったり、保養所を整理していたよ。
この攻撃に対してオレはひとことも相手にもしなかった。民間と官営の思いの乖離だ。
大体、この国が好きだという思い、そのものを右翼的と決めつけるような馬鹿野郎共の跋扈する国だ。
お前らの究極の目標はこの国の破壊か ? いやならこの国を出ていけばいいじゃん。中国だろうが、北だろうが。出て行きたくはないが、金はせびりたいか。税金で。
はっきり言ってやろう。お前らは何も生産しない。税金を如何に使うか考えるだけの輩だ。
◆2013/11/14
郵政 !?
明日は東京へ。仕事も済ませ、帰宅していつものように焼酎を飲んでいた。ふと玄関の靴箱の上に目をやったオレに不在届の通知。年に何度かある。
普段だったら近くの郵便局にハンコと免許証を持って受け取りに行く。が、この時間に焼酎を飲んでていては無理だ。
あのな、民間の宅配だったら、不在だったのでまた伺いましたと夕方来られるぞ。すみませんねえ～、昼間誰も居ないもんで…
それが世間一般のごく普通の通常の形態だろう。それを昼間訪れて不在だっので。夜、再び回っても残業代もつかないわな～。
郵政は潰せ ! そしてサービスとは如何なものか勉強させろ !
それと通信を使う方も郵政を使うな ! それで潰れれば潰れればいい。当たり前のことだろう ! 現実社会とマッチしていないんだから。
当たり前のことながら、サービスも競争しなくちゃならない筈。世間の誰もが痛感している筈のこと。
よもや、こんな馬鹿なことを書くなんて思ってもいなかった。
◆2013/11/13
イリジウム57とISS 2013/11/13
4時40分、私のタブレットがポロンと鳴る。あっ 今日はイリジウムとISSか。
今回はイリジウム57、4時49分殆ど真上を北方向に、そして一層明るくなり、やがて薄暗くなったので見るのを止めた。あれがイリジウムフレアか。あの一瞬地上800kmのイリジウムのパネルに太陽光が当たり。反射光が私の目に飛び込んだんだ。
ISSは最初見つけることが出来なかった。5時台のこんなに早い時間に上空400kmに太陽光は当たるのかな? と、5時14分殆ど真上に あんなに明るく見えるじゃないか。タブレットで確認すると対馬海峡だ。しばし凝視していた。あれに若田さんが乗っている。あっ もう青森、北海道、5時18分に北東方向、私の目に見えなくなった時、北海道知床半島だった。
この脅威 !!
山に隠れたんじゃない。ふっと見えなくなった。余りに遠いからか、その辺りは明け方近くで明る過ぎて消えたのか分からない。
タブレットへの通知は5:17:52に北東方向に消えていきますとある。それが知床半島だった。ほんまかいな ?
秒速7.8km×60=468km 468×4分=1872km　間違いない。知床半島付近で見失ったというのは納得できる。5:11:17から見え始めるとある。私は見つけることができなかった。何せきょろきょろ動く光を探していたから…　その時台湾と中国の間の海上だったことになる。
これが宇宙レベルの話ということになる。
　
◆2013/11/12
Paul McCartney 生きているレジェンド
昨夜、大阪でなんと追加公演から始まった、コンサートのニュースを早朝ネットで見た。
興味ない人にはなんてことないんだけど、私にとっては生きている伝説、神話だ !
下は私が10代後半に描いたペン画


　
◆2013/11/12
ISS
タブレットから通知、4時25分頃、日本の南、9日朝見た時よりもさらに南。これは自分には見えなかった。
そして2度目が6時前、今度は南西、見えた。はっきり見える。今、上海上空辺りか。どんどん近づく。韓国上空。ずっと見ていた。6時9分頃消えた。おそらく間宮海峡の方だろう。
戻って煙草を吸い乍ら、タブレットを見たら、6時15分でもうアリューシャンの南だった。
　
◆2013/11/11
台風30号
瞬間最大、秒速90m/s　新幹線「のぞみ」が300km/hは83m/sだ。これをかつてカメラで追っかけてたんだから馬鹿といえば馬鹿だ。
この「のぞみ」の屋根の上にしがみついてろ ! これより早い90m　これでどうやって生きてろってんだ。ん ? 高波、そんなものなくたってその風の中で壊れない一般民家ってあるか
　
◆2013/11/11
月の周回速度は
三男の結婚式に向けて、親族の紹介とか、式の謝辞とかの原稿は先週書いて、クラウド上にupしている。
そういった自分を追い込む案件から離れて、自分の今の興味というか趣味、例えばISS上の若田さん。ISSを教えて下さったのは、先日も書いたように、パートの女性。ISSをこの肉眼で初めて見て、翌日興奮して、地上350～400kmを秒速7.8km付近で飛んでるんだよね…でもそういった話は興味がないらしく、そのスピードより落ちたら地球の引力で落ちるし、その高度でそれ以上のスピードだと地球の周回軌道から外れるんだよ。静止衛星、つまり、地上から見て常に自分の頭上、気象衛星とかだね。これは地上36,000km、秒速3.1kmだと24時間で地球を1周回る。ん ? 分かんない ? じゃ28日かけて地球を回る人工じゃなくて純然たる衛星、そうお月様。これのスピードはもっと遅い筈だよ。
さてその後昼休みに電卓をはじいてみた。地球から月までの平均距離は子供の頃の記憶(自分の記憶は384,356kmだったんだけど、どうやら384,400kmらしい)、で384,400km…
384,400km×2=76,8800km これ直径。円周はΠをかけて、76,8800km×3.14=2,414,032km。実際は楕円軌道だけどこの際無視。2,414,032km÷27.5日=87,782.9818÷24時間=3,657.62424÷3,600秒=1.01600673km/s
1秒間に1kmの速度だ。
但し、これは地球から見ての速度。太陽から見たら地球は365日(365日5時間48分46秒と記憶してるけど、調べていない)かけて、平均1億4,356km(これを1天文単位という)を半径とした楕円軌道を回っているし、銀河系　直径10万光年といわれている、銀河系の中心から見ればそこまでいくと、太陽系はどれだけかけて周回しているのかオレ知らない。さらに銀河系は宇宙の中心を周回するわけだ…　そこまで行くとオレ知るかってことになる。子供の頃から宇宙の外には何があるんだ ? になっちまう。
因みに7.8kmは地球を周回する第一宇宙速度、11.2km/sを超えると地球の引力を振り切る、第二宇宙速度…そして宇宙を振り切るには光の30万km/sを超えなくちゃならない。
そうすると今話題のヒッグス粒子、光には質量がない。質量のない宇宙船ってありえますかになっちまう。
ね、面白いでしょ ? ゆがんだ子供だったんだな… ?
　
◆2013/11/11
Paul McCartney

今17時半、もう1時間もすれば大阪でコンサートが始まるのかな…　Yesterday, Hey Jude, Let it be そしてあのAbbey Road のB面…
生で体感したい。若い頃熱狂的なBeatlesファンでありながら、1970年に解散してしまった。1980年、Wingsを引き連れて、来日した時は成田空港で大麻持ち込みの疑惑で捕まっちまった。その頃、自分は東京に住んでいたが、BeatlesのPaulであり、解散した後の自分のバンドといっても最早興味がなかった。
そして、この年の12月、John Lennonが暗殺されてしまった。もう、Beatlesの復活は永遠に絶たれてしまった。
Paulに再び関心を持ち始めたのは自分が50を過ぎてからじゃないのかな…　コンサートでBeatles時代の自分の曲を演奏しているから。
東京に居た10年間に結構色んなコンサートに行ったけど、あの人は1度も生で見ていない。
11/15 福岡ドーム、無理だ ! 三男の結婚式の前日だ。そして東京から戻った頃に東京で3回コンサート。
こんなにも昔からの大ファンのオレは嫌われてるな。自分の年、そして何よりPaulの年(71)からして、自分の冥土への土産としたかったが、その思いは完全に封印。
　
◆2013/11/9
1週間後に三男の結婚式だ。
9月に顔見せにカミサンと上京した。

2013/9/21(土) 上京

9:30 車で岩国空港に向かう。
10:30 岩国空港着 搭乗手続き
11:15 ANA634 岩国空港発 25A,B席
呉 三原 尾道 しまなみ海道 今治 福山
地図の通りだ ! 子供のように感激
瀬戸大橋 岡山 坂出 小豆島 姫路 明石大橋 神戸 大阪 京都 琵琶湖
木曽川 名古屋 中部国際空港 知多半島 富士山 浜名湖 静岡 清水
伊豆半島 伊豆大島 房総半島 確認
60～65分間のフライトで富士山は15分間ぐらい見えた 圧倒的に高い
12:50 羽田着
13:00 三男と合流

そして眼下に小さくそしてはっきりと見えた伊豆大島は集中豪雨に合った。
　
◆2013/11/8
若田光一さん万歳 ! ISSを目撃

いつものようにパソコンでネットの新聞を見ていたら、テーブルの上にほったらかしていたタブレットがポロンと鳴る。
ん ? ISSかイリジウムでも飛ぶのか… 通知を見ると6時過ぎにISSが日本のかなり南を通過する。5時55分にフィリピン上だった。
(後で知ったのですが、この頃地上には史上最大クラスの台風がいたんですね。)
6時頃に外に出た。6時2分に南の上空に光の点がはっきりと見え始めた。あれに若田さんが搭乗している。手を振りたくなった。3分ぐらいはっきり見えた。見え始めたのはどの辺りだったんだろう ? 八丈島の辺りだろうか ?
戻ってタブレットを見たら6時9分にはもうカムチャッカの南だった。

ブログは、IDとパスワードを打てば何処でも更新できますが、ホームページはHP作成ソフトとサーバーにupするFTPソフトが必要なので、更新は帰宅した夕方です。
◆2013/11/5
ISS 国際宇宙ステーション

　あれは10/30の朝だったと思う。○○(オレの名前)さん、今も夜空を見ておられますか ? 朝、パートの女性が話しかけられた。ん? 年寄だからね、今も3時半には外に出て、煙草吸い乍ら、空を見てるよ。今なら、冬空オリオンが真上に見えるよ。パートさんの次の反応。今日の夕方、ISSが見れますよ。
　ISS ? 国際宇宙ステーションですよ。えっ ? あの若田さんとか星出さんの乗った…　そうですよ。まさか女性の方にこのようなこと言われるとは思いもしなかった。はっきり言ってオレはISSが国際宇宙ステーションって知らなかった。その時、イリジウムという言葉も発せられたのだが、イリジウム ? 元素の名前じゃん…
　ISS、教えられたAndroidアプリでISSディテクターをインストールした。そして、今、この日の時間をはっきり覚えていないが、草刈りをして、焼酎を飲み、ふと思い出して18時過ぎ夜空を見上げた。
　うおっ ! 真上を明るい星がかなりのスピードで走っていく。欣喜雀躍、興奮の余り、家に飛び込んで、カミサンや子供に叫んだ。興味あるかどうか知らないが、国際宇宙ステーションが飛んでいる。
　今度、上京している三男が結婚するが、三男が子供の頃、夕方の空を見上げて一緒に人工衛星を探していたのを思い出した。
　あの頃の記憶では人工衛星の軌跡はかなり暗くゆっくりだった。しかし、今回のISSはすごく明るく、かなりのスピードだ。後で調べたら、地上、350～400キロだ。じゃ、近いときは秒速7.8kmとか8kmだな。
　約90分で地球を周回する。じゃ一日16回だな。それからISSの歴史を調べて、何故あの角度、つまり、ロシアのバイコヌールからも近い角度を選んだとのこと。当初、アメリカだけの計画だったら、赤道に対しての角度から日本では見ることは出来ない。
　興奮した。子供の頃の宇宙に対しての夢を60歳にして再び呼び起された。子供の頃はジェミニとアポロに対しての所業に一喜一憂した。それと3.11の後にも書いたが、子供の頃知りたかったのが原爆の原理だった。
　翌日、教えて下さったパートさんに、女性乍ら利発な子だねぇ。宇宙に対して興味を持っておられるからと利発とは限らないが、オレに子供の頃の夢を再び見させて下さったことに感謝 !
その日の夕方も見た記憶があるのだが、前日より角度が悪く、真上は通らないし、暗かった。 しかし、あのスピードは九州の方から飛んできて数分後には秋田県に行っちまった。
　今はタブレットにISS関係のアプリを3つ入れているし、ブラウザから、他の人工衛星の見える時間のプログラムも入れている。ISSやイリジウムはGメールなどで接近する10分前に通知が来るように設定している。
　今朝は、すごく冷えたが、5時20分過ぎにイリジウムも見たし、この元素の名前が何故付いているのかも理解している。地上800kmだから、三男が子供の頃 一緒に探していたのと同じくらいゆっくり飛んでいた。
　夕方や夜明け近くにしか見えない。当たり前のこと、太陽光を反射するから見える。
　
◆2013/10/22
ITの産物なんてオタクのオモチャのままでいいんだ !
　
夕方、我が家でびっくりして涙が出そうな事件があった。
あぁ　デジタルオモチャが人間を壊していく !
アップルにせよ、グーグルにせよ、世界のトップ企業がもたらすものは人間性の破壊だ。
夏休み、カミサンのいない日に牛丼店に行って、席に着くなり、客がみなスマホをいじるのを異常だと以前書いた。
１ヶ月前、用事でカミサンと東京へ行き、電車の箱の中で、皆が一様にスマホをいじってる光景を見てとてつもない違和感を感じた。

20年余り前、オレはカメラとパソコンはネクラのオモチャだと飛びついた。
この世の事象はデジタル、オンかオフ、イエスかノー、1か0、全て論理だと思っている。
身体の機能も、例えば脳だって、ニューロンとシナプス、電気信号を神経を通して、体に抹消に伝えていると理解している。

しかし、それでもハイテクのオモチャなんて、ネクラのオタクのオモチャでいいんだ。
何故万人の必需品になるのだ !
SNS、例えばFaceBook、Twitter、Line、オレなんか、話す相手がいないから、そんなもの興味もない。不倫相手でもいれば興味も示すかもしれないが、ま、百田直樹の小説じゃないが、自分のどうでもいい自慢を発信して何になる。
あの日々ニュースを賑わす悍ましい事件は何だ。

オレは確かにオタクだから、備忘録にせよ、日記にせよ、自分が作ったデータベースに放り込んできた。
今じゃデータはクラウド上だ。電気が止まったらオレのデータは取り出すことも出来ない。
機器にエラーが出たら、何故エラーになったか、一応は一生懸命検証する。そして長い時間かけてひとつひとつ潰していく。
デジタルが何かも理解せずして、1日数時間もデジタルに操られるなんて絶対に人間は破壊されていく…
　
◆2013/10/3
遷御の儀
夕方帰宅して、ふと新聞を手に取った。新聞を手にすることは滅多にない。ウチは今は不本意にも毎日新聞だ。新聞というものにとうの昔に興味をなくしているオレに、ましてや毎日新聞 ! いや朝日でないだけでもまだましか。
さて今回のタイトルの「遷御の儀」である。

遷御の儀:森厳な雰囲気　神様の“引っ越し”粛々と
　伊勢神宮（三重県伊勢市）の２０年に１度の式年遷宮は、内宮で２日夜、天照大神のご神体を新しい正殿にうつす「遷御の儀」が行われた。８年かけて続けられてきた一連の祭事のクライマックス。闇に包まれた森厳な雰囲気の中、古式にのっとった儀式は粛々と進み、神様の“引っ越し”は無事に終了した。外宮の遷御は５日夜に行われる。
　午後８時前、内宮の新旧両社殿の前は明かりが全て消された。神職が鶏の鳴き声をまねて「カケコウ」と３度唱える「鶏鳴三声」を合図に、元皇族の黒田清子臨時祭主（４４）や、鷹司尚武大宮司をはじめとする遷宮装束姿の神職百数十人の「渡御御列」が旧社殿から姿を現した。
　列の中央では、神職らが「絹垣」と呼ばれる絹の覆いに囲まれたご神体「八咫鏡（やたのかがみ）」をささげ持つ。たいまつ ( こんな単語は漢字で書け ! )の明かりをたよりに約２０分かけ、ゆっくりと歩を進めた列は、旧正殿の西隣に建てられた新しい正殿の方に消えた。ご神体は新正殿に納められ、遷御の儀は終わった。

これを一字一句間違わずに読める日本人がどのくらい居るのだろう ? この生意気にもオレが選んだ例文からして、お前は右か ? と言われるかも知れない。ふん ! 元々ノンポリのオレが右の筈もないが、今のこの時代では右と思われても仕方ないかも知れない。

魑魅魍魎ども !
亡国の輩であるお前らは、とっくの昔にこの国から、中国に憐みこいて助けを乞えばいい。よくもまあ、この国をここまで…　特に日教組 !!
◆2013/9/19
中秋の名月
　今日がその日だそうな。帰宅してTVを見ていたら、今日が中秋の名月で満月だとのこと。十五夜と満月は必ずしも一致せず、新月から14.75日で満月になるらしい。今日は名月でしかも満月、この次は8年後だとのこと。ふうーん。理解できた。
　外で煙草を咥えて見ていたら、東の空から月が姿を現した。完全に現れた月を見て、未だ、右下がいびつだな、そのままじっと見ていた。8時過ぎに見たが、まだ真円じゃない。もう1時間ぐらいか…　が、月より焼酎のオレはもう眠い。付き合ってるほどロマンチストじゃない。
　子供の頃から理解できないのが、月の自転と公転周期が同じたということ。だから裏側は決して見せない。月の裏側を人間が初めて見たのは、オレが子供の頃、アメリカのアポロ宇宙船だ。ま、理解できないもなにも、奇跡的な事象なのだから受け入れなくてはどうしようもない。オレ如きが何故と疑問を持ったって仕方ない。
　
◆2013/9/11
徒然に
　いつから自分のサイトに見切りをつけたのかも記憶がない。書けと言われれば、いくらでも書けるが、それは社会に対しての痛切な皮肉となり、或は衒学的な行為ととられ、SNSなら忽ち炎上だ。いや自分のつぶやきなど歯牙にもかけられないか。 衒学的…　最近2度もこの言葉を使っている。覚えた言葉を振りかざして…　冗談じゃない。オレは20代で本を読んでこの日本語を知っている。そう、この態度こそ、衒学的 !

　2日連続で帰宅してから草刈をした。昨日も帰宅して、田んぼの畦を刈っていたら、その時の自分の狭い視野にカミサンの姿が入った。手に受話器を持っている。やれやれエンジンを止めるしかない。

　話を聞いて、烈火の如き怒りを覚えた。会社からだった。45、6にもなる男が35、6の男とよくもまあそんなブラックジョーみたいな話を。なんで定年を過ぎたオレにそんなガキの使いみたいなことを、オレにどうして欲しいんだ ?　そんな下らないことでオレに電話するな。再びエンジンをかける気にはなれなかった。

　とうの昔に　そういう連中をみてきて、これがこの国の将来か…　この国に明るい未来はない。たいして頭もよくないオレすら感じる恐怖。

　今、タブレットNexus7にはまっている。春ごろから、夏には新モデルが出る情報を掴んでいた。8/28発売日に電器店に電話して在庫が1台あるということなので押さえてもらった。
　ずっとMicrosoftオンリーだったのでGoogleはド素人だ。ネットで調べては使い方を覚えている最中。そのネットを見るのにスマホではもう目が見えないのだ。

　夏休み、カミサンが仕事で居ない日に、牛丼店に入って吃驚した。入ってくる客が皆といっていいぐらい、席に座るやいなや、スマホをいじるのだ。この店は何度か来ていたので、Wi-Fiが入らないことは知っていた。3Gで通信料払ってまで、欲しい情報があるのか ?　ここにデジタル情報に対してのオレの高慢な態度が窺われるのかな…
　以前NHKがネット依存症をテーマにしていた。

　月曜の早朝、ネットのニュースで佐藤真海さんという方を知った。この時のプレゼンを行った人々が一様に首相をはじめ青白いお化けみたいに見えた。昨日21時のNHKにその佐藤真海さんが登場した。NHKスタジオの照明の中で、なんと屈託のない笑顔でこの元気そうな明るい顔はどこから来るのか…　お化けどころか凄いベッピンさんじゃないか。

　ブラジルでのプレゼンは、つまりブルーバックでしかも照明が悪いのだ。それがあの国の国力。日本は落ちぶれたとはいえ、まだ電気をふんだんに使い、ライティングにも金をかけている。IOCはブラジルの遅々として進まぬ計画に不安を覚え、無難に東京を選んだとみるべきかも。

　佐藤真海さんという方は、障害を抱え、絶望の底から這いあがり、そしてあの演出ではない自然体にして満面の笑顔。スポーツ音痴の自分には何故あれほどの力があるのかどうしても分からない。

　五輪が国威発揚のイベントになるのか分からない。早くもネット上では350兆円の効果とか出ているが、2020年には今より400万人ぐらい人口が減っているのだ。

　小学校5年生の図書室で観音扉を開きカラーテレビで東京五輪を見せられた。70近くなっているオレが再び五輪を見ることが出来るのか?　生きているのか分からない。1964年はビートルズが来日し、首都高ができ、東海道新幹線が走った。

　11/16 福岡ドームにPaul McCartneyがやってくる。\16,500 ! ワンステージ億単位の人だから仕方ないか。Let It Be、Hey Jude、Yesterday、そしてあのアビー ロードのB面に生で触れられるのだ。冥土の土産に見たいと思ったが、抽選ときた。この日は会社の創立30周年で海外旅行。いやいや、オレの三男坊の結婚式で東京に行く。、　まさか息子の結婚式をさておいて、Paul McCartneyもないな。
　
◆2013/6/2
橋下徹

伊集院静の「悩むが花」
週刊文春　6/6号

Q: これまで橋下市長を応援してきましたが、今回の問題発言は…。こういう女性蔑視な考え方をする人だと分かり、とても不快に感じました。(45歳・女)

A: 橋下市長の従軍慰安婦問題に関する一連の発言は確かに誤ったところがある。それは私も同感ですが、あなたがこれまで支持してきた橋下市長と、彼と共に立ち上がった"維新の会"に対してこのことだけで支持をやめるというのはどうなのか、と私は思う。
　或る政党を支持して生きるというのは国民として大切なことです。この政党を支持すれば自分に利が出たり、地域に特別なことがして貰えるという極めて自分勝手な理屈で政党支持をしてきたのが以前の自民党の基盤でした。それが若い人の政治への無関心に繋がり、政治家の堕落を生んだのですから。
　だから政治の形を変えるということは日本に於いて、経済立国の形作りと並んで最大のテーマです。橋下さんという人はその改革をなしうるかもしれないという可能性を持っている人であるのは確かです。だから大勢の人が支持したのです。実際、大阪は府も市も多くの面が変わり、少なくとも以前より良くなった点も多いはずです。それを実現できたのは彼の力です。そのようなことは今までの日本ではできなかったことです。
　政治家も人です。スーパーマンではありません。失敗、失言も当然あります。実はこの若いということが新しいことをするには必要なのです。人を支持するといのは大変難しい面を持っています。ましてや政治家を支持するのは国の行方を決めることにもなります。好きとか嫌いで私たちが仕事ができないのと同じで、忍耐力も必要だと思います。ひとつの失敗で、「もうやめた」が仕事や人生でできないように、簡単に乗り換えては日本から世界に誇れる政治家はいつまでたっても生まれないと思います。
　従軍慰安婦についてはあらためれば済むことです。今回の発言で、鬼の首を取ったように囃し立てるマスコミも私はおかしいと思います。それが私の考えです。あなたも政治家に対する支持、政党への支持についてもう一度考えてみるべきではないでしょうか。



　へぇー、週刊文春も最近は鬼の首取ったような書き方してるのに、よくこのような記事を載せたなあと感心しました。橋下さんにはかつて馬鹿新潮、馬鹿文春と罵倒されたから、最近は橋下さんに対する攻撃がきついのかなと。
　
◆2013/5/23
クイズ番組 ?
　連休の頃から百姓仕事にびっしり縛られている。この前の日曜日は部落の溝堀作業ということで、先週は帰宅しては夕方1時間半、水路の草を刈ったり土砂を揚げたり、4日間みっちり作業した。それからは田んぼの周りを鍬で打ったり、今日は自分の田圃への水路の草や土砂を揚げた。毎朝3時過ぎには起きているし、最近は暑くなったからちょっときつい。
　18時半頃戻って焼酎飲み乍ら、TVを見る。頭の体操とかで絵文字を読ませる。オレにはさっぱり分からん。ゲストにケンブリッジ出ていて分からないんですかと畳みかけている。しまいには知能指数100の問題とか出てくる。オレにはさっぱり分からん。これ、応用とか頭の機転とか…　そういう… 何だか分からんオレガ馬鹿なのか ?　単なる屁理屈じゃないのか ?　というか、こんな番組が19時台に成り立っているのもよく分からん。当然10分も経たないうちに消した。あのような番組初めて見た。ついていけないオレガやはり馬鹿なのか…
◆2013/5/17
配布用確定一覧作成のエラーレコード抽出シートで
検索すべきデータが無いのに検索ボタンを押して、
Sub 検索を行う()プログラムの
Worksheets(sh).Select
が黄色表示されてエラーとなって止まってしまう。
まったく どしろーと は考えられない行為をしてしまう。
やれやれあんな想定外の行為にもエラー回避をつくらなくちゃならない。

Sub 検索を行う()
' 2010 7/3 T.N.
'「エラーレコード抽出」シートのV列のあるセルをクリックして
' マクロを実行すると、その前のU列で「確定一覧」のシート名を拾い
' 変数 sh に代入し、そのシートを開いて検索する。
' Excel VBAプログラミング288ページ参照。
' 但し、他のBookを開きシート名を代入してシートを開いての検索だから全くの別物。


Dim key As String
Dim 検索セル As Range
Dim sh As String

key = ActiveCell.Value
sh = ActiveCell.Offset(0, -1).Value

'On Error Resume Next
'Windows("確定一覧・メインパネル.XLS").Activate
''Application.WindowState = xlMaximized 'この式だとウィンドウが落ちてしまう
'ActiveWindow.WindowState = xlMinimized
'2012/3/5 上の3行の式だと「メインパネル」が開いていないとき
'「確定一覧」が最小化してしまい、横に並ばない。
'「メインパネル」が開いていればOK

If sh = "" Then '2013/5/17
MsgBox ("データは未だ登録されていません。")
Else

チェックメインパネル '2012/3/5

確定一覧を開く
Windows("確定一覧.XLS").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=10
Worksheets(sh).Select


Set 検索セル = Cells.Find(What:=key & "*", _
LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlColumns, MatchByte:=True)
If Not 検索セル Is Nothing Then
検索セル.Activate
End If

チェック確定一覧

End If

End Sub

　
◆2013/5/15
Space Oddity Chris Hadfield

世界の雑記帳:宇宙で「スペース・オディティ」演奏、動画がネットで大反響
2013年05月14日　17時43分（最終更新　05月14日　17時43分）
５月１３日、国際宇宙ステーション（ＩＳＳ）から間もなく帰還する初のカナダ人船長、クリス・ハドフィールド氏がＩＳＳ内で制作したミュージックビデオが、インターネットで大きな反響を呼んでいる。提供写真（２０１３年　ロイター）
　［ケープカナベラル（米フロリダ州）　１３日　ロイター］　国際宇宙ステーション（ＩＳＳ）から間もなく帰還する初のカナダ人船長、クリス・ハドフィールド氏がＩＳＳ内で制作したミュージックビデオが、インターネットで大きな反響を呼んでいる。
　ハドフィールド飛行士は同ビデオの中で、英ロック歌手デヴィッド・ボウイの名曲「スペース・オディティ」（１９６９年）の歌詞をアレンジし、自らアコースティックギターを弾きながら歌っている。ハッチ内を浮かぶギターやパソコン、ＩＳＳから眺める地球などの映像も映し出されている。同ビデオはボウイの支持を得ているという。
　動画投稿サイト「ユーチューブ」で１２日に公開された同ビデオは、１３日午後の時点で１５０万回以上視聴されており、ツイッターなどソーシャルメディアでは宇宙で撮影された初のミュージックビデオと話題になっている。
　ハドフィールド飛行士は、米テキサス州ヒューストンに拠点を置く宇宙飛行士のロックバンド「Max Q」でリードボーカルとベースギターを担当している。
◆2013/5/5
　連休も今日で終わり。田んぼを起こしたり、ひたすら草刈りをしたり、家の前の木を１年前から自分や長男が切って乾かしていたのを田んぼに運び込み燃やしたり、本の虫になったりと…
　先程、焼酎を飲み乍ら、TVを見ていて、ふと腕時計を見たら 4:44 やれやれ　死死死 かよ。
◆2013/4/21
紙魚がこれから見たいと思う映画

プラチナデータ
　　東野圭吾

モンスター
　　百田直樹

永遠の０
　　百田直樹
　　この映画は特に見たい

       　
◆2013/4/11
天の川、夏の大三角形
　今朝３時頃起きて外で煙草を吸いながら夜空を見上げた。あれ ? 雲かな ? いや天の川じゃないのか ? 天の川と思しき帯を南に辿ると、えっ　蠍座じゃん。頭から尻尾までくっきり。あれはアンタレスだ。東に目を向けると、あれ、白鳥座じゃん。あれ、夏の大三角形じゃん。へぇー　この時間だと７月の夜空が見えるんだ。なんか得したような気分になって顔を洗って出社。
　
◆2013/4/3
妻の父逝去
4/1(月)
９時頃妻より電話あり。
急遽会社から○○病院へ
ご遺体を実家へ搬送に付き添う
昼会社へ 帳票類発行
午後長男を連れて再び実家へ

4/2(火)
４時から１４時１５分まで会社
妹には朝 連絡
自分は１７時半に玖珂の公益会館へ
長男は柳井１７時１８分着の三男を迎えて公益会館へ
次男は3/29から大阪へ出張のため帰れず
１９時からお通夜祭
○○氏御挨拶

長男は仕事の用事で熊毛へ
自分が三男を連れて帰宅２１時ごろ

4/3(水)
３時４５分から８時半まで会社
長男、三男と３人で８時４０分公益会館着
親族の写真撮影
１０時から葬儀
○○氏遺族代表御挨拶

１１時には火葬場へ
１３時頃には採骨

公益会館に戻り１０日祭
○○氏御挨拶
１４時過ぎ終了

三男は妻と実家へ 4/4には上京
長男と１５時頃帰宅
　
◆2013/3/31
Wi-Fi中継器
　先週やっと光ファイバがウチの中に入った。これまでのADSLモデムからホームゲートウェイに替わった。最初は無線Lanの親機にエイヤで繋いだらネットには繋がったていたのに、２時間後ぐらいにパソコンを起動したら接続しない。
　やれやれと、ホームゲートウェイにLanケーブルで直結し、付属のCDから設定を行い、やっと繋がった。

　昨日、子供がauは電波が悪い。母さんのなんか、動きもしないと言っている。○○はドコモでさくさく動くと話していた。
　光が入ったって、気休めみたいなもので、無線Lanの電波が強くなるわけではない。先日からネットでWi-Fi中継器を探していた。
　昨日、家電店で実物を見た。今日、MZK-EX300N2を２台購入。まず１台目の設定。並びにネットでファームウエアのアップデートがあることを知っていたので、MZK-EX300N2とパソコンを直結し、アップデートして、２階と１階に設置した。
　１階のカミサンのパソコンでは電波は非常に強いと表示されたが、効果のほどはまだ分からない。
　
◆2013/3/17
核武装
　今朝ここらの地方紙に岸信介時代にすでに核武装が論じられていたことが載っていた。ネットで全国紙を探したがない。
　あの頃は、ソ連、中国、北朝鮮の共産圏に対しての抑止力だ。

　今、必要だと思う。攻撃ではなく抑止力。当たり前。
　その際、原潜を造り、それに搭載するのが一番だと思う。
　
◆2013/3/17
紙魚2
　私の取り憑かれたような活字熱は今も続いている。２０代の頃に戻ったのかも知れない。
　「欧米列強との国力差に目を瞑り、精神力で勝てると戦を挑むのが日本人か? 生きて虜囚の辱めを受けずと戦陣訓で教え込み、勝ち目なしと見るや、自ら命を絶つことを美徳とするのが日本人か ?」
　「そ、それは…」
　渋沢は口籠った。
　「あらゆる戦において、重要なのは兵力だ。兵力とは訓練された兵の存在は勿論だが、それ以上に優れた武器と弾薬を、常に前線に送り続けられる工業力と兵站が必要不可欠だ。アメリカ一国をとっても工業力では足元に及ばない。人口格差も約二倍の開きがある。なのに、日本は戦争初期の勝ち戦に嬉々として、やみくもに戦線を拡大した。兵力は分散され、補給源は伸びる。当然、物資も先細る。それで勝てると思う方がどうかしている。ましてや、虜囚としての辱めを受けず。捕虜になるくらいなら、死を選べだと?　馬鹿げている。それじゃ兵が枯渇するだけじゃないか。教えてやる。欧米の軍隊では、勝ち目無き時は死を選ばず、捕虜になれと教えるんだ。捕虜になったら脱走を試み、後方攪乱に努めよと教えるんだ。それが合理的考えというものだ。戦略もない、戦術もない、合理性もない。そんな日本の軍隊が戦争をやっても勝てるわけがない」

　今日の昼から読み始めた、楡周平の「虚空の空」上巻の中の一節。

　さて先週の日曜日から木曜日まで、百田直樹の「モンスター」を二回読んだ。立て続けに二回も読んだのは人生初めてである。女性の美に対する狂おしいまでの執着。でもここでは感想は書かない。美人は性格もよく、そうでないものは性格も陰湿 ?

　この本の後、若い頃読んだ、サマセット・モームの「月と六ペンス」を読みたくなって、古い家の書棚を探したら、文庫本にしても字が小さ過ぎる。モームの「人間の絆」第一巻を開いたが、これも字が小っちゃくて今の自分には読めない。今日、近くの書店で新潮文庫を探したら、外国の文学なんて一冊もない。売れないんだからしょーがないか。

　続いて百田直樹の「夢を売る男」を読んだ。書下ろし最新版である。
　ふん、小説なんて読むのは希少種、いや絶滅危惧種か…　今、情報は洪水の如く溢れている。成程若い者が小説なんて読むわけないわな。いや小説に限らず、活字を読まないだろう。「字」だけの媒体を面白くもないのに見るわけないのだ。
　ここで言ってやろう。日本語も喋れない、日本語も読めない、日本語も書けない連中…　休み時間にはそれぞれが携帯に向かって何やらピコピコ…　初めは好きな人にメールでも打ってるのかと思っていた。若者の目は輝いていない。皆死んでいる。ま、それぞれの趣味だから勝手だが馬鹿か !

　ブログは己の自己顕示欲の発露の場所か…　成程。
　自分は二十年近く前にホームページなんてのを立ち上げた。恐らく町内でも数番目以内に入るだろう。いや最初かも知れない。
　でも今や、自分の更新頻度からも分かるように、たいして興味がない。カウント数からして、こんな意味もない日記をupしていることに、そして自分のこと書いたって他人は興味がないことにとっくに気付いている。昔はこんなことも出来るんだぞと得意げに書いたのだろう…　そして内容もタイトルの「トホホ」から外れて、まるで衒学趣味みたいになってきた。この日記にしてもそうか。

　ということで暫く書かない。書くとしたら、次は恐ろしいことに自分よりずっと若い他人に対しての誹謗になるかも知れない。

　もう遅いのだ。3.11のとき、いや翌日の原発事故を受けて「この国は終わった」と書いたが、この国を動かしている人達からしても、恐ろしい結末のいくつかを口には出来ないのだ。

　
◆2013/3/10
紙魚

　ここ1か月の間、私は何かから逃れるように本の虫となった。デビュー作からファンだった楡周平の書を7冊立て続けに読み、おそらく氏の書は8割は読んだと思う。あとの2割はネット購買ぐらいしか思いつかない。
　楡周平の次に読んだのが、百田直樹の「永遠のゼロ」。この本は数か月前TVで知った。読み進んでいくうち、タイトルのゼロはゼロ戦かなとは思ったが、読み終わってもタイトル名の意味は私には分からない。
　私は、戦後8年たって生まれたので戦争は知らない。今はいない親父からも戦争の話は詳しくは聞かされなかった。親父は昭和14年満州でロシア兵の弾を背後から受け(心臓から僅か)、内地に戻った。そのままあそこに居れば自分は居ない。ノモンハン事件である。玉砕である。
　しかし、軍はこれを隠し、昭和16年に太平洋戦争に突入する。
　親父は自分に言っていたが、ノモンハンで木端にされたのに、それをアメリカを相手に戦争をするなんて馬鹿なことを…　結果、日本は国土の殆どを無くしたとよく自分に話していた。また、戦争の話かいと、自分は何度も聞かされたよとうんざりし乍ら聞いていた。
　日本は何故戦争に踏み切ったのか、今やっと分かった気がする。ガダルカナルで決定的な敗北を受けながらも、大本営は真実を伝えず、新聞はそれをそのままに垂れ流し、国民に 耐乏を強いた。「永遠のゼロ」の最初のテーマ、特攻は殉教的なテロリズムか ? それも読み進むにつれ、現在のイスラム強硬派のテロリズムとは違うと思った。
　私は県内にある回天基地に行ったことはないし、鹿児島県知覧にも行ったことはない。いや、数キロ先にも回天の基地はあった。よく耳朶に触れる特攻隊員の遺書。TVなんかでも時々目にするが、あの達筆な…　私は滂沱と涙し乍らそんなの読みたくないから、基地には行ったことがない。命を賭してお国のために散華出来るのか ?!　…　そのひとつの答えがこの本にはあった。
　戦争に負け、マスコミは手のひら返して、民主主義万歳を唱えた。特攻で散華した残された家族は戦前、英雄扱いされたものの、戦後は戦争犯罪人の誹りを受けた。
　あの戦争は軍部の起こしたものだが、戦争を煽ったマスコミは、何故戦後解体されなかったのだ ?
　陸軍も海軍も今の官僚と変わらなかった。手柄、保身…　多くの兵は捨て駒に過ぎなかった。ゼロ戦という当時世界最高の戦闘機は、中に乗るパイロットが生身の人間ということを考えずに設計された ?

　この一冊で百田直樹のファンとなり、次は「海賊と呼ばれた男」上・下を読んだ。出光佐三の物語だが、これを読んでいることをつい仕事場で話したら、出光佐三についての本に感動するなんてまるで馬鹿かとでもいう誹謗があった。下 巻を読み始めていた自分はちょっとシュンとなったが、昨日土曜日、午前中は今年初めて田んぼを起こし、午後から続きを読み、夕方には読み終えた。

　今日は午前中はまた田んぼを起こし、午後からこれまた百田直樹の「モンスター」を読み始めている。
　因みに、「永遠のゼロ」も「モンスター」も今年映画となって登場するらしい。
　若しもあの戦争で日本が勝っていたら、今頃日本はどうなっていたんだろう ? 今も軍備に予算の殆どをつぎ込み世界から孤立し言論統制をしき、北朝鮮かい ?
◆2013/2/25
　会社で自分の引継ぎを少しでもやろうとして、挫折…　疲れて帰宅。
　いつものように風呂に入り、焼酎飲んで、もういいや。寝るか…　TVを付ける。デフォルトはNHK。面白くないので、チャンネルを変える。
　おっ ! 可愛いお姉ちゃんが拳銃打って、次は本当に狙うわ ! かっこいい。犯人は人質離して拳銃を捨てた…　はん　どうでもいいね。TV消して寝よう。
◆2013/2/18

    　

　先週の日曜日だったかな…　もう寒くて、ウチに居ても何もする気はしないし、あのファイルを書き換えてやろうと思ってもデータは持って帰っていないし、ちょっと会社に行くか…
　自動車部門の翌日の出荷数は私が作っているが、それに連動して、仕上げのパートさんの終了時間も私が出している。出荷数が出来れば瞬時に出来るが、翌日誰かが休みだと、取り消し線で消したり、午後休みだと名前の傍に( 午前　とか入れていた。実質人数を計算して打ち込めば一応の終了時間は出るが、それすらも毎日書き込むのが面倒くさい。
　午前休みを1、午後休みを2、一日休みを3と打ち込み、定数から合計を引き算させる。さらに、L13:L113まで休みの1,2,3に応じて色を付けさせることにした。
　自分の日々の煩わしさを軽減させるだけで他の人には迷惑もかけないし、恩恵も与えないが、兎に角自分の煩わしい作業を少しでも省く。面倒臭いことはやってられない。
◆2013/2/10
インターネット
　元々、マイクロソフトはインターネットを重視していなかった。
　マイクロソフト社(MS)が米連邦地裁から、インターネット閲覧ソフト(ブラウザ)と基本ソフト(OS)の抱き合わせ販売を来年5月末まで禁止する仮決定を下したことは、ブラウザを統合した次世代OS「ウインドウズ98」を来夏行こう発売予定だった同社が、大きな戦略転換を迫られることを意味する。
　同社のOS「ウィンドウズ」は、これまでパソコン向けで8割を超えるシェアを確保しているが、ブラウザ分野はネットスケープ･コミュニケーションズ社のほぼ独占状態。このためネットスケープからシェアを奪う目的でブラウザを無料配布し、メーカーにもOSに付属して販売するよう求めていた。
　決定後も「強制しなければ問題はないはず」とマイクロソフト社は主張、また、自社のブラウザ「インターネットエクスプローラ」(IE)は「OSと一体である」との姿勢を崩していない。
　しかし、ユーザーの間では「マイクロソフトがいうように一体と考えるには無理がある」との見方があり、この疑問は日に日に強まっている。
1997/12/13　私の自作ソフト「eTexte」から

遠隔操作犯罪
　今日、ネットの新聞を見たら、遠隔操作犯罪の容疑者が逮捕された。喜ばしいことである。写真を見ると「オタク」顔である。

以前の記事
---警察庁が通知した時代遅れのマニュアルが誤認逮捕を招いたのではないか。
「現在、都道府県警察が検証中のため、回答は控えさせていただく」
---４人の「被害者」には補償をするのか。
「刑事補償法等各法令に基づいて、検察官または裁判所の判断で、保証がなされうるものと承知している」

　以上、遠隔操作犯罪の犠牲となり誤認逮捕に関する雑誌の一部を切り取った。
　この木で鼻をくくったような警察の態度 !

　そして誤認逮捕された、ある大学生は周囲の「大学の名を汚された。就活に迷惑がかかる」などと批判され、苦悩の末退学した。

　こんなことが許されるのか ! 前にも書いたが、16年前の小説(楡周平「Cの福音」)に海外のプロバイダを経由し、メールを送る、いわゆる「プロキシをかます」といったことが書かれている。サイバー犯罪に関わる捜査陣は、こんな悪の教典も読んでいないのか !!

　以前は容疑者の使った遠隔操作ソフトの名を伏せたが「Tor」である。米海軍が作成した。

IT産業
　インターネットね…
　インターネットを含めてIT産業というのは頭のいい奴だけが儲けて、国には雇用を生み出さない。アップルにしたって製品開発拠点はアメリカだが、工場は中国である。国富めど国民は貧しいまま。格差の増幅。

インターネット選挙
　日曜日は私の好きなTV番組がある。その中でも話題になっていたが、急ぐべきではないと思う。確かに選挙に行かない若者にスマホでポンと押せば済むかもしれないが。
　若し、1票1万円の依頼が来たら…　勿論私にはそんな能力はないが、ある候補に1000表でも投票するようなプログラムを作る者が出るかも知れない。日本全国から、あるいは外国経由でシステムを突破する。
　ましてや、サイバー攻撃を得意とするお隣さんみたいな国は自国に有利な議員に投票するかも知れない。

最新丸見え★裏DVD★
　私の本来のメールアドレスは非公開にしているし、本来のアドレスでは届かないようにしている。しかし、宛先が　最新丸見え★裏DVD★　で日に何通もそれも毎日届いたんでは叶わない。条件でブロックするようにはしているが、何で宛先が　最新丸見え★裏DVD★　で届いてしまうんだ ?
　
◆2013/1/30
　帰宅後、犬を連れて歩き、焼酎飲んで風呂入って、19時過ぎにはベッドに横になり、TVをつけた。どのチャンネルも面白くない。芸能人のクイズ番組みたいなのがあって、ちらっとみたら馬鹿馬鹿しくて見る気もしないので消した。
　あのね、いつだったか…、東国原なんてのも馬鹿だよ。こいつ過去に県知事までやってこんなことも知らないのかと呆れ返った。そして今じゃ維新の会の顔かよ…
　大臣なんてのも大変だねえ。ま、私には遥か遥か雲の上の存在でどうでもいいけど、東大法学部、オックスフォード、ハーバードなんてのを出た大臣自身より遥かに頭のいい官僚を相手にするんだものねえ。
　
◆2013/1/13
　先程「スマホ18の約束」を載せました。今朝、TBSの番組を見ていて自分も感動しました。私のようなパソコンオタクは、今や新聞は読まないで、ニュースはもっぱらネットで読みます。
　気になったニュースや情報は、1か月400円のクラウドサービスに放り込んでいます。スマホでも読めますから。放り込んだだけで読んだ気になっていないように気を付けてはいます。
　さて昨日データベースに放り込んだニュースにこんなのがありました。

中国　自衛隊機を「高度に警戒」
2013.1.11 22:16
　中国国防省は１１日、中国軍の戦闘機などが東シナ海にある日本の防空識別圏に入ったことに関連して「最近、自衛隊の飛行機が中国に対する偵察活動を強化し、活動範囲も拡大している」として、中国軍が「高度に警戒している」とけん制した。
　同省によると、１０日、浙江省温州の東の海上で「通常の飛行」をしていた中国軍の輸送機が航空自衛隊のＦ１５戦闘機２機に至近距離で追跡された。国防省は日本側が同じ空域に別の偵察機も飛ばしたと指摘し、中国軍が戦闘機「殲１０」２機を発進して監視を行ったとしている。
　国防省は「断固として国家の空の安全を守り、正当な権利を防衛する」と強調、日本に対して「国際法規を尊重して、安全を脅かさないよう」求めた。

　あの国は何をしても自国が正論を発信していると疑わないんですねぇ。というかゴリ押し。
◆2013/1/13
　Windowsが更新される度にパソコン大好きな私としては発売日にインストールしてきました。昨年Windows8をインストールし、これは巷間騒がれるほどのモノではなくタブレットパソコンに特化している作りになっていると感じました。スタートメニューはないし、完全バックアップも作れないじゃないかと。
　完全バックアップは発売されて数週間目に雑誌で知ったのですが、コントロールパネルの「Windows7のファイルの回復」で作れます。Win8なのに名前がおかしいですね。
　今日、CドライブのWin7、DドライブのWin8のシステムイメージを作りました。勿論、アップデートがないか調べ、セキュリティーソフトも走らせた後に行っています。
　試しに、修復ディスクからシステムイメージを回復させました。CもDも全てフォーマットされた上で、元の状態に戻します。7の時よりもちょっと難しかったけど、修復される間は勝手にやってろとTVをみていました。
　OK。今朝の状態に無事戻りました。
◆2013/1/13

スッキリ!!で紹介された「スマホ18の約束」 母から息子へのメッセージ

朝の情報番組「スッキリ!!」で紹介された「スマホ18の約束」を知っていますか？

東京新聞に掲載された記事を「スッキリ!!」内で加藤浩次さんが紹介したものです。
これはアメリカで実際にあったエピソードです。

2012年のクリスマスにマサチューセッツ州に住んでいるジャネル・ホフマンさんは、息子のグレゴリーくんにiPhoneをクリスマスプレゼントとして贈りました。

欲しがっていたiPhoneをただ渡すだけでは、普通のプレゼントになってしまいますが、ホフマンさんはあるメッセージを添えてプレゼントしています。

そのメッセージの内容こそ「スマホ18の約束」です。


グレゴリーくんへのメリークリスマスのメッセージと共に、
18個の約束事が書かれています。

こちらがその18個の内容です。
内容を読めば分かりますが、かなりガチガチの約束事になっていると
感じてしまうと思います。

でも、一方で親としての立場からしてみると、
子供に尊重してもらいたいことなのだと思います。

iPhoneに代表されるスマートフォンは、もはや単なる電話ではなく、
さまざまな情報や人にアクセスすることができるコミュニケーションツールです。

使い方次第で取り返しのつかない事態を引き起こすこともありますし、
思春期の子供にとって人との関わりに対する認識を変えることもあります。

普通であればもう少し子供が大きくなるまでは、iPhoneは与えないという選択を
するかもしれませんが、ホフマンさんはグレゴリーくんの意思を尊重し、
そして信頼してこのメッセージを添えてプレゼントしているのだと思います。

子を思う親としての気持ちが詰まっているメッセージです。

　

1.　これは私の携帯です。
　　私が購入し支払います。
　　あなたに貸しているのです。
　　私って優しいでしょ。

2.　パスワードは私が常に把握します。

3.　これは「電話」です。
　　鳴ったら出ること
　　「もしもし　こんにちわ」と礼儀正しく言いなさい。
　　もし画面に“ママ”や“パパ”と出たら無視することなく必ず出なさい。

4.　学校がある日は夜の7時30分から毎週末は夜9時に親のどちらか
　　に電話を預けなさい。
　　友達の親が直接出る固定電話に電話できないような相手なら
　　そんな友達とは電話もメールもしてはいけません。

5.　携帯電話は学校に持っていってはいけません。
　　メールのやり取りをする子とは直接会話をしなさい。
　　会話をすることは人生のスキルです。

6.　携帯電話がトイレや床に落ちたり
　　破損した場合の修理費用はあなたの責任です。
　　芝刈り・ベビーシッター・お誕生日のお祝いのお金などで
　　あなたに払ってもらいます。
　　こういうことは起こります。
　　準備しておいたほうがいいわよ。

7.　テクノロジーをほかの人に嘘をついたり
　　馬鹿にしたりするために使わないこと。
　　ほかの人を傷つけるような会話には関わらないこと。

8.　面と向かって言えないようなことは
　　携帯電話を通してメールやテキストメールを送らないこと。

9.　友達の親がいる前で言えないようなことは
　　携帯電話を通してメールやテキストメールを送らないこと。

10. ポルノは禁止。
　　私とオープンに共有できる情報をウェブで検索してください。
　　何か質問したいことがあれば人に尋ねなさい。
　　なるべく私かパパに聞いてね。

11. 公の場では電源を切るかマナーモードに設定すること。
　　特にレストランや映画館。
　　ほかの人と話している時は気を使ってください。
　　あなたは失礼なことをしない子です。
　　iPhoneを持っても変わらないでください。

12. ほかの人にあなたの大事な部分の写真やほかの人の大事な部分
　　の写真を送ったり受け取ったりしないこと。
　　笑わないで。
　　あなたがいくら賢くても
　　そういうことをしたくなる時期がやってきます。
　　悪い考えです。
　　インターネットはあなたよりも非常に巨大で強力なのです。
　　これほどの規模を消すのは難しいし
　　風評を消すのも難しいのよ。

13. 膨大な数の写真やビデオを撮らないこと。
　　すべてを記録する必要はありません。
　　自分自身の体験を大切にそうした体験は永遠に残るものよ。

14. 時々家に携帯を置いていきなさい。
　　そしてその選択に自信を持ちなさい。
　　携帯電話は生き物でもないしあなたの一部でもありません。
　　携帯電話なしでも暮らしていけることを覚えてください。
　　取り残されることを恐れるのではなく流行に流されない。
　　器の大きい人間になりなさい。

15. 新しい音楽やクラシックなど色んな曲をダウンロードしなさい。
　　あなたの仲間が聴いている音楽だけでなく様々な曲を聴きなさい。
　　あなたの世代は史上もっとも音楽にアクセスできる世代なのよ
　　この利点を活用して視野を広げなさい

16. ワードゲームやパズル知能ゲームで時々遊びなさい。

17. 上を向いて歩きなさい。
　　あなたの周囲の世界に目を向けなさい
　　窓を眺めたり
　　鳥のさえずりをきいたり
　　散歩したり
　　知らない人と会話してみてください。
　　グーグルで検索せずに思考しなさい。

18. あなたは約束を守れないかもしれません。
　　その時私はあなたの携帯電話を没収します。
　　その時は話し合いをしましょう。
　　もう一度初めからやり直します。
　　あなたと私は常に学んでいるのです。
　　私とあなたはチームメイトなのです。
　　一緒に答えを出していきましょう。
　


　

アメリカでは日本以上にソーシャルメディアやデバイスの普及が進んでいます。
新しいサービスもどんどん生まれています。

当然子供もそれらに興味を持ち、触れる機会もあります。
まったく制約がない状態で子供に対してそういった環境を与えることについて
親としてしっかりと考えられているということですね。

親としての捉え方、子供としての捉え方で
印象は異なると思いますが、考えさせられる内容だと思いました。

　
　
◆2013/1/13

    　

Windows 8 ツールバーにアプリメニューを登録

Windows8では、スタートボタンが廃止されたため、デスクトップスタイルからアプリを起動するのがめんどう。もし7からアップグレードした8なら、"プログラム"ツールバーをタスクバーに追加しておけば、スタートボタンのように起動できる。

① デスクトップスタイルを表示し、タスクバーの右クリックメニューから"新規ツールバー"を選ぶ
② スタートメニューの内容となる
c:\programdata\microsoft\Windows\Start Menu\Programs
を選ぶ
③ ツールバーからプログラムの一覧が表示されるので、デスクトップからスタートボタンのように使用できる。

週刊アスキー 2013/18-15合併号 p.117
◆2013/1/13

    　

　以前、私は焼酎飲んだら天才プログラマーなどと書いた。しかし、何時だったか昼間アイデアが浮かんで、その後焼酎飲んだら夕方にはアイデアを忘れてしまっていた。
　先日のプログラムにしたってアイデア通りに愚直に文を書いただけである。昨日の午後、この棒読みみたいな文をもっと簡潔に書けないかと挑戦したが上手くいかなかった。
　ま　いいか。プロならいざ知らず、私の場合はアイデア通りに動けばいい。現在のハードはCPUもメモリもふんだんに積んでいる。速度に影響はない。
　だが、欲が湧いて再び挑戦。ネットで"Excel VBA Cellsで複数のセルを選択"で、検索をかけた中のひとつに Union　ってのがあった。試しに書いてみたらOK。じゃ全文を書き直すか…
◆2013/1/11

       　

　私が毎日仕事で使っている「出荷シミュレーション」というアプリ。
１週間先まで生産を予測し、日々、何台トラックが必要か ? いつ、パレットを取り寄せたらよいかを予測する。
「繰り越しボタン」で自動的に翌日に変わる。いちいち日付なんか打ち込まない。
　木曜日の夕方、土日に色を付けてやろうかと思った。さらに祝日にも色を付けたい。
これは１年ぐらい前に「カレンダー」を作っているのでなんとかなるだろう。
　金曜日の朝、参考書は１冊も持って行かなかった。これまで作ったアプリや、ネットでどうにかなるだろう。
　金曜日の朝６時半頃から書き始めた。テスト。OK。
　昼休みにネットで祝日を調べる。そして祝日を検索させ、赤文字で設定するコードを書く。朝からの延べ１時間弱。

　基本的に当社は祝日は出勤である。ところが出荷は出来ないし、パレットを予定していたら大変なことになる。しかし、直近まで私は祝日に気づかないことが多い。
　日付を繰り越すと、日曜日が青、月曜日が赤になってしまう。だから日付とデータを繰り越した後で、日付を左から右へ、シリアル値を調べ、土は青、日は赤、その他は黒で表示させている。次にまた左から右に祝日に値する日を赤にしている。だから土が祝日だと、青が赤に変わる。
◆2013/1/4
All At Once - Whitney Houston
　
◆2013/1/3
ホイットニー・ヒューストン / ネバー・ギブ・アップ (未発表曲)
Whitney Houston / Never Give Up
　
◆2013/1/1
　新年お目出度う御座います。今年も宜しくお願い致します。
    

先頭に戻る　　　　過去の日記