第2産業道路全線開通！

一昨日、ついに「第2産業道路」が全線開通しました。

その昔、数十年前から少しずつ道が出来つつありました、職場に通勤するのに裏道をよく使いこの道を縫うようにあっちに行ったりこっちに来たりしながら通ったものです。

最後にわが町だけが開通していなかったのですがそれがついに抜けたのです、この道だけで職場の近くまで行けるのでとても快適です。

ロッド・スチュワートのDVDが届いた。

しばらく前に注文しておいた「ロッド・スチュワート」のDVDが今朝届きました、そして2タイトルをさっきすべて観終えました。

すばらしい、ただただすばらしい、昔からもちろん名前は知っていたしLPも持っています、しかし当時「レッド・ツェッペリン」しか聴く耳がなかったので良さが分からなかったのです。

きっかけは「ジェフ・ベック」を聞き始め、「ジェフ・ベック・グループ」のCDを聴いてこのグループの凄さを知ってからでそこで改めて「ロッド・スチュワート」を超えるロック・ボーカリストはいないと思ってからです、今では珍しくもないマイク・スタンドを振り回して歌うパフォーマンスは彼が最初ではないでしょうか？

とにかくかっこいいのです、すでに還暦を越えた人間のパフォーマンスにはとても見えません、ゲストに「ロン・ウッド」が出ていましたがこれに「ジェフ・ベック」がいればほぼ「ジェフ・ベック・グループ」の出来上がりです。

聞くところによると昨年だか一昨年だかに本当に「ジェフ・ベック・グループ」を再結成するに当たってセッションを実際に始めたんだとか？でも「ジェフ・ベック」の生来の気まぐれな性格から「やーめた」と没になったらしいのです。

再結成すれば凄い話題になります、もしアルバムでも出せば絶対に売れます、少なくても私が買います、それにしてもとても不思議なのは「ジェフ・ベック」のオフィシャルのDVDがひとつも発売されていないのはなぜでしょう？YouTubeにはたくさんの映像がアップロードされているが画質も今ひとつだしモノラル音声なので迫力に欠けるのです。

文字列の比較

文字列を比較する場合「=IF(A1=B1,"一致","不一致")」とした場合下図のように「一致」と判定される。大文字と小文字は同一と見なされるからです。




ではどうすれば差異を判定してもらえるかと言うと「EXACT関数」が役に立ちます。




追加のTIPSとして指定文字列が範囲内に含まれているかを判定する方法として「配列式」が使えます、

{=IF(OR(EXACT(A1:A15,B1)),"ある","ない")}

だがここでひとつ注意、"{}"　の入力方法は Ctrl+Shift を押しながら[Enter]キーで確定しないと入力できません。



マクロではこんな感じ

Sub 文字列比較()
　　Dim nh As Integer
　　With Selection.CurrentRegion

　　For nh = 1 To .Rows.Count
　　　　If StrComp(Cells(nh, .Columns.Count - 1), _
　　　　　　　　Cells(nh, .Columns.Count), vbBinaryCompare) = 0 Then
　　　　　　Cells(nh, .Columns.Count + 1).Value = "一致"　　　　Else
　　　　　　Cells(nh, .Columns.Count + 1).Value = "不一致"　　　　End If
　　Next
　　
　　End With
End Sub

彼岸

今日は彼岸の中日、毎回この日は欠かさず墓参りなんだけど今日は行かなきませんでした、いつも嫁と車で行くのですが車で行くのが面倒なのと毎月の月命日は歩いていくので24日に行くつもりです。

アンケートの景品で図書カードが何枚か貯まっていて前回の墓参りのとき帰りにそれで本を買おうと直前まで思っていたのにレジを済ました後にそれに気づきせっかく持って行ったのに使いはぐったので今回は図書カードで雑誌を買おうと思っています。

ところで24日ってまだ彼岸のうちなのかなあ？と思ってさっきウィキ・ペディアで調べたら「彼岸の中日を挟んで前後3日間」らしいのでOKですね、もっとも普段から私は「気持ちが大事」だと思っているので彼岸とかお盆とかを押し付けられるのが大嫌いです、何が何でも「彼岸」と「お盆」にこだわる輩は往々にして自由に時間や予定を組める人なんだろうと思います、サラリーマンはなかなかそうも行かないんです。

キャンペーン

週末はメーカーからの売上目標達成およびキャンペーン上位入賞の打ち上げとかで営業がみんな呑みに行くので会社の鍵を占めてくれるかと社長が聞いてきたが冗談じゃないわけで営業がまだ残務整理で何人か残っている間にとっとと会社を後にしました、やらなければならない仕事もありましたが仕方ないです、女性業務もまだたくさん仕事を残した状態で切り上げざるを得なかったようです、私が鍵を閉めれば済むことですがそこまでして残る義理などありません。

よくこのような打ち上げを営業はやるのですが恩恵に与るのは営業だけで他の部署は朝礼で「皆さんのおかげで達成しました、ありがとうございました。」だけです、まあ、打ち上げに参加したいとは全く思わないのですが別の形で営業以外の部署の人間にも報いるべきだと思っています、今回「HDD-DVDレコーダー」と「カーナビ」を商品としてもらったらしいです、こんなものどうやってみんなに分けようがありません、くじ引きでは余りにも高価すぎる商品、どこかで換金してその金で何かを買って配ればいいと思うのです。

実は20年以上前に居た営業の中には何かの形で報いるべきだとの意見を述べていた人もいました、キャンペーンが終わるたびに「皆さんのおかげ」の大安売りばかり、口で言うだけなら誰だってできることです。

のどが痛い

土曜日からのどが痛くて風邪かなとも思ったのだが痛みの種類がどうも違います、扁桃腺の辺りが痛いのです、医者に行くとすれば今日しかありません、今朝になっても痛みが引かなければと思っていたのだがやはり引かないので今日行ってきました。

扁桃腺ではなくその奥が腫れているとのこと、浮腫だって、扁桃腺が腫れるときは両側なんだけど右側だけなのでおかしいなと思っていました、ウィルスかなあと医者は言っていました、「放っておくとどんどん腫れが進んで酷くなると手術ということもあります、そこまでは行かないと思いますけどねえ。」なんて言って脅かされました、改善すればそれで良し、だめならばまた来てねえと言われました。

とにかくこの痛みが何とかならないものかと我慢できなくて医者に行ったのだが以前掛かったときも同じ女医さんでした、「租借するときに痛いんです」と言うと「えっ、咀嚼ですか」「ええ、飲み込むときに痛むんです。」「ああ、それは咀嚼じゃなくて嚥下ですね。咀嚼というのは噛むというときに使う・・・」「ああ、そうでした。申し訳ありません。」

何もそんな大きな声で言わなくても・・・。

とにかく痛いんだよー。

ダイエット2

10年程前、私の後輩が健康診断で「脂肪肝」を指摘されて以後仕事を終えて帰宅してから4キロほど毎晩毎晩ウォーキングをしたそうでその甲斐あってほどなくきれいに脂肪が落ちたらしいと聞きました。

私も数年前に指摘されたことがあります、もちろん一生懸命歩来ました、結果次回の診断では指摘されませんでした、私は痩せ型なので脂肪肝を指摘されたことがあるというとみんなびっくりするのです。

うちの嫁も「どこの相撲部屋に行くの」と聞きたくなるくらいなので上に書いたような話をしたら「男の人だからできるんだよねえ」なんて言うから「一日暇でいくらでも時間がある女には出来ないのか」と声を荒らげたら「そりゃそうだ」と言うような顔をして黙ってしまいました。

ダイエット

火曜日の朝、階下に降りたら下の娘が寝ていました、自分の座る場所だったので起こしたらしばらくしてなにやら支度しているので「どこか行くのか？」と聞くと「ダイエット」とのこと、「なんだデブだったのか」と言ったらテレ笑い。

翌朝も同様に起こしたら部屋を出たまま静かになってしまいました、どうやら2階の自分の部屋に戻って寝たらしいのです、嫁曰く朝起きられないので嫁に起こしてもらうつもりで下の部屋に寝ていたらしいです。

そして今朝、またも同様に下の部屋で寝ていたので起こすとそのまま2階へ行って寝てしまったらしい。

ダイエット、せめて3日は続けろ、3日坊主が裸足で逃げていきます。

忙殺2

件の月曜、火曜と休んだ輩だがかなりの花粉症なのです、そして一年中口を開けっ放し、いわゆる「口呼吸」ってやつですね、だから非常に風邪を引きやすくこの冬もすでに2回ほど風邪で欠勤していますが前回もやはり月曜日でした。

花粉が舞う時期は鼻が詰まって仕方ないのでいつも口を開けっ放しなのでしょう、本当に辛いのだろう、でもそれじゃ少しでも楽になるために医者に行って処方をしてもらったとかは一度も聞いたことがないのです、それに今回はマスクをしてきましたが実は彼が風邪を引いてマスクをしているのを見たのは初めてのことです。

本人が楽になるために、また回りに迷惑をかけないためにも季節が来る前にそれなりの対処をするべきだと思います、プロなんだから、大人なんだから・・、35歳を過ぎてんだから・・。

忙殺1

月曜日、火曜日と滅茶苦茶忙しかったです、一人欠勤したから・・・、月曜日は極力休まないで欲しい、その週の段取りがまるで崩れてしまうんです。

現場には「ごますり」ともう一人いるのだがそのもう一人が休みました、「ごますり」よりかなりおとなしい人間だしよく気がつく、でも女性に少しだらしないのです、近くを女性社員が通りかかるとよく声をかけたりします、性格は悪くはないが口と手を一緒に動かすものだから間違いもとても多いのです。

ふたりとも月曜日によく休みます、私に言わせれば甘えがあるんだろうなと思うのです、月曜日に帰宅して「いきなり休まれて忙しかった。」という話をしていたら下の娘曰く「休みに遊びすぎなんだよ。」と言っていました、それを聞いて痛く感激してしまいました、私もいつもそう思っているからです。

最近まで一生懸命パートに精を出していたが手抜きをしない子です、プロ意識をちゃんと持っているんだと嬉しくなりました、私は昔から週末や土曜日に少しでも体調が変だなと思ったら余程の事がない限り無理をせずじっとしているかしっかりと寝ることにしています。

今日は「ごますり」がUSO800の関連で一日いない、かと思ったら半端な時間に戻ってきていきなり仕事をやりだしました、困るんだよなあ、一日いないからという前提の元にこっちは段取りを組んでるんだから・・本人は「助かったよ」という声を期待しているのだろうがとんでもないことで迷惑極まりないのです。

半端な時間じゃ何にも出来ないのです、ただ時間を持て余して遊ぶだけです。

ちょいテレーその3

家内が洗濯を始めたのを見計らって階下の最新PCを2階に持ってきました、当然の如く家内にぶつくさ文句を言われました、だいたいこのPCは自分が金を出したのです、洗濯しているときぐらいおとなしく貸したらどうだ。

そんなことよりワンセグが映るかどうかのほうが自分にとっては大事なことです。

セッティングしてプログラムを走らせます、でもどうも映らないのです、結局映ったのはフジテレビだけでほかはだめでした、子供部屋ではMXテレビ以外は全部映りました、こうなると「地デジ対応PC」は選択しないほうが無難ですね。

募集広告を作るんだって

先週、職場にリクルートの連中がやってきてあれこれ写真を撮ったり社員にインタビューをしていました、その週の月曜日の朝礼でそのことは社長が言っていました、まあこれから書くことは当然愚痴になりますが・・、

夕方終業ベルが鳴り「さあ掃除をしなきゃ」といつものように掃除を始めました、いつも隣に座っている女子社員とゴミ袋を持ち歩きながらゴミ箱のごみを回収しています、その日もいつも通りに回収を始めたら社長から女子社員の半数に招集がかかり彼女もそっちへ行ってしまいました。

こんな時間にやるなとは言いません、言わないけど掃除は5分もあれば終わるのだからその5分間待つぐらいの気配りは出来ないのでしょうか？おかげで掃除も半端で仕事机がある場所でやっているものだから多くの社員が仕事を再開することも出来ずなんとも間の抜けた時間をすごすことになってしまいました。

募集広告を出すのにこれほど大げさなことは初めてのことです、よほど儲かったのでしょう、募集広告なんて大手企業でもないのだから通常の平均的な広告で十分だと思います、さぞ大々的にかっこいいものが出来上がるのだろうな。

3年ほど前にある女性社員が突然会社に来なくなって辞めてしまったことがありました、なかなか仕事が覚えられなくてとても悩んでいたようだがけしてだめな子でななかったし本当に一生懸命に覚えようとしていました、そのとき社長室に呼ばれて「彼女がやめたのはお前のせいだ」と言われたことがありました、とんでもない言いがかりです。

そのときに業務内容をマニュアル化しなければだめかなと社長自信が言っていたがその後なんらアクションを起こしていません。

かっこいい美辞麗句を並べた広告に釣られて何人かが応募し、採用されるでしょう、けど受け入れ側の体制が旧態依然なのであまりのギャップに夢破れて恐らく何人もが辞めていくはずです、ことは想像に難くありません、今まで5人入社して4人は辞めています。

今、私は悔いています、件の女性社員を助けてやれなかったこと、そして彼女がやめたことに対して社長にあらぬ疑いをかけられたときなぜそこで大暴れをしなかったのかと・・、数十年会社孝行してきた自負を持っていたのに見事に裏切られたわけだから・・・、時が経ったからといって怒りが鎮まる事もありません、人は齢を重ねると丸くなると言います、事実そう思いますがこのことに関してはむしろ今のほうが怒りは大きいのです。（大暴れはちと大袈裟？）

この年、社内では部下のちょっとしたミスですべて自分だけが責任を負わなければならなかったことが2度ほどありさっき書いたようなことや身内の不幸とがたて続けに起こり今まで生きてきた中で最悪の一年でした、すべて私にはなす術もなかったのです、時が経つのをただじっと待つほかなかったのです、あの年はすべてをぶん投げて誰も知らないところに逃げ出したい気持ちがずっと続いていました。

表計算大会「マクロ1」の模範回答

先日のマクロ問題の模範解答というかひとつの方法としてエクセル標準機能の「オートフィルター」を使った回答が今月号に載っていました。

Sub　マクロQ1()
　　Selection.AutoFilter
　　Selection.AutoFilter field:=4, Criteria1:="<>"
　　ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=TrueEnd Sub

なるほどねえ、こっちのほうが早い、さすがプロですね、単に記録機能を使っただけという至極簡単なもので単純明快。

素人は人が作ったもののあらを探すのは比較的よくやります、ということで作ったのが下、上の状態ではカーソルが表の中の空白セル以外のどこかにないと動かないのです、それから印刷が終わったらフィルターを解除することにしました。

Sub マクロQ1()
　　With Range(Cells(2, 1), Cells(18, 6))　　　'フィルターの範囲を指定
　　　　.AutoFilter field:=4, Criteria1:="<>"　'単価欄を指定
　　　　.PrintOut copies:=1, collate:=True
　　　　.AutoFilter　　　　　　　　　　　　　　'フィルター解除
　　End With
End Sub

とかく少しマクロが書けるようになると「らしい」ものを書こうとするのが人情、策を弄すると言うか策に溺れると言うか・・、なるべく標準機能を使わないで結果を出そうとあれこれやってしまいます、まあそれが大いなる楽しみなのですが。

ちょいテレーその2

子供部屋のPCでは雨戸を開けた状態で何とか受信に成功、まあこんなものかなあという感じ、モニターの品質が余りよくないのと汚いのとでくっきりという感じはしあせんでした、子供部屋の方角は開けていて家がないので受信できたのだと思います。

こうなると性能の良いモニターで見てみたいと思うのが人情、本当はTFT液晶モニターよりブラウン管モニターのほうがはるかに綺麗に映るはずなのでぜひ今使っているPCで確認したいのですがそれは無理、でも家内が使っているやつのTFTはかなりの性能なので今のこの部屋で使えるかを確認しようとさっき家内にPCを貸せと言ったら「夕方買い物に行くまでだめ」だと言われました。

早く買い物に行きなさい！朝から座りっぱなしだとそのまま腐るかも。

ちょいテレーその１

前の記事に書いた「ちょいテレ」、観られません、使えません。

電波状態がかなり悪いんだろうと思ってあちこち窓を開けてもだめ、うんともすんとも言いません、要するにPC余りに古すぎるんだ、と思って昨年暮れに買ったPCに嫁がいない間にセットアップしてみたがだめでした、それでも私のPCでは表示がグレーになっていたところがちゃんと表示されています。

つまり、私のPCで観られないのは古いためで2階なので電波は届いていると思うのです、新しいPCで観られないのはこれは電波の状態が悪いだけ、でもなあそれほど重くないPCとは言え決して軽くもないのでわざわざ2階に持ってくる気もしないし、それで観る事ができたからそのまま置いておけるわけじゃないし。

でも実際に2階で観る事ができるかどうかだけでも確認したいのです、というのは近い将来今使っているPCを買い換えるにあたって「地デジ」チューナー搭載機を買うかもしれないからです、でも通常の「地デジ」電波より「ワンセグ」電波のほうが届きやすいと言います、だから「ワンセグ」を観る事が出来たからといって通常の「地デジ」が観られるという保障にはならないのですが・・・。

ひとつ2階で観られるかどうか確認する方法がありました、それは子供部屋のPCで試すことです、だがまだ一人そのPCのすぐ近くで寝ている奴がいます、多分午前中いっぱい、あるいは一日中寝ているかもしれないと思いつつこれを書いていたら足音が・・、どうやら起きたようです、しめしめこれで試すことが出来そうだ。乞うご期待！（誰も期待してないって？）

いずれにしても3軒前に新築された3階建てが邪魔だと実に勝手なことを考えています。