「急遽代役」その後

「急遽代役」で「ごますり」が休んだと書きましたが昨日休んだ本人が営業から誤品入荷の代わりの商品のその後を問い合わせを受けていました、これは本人が休んだ日の出来事で誤品は自分が見つけたのですが当然心当たりがないはず、やり取りを聞いていたら何と「ああ、俺がばっくれた日だあ」といけしゃあしゃあと大声で言っていました、4大出ていてもこんな物言いしか出来ない輩なのです。

正直といえば聞こえはいいがつまりはずる休みをするために策を弄していたのが問わず語りに明らかになったわけです、黙ってりゃ公には病欠だったのに・・・頭が足りないというか浅知恵というか浅薄というか・・。

> 具合が悪ければそう言えばいいんだよ。それで休むのはお互い様なんだか
> ら・・・

と書きましたが考えてみたら私ともう一人いる若い方は「ごますり」の代わりはするが「ごますり」は誰の代わりもしていないことに気が付きました。

HD-DVD

東芝が「HD-DVD」事業から撤退というニュースが新聞の一面トップで報道されました、すでに前日のニュースで報道されたいたことですが「えっ？」という感じで随分と見切りが早いなあというのが実感です。

私の記憶では2003年から2004年にかけてpanasonicやsonyが本腰を入れて機器を発売してブレークした感じであっという間に広まった気がします、その2年ぐらい前から「HD－DVD」と「Blu-ray」が一生懸命開発されていたようです。

東芝はその昔PCの世界で1989年に「Dynabook SS001」を発表して世界中にセンセーションを巻き起こしたことがあります、当時パソコンなんてと思っていた私が躊躇なく飛びつくほどの代物だったのです、今があるのは間違いなくこのおかげなのです。

でも昨年10月にsonyのPCを買ったのですがBlu-rayドライブ内臓のものはやたら高かったので選択肢からはずした経緯があります、ライバルが降りたので値段が下がらないのではとちょっと心配、でも下がってもすぐ買うほどの馬鹿ではないのでどうでもいいですがTVに繋ぐHDD-DVDレコーダーは絶対に下げてもらいたいと思います、近い将来地デジタルオンリーになれば買い換えなければならないので困るのです。

仕様じゃなくてこれはバグだよね その２

というわけでお約束のソース公開

Sub　追加読み込み()
　　Dim f_name As Variant
　　Dim ブック, f_path As String
　　Dim データ行 As Long

　　f_path = Range("場所").Value 'ディレクトリ名をSheet2の"場所"から取得
　　ブック = ActiveWorkbook.Name 'ブック名を格納
　　データ行 = Cells(1).CurrentRegion.Rows.Count　'残っているデータ数

　　ActiveSheet.DrawingObjects.Delete 'すべての図形を消す

　　With Application
　　　　.ScreenUpdating = False '画面更新停止
　　　　If Cells(1).Value = "Check" Then
　　　　　　Columns(1).Delete
　　　　End If
　　　　ChDrive "C" 'Cドライブに移動
　　　　ChDir "" & f_path & "" 'ディレクトリを"場所"に移動

　　　　'データを読み込む
　　　　f_name = Application.GetOpenFilename _
　　　　　　　　( _
　　　　　　　　FileFilter:="CSVファイル(*.csv),*.csv" _
　　　　　　　　　　, FilterIndex:=1 _
　　　　　　　　　　, Title:="複数ファイルオープン" _
　　　　　　　　　　, MultiSelect:=True _
　　　　　　　　)

　　If IsArray(f_name) Then
　　　　'データ追加読み込み処理
　　　　For Each g_name In f_name
　　　　　　Workbooks.Open g_name '配列を順に開く
　　　　　　ActiveWorkbook.ActiveSheet.UsedRange.Copy _
　　　　　　Workbooks(ブック).Sheets("Sheet1").Cells(データ行 + 1, 1)
　　　　　　Windows(Dir(g_name)).Close SaveChanges:=False
　　　　　　データ行 = Cells(1).CurrentRegion.Rows.Count 'データを再取得
　　　　Next
　　Else
　　　　Exit Sub '複数ファイルの場合キャンセルボタンが押された
　　End If
　　　　For i = データ行 To 3 Step -1 '重複している表題を削除
　　　　　　If Cells(i, 1).Value = "受注番号" Then
　　　　　　　　Rows(i).Delete
　　　　　　End If
　　　　Next
　　　　.DisplayFormulaBar = False '視認性向上のため数式バーを非表示
　　　　Call チェックボックスを作る
　　Cells(1).Select
　　　　.ScreenUpdating = True '画面更新復帰
　　End With

End Sub

Sub チェックボックスを作る()
　　Dim データ行 As Long
　　Dim 位置 As Range
　　Dim チェックボックス As Object

　　データ行 = Cells(1).CurrentRegion.Rows.Count '最下行検出

　　With Columns(1)
　　　　.Insert 'A列にチェックボックス用の
　　　　.Offset(, -1).ColumnWidth = 2.63 '列を挿入
　　End With
　　With Cells(1)
　　　　.Value = "Check"
　　　　.Orientation = -90
　　　　.Font.Name = "@ＭＳ Ｐゴシック"
　　End With

　　With ActiveSheet
　　　　For i = 3 To データ行
　　　　　　Set 位置 = .Cells(i, 1) 'チェックボックスの場所をセット
　　　　　　'チェックボックスを作る
　　　　　　Set チェックボックス = .CheckBoxes.Add(位置.Left, _
　　　　　　　　位置.Top, _
　　　　　　　　位置.Width, _
　　　　　　　　位置.Height)
　　　　　　With チェックボックス
　　　　　　　　.Characters.Text = "" 'チェックボックスの文字をクリア
　　　　　　　　.Value = xlOff '〃の初期値を「Off」にする
　　　　　　　　.LinkedCell = 位置.Address 'チェックの有無の参照先をセット
　　　　　　　　.Display3DShading = True '３Ｄ表示にする
　　　　　　End With
　　　　　　位置.Font.ColorIndex = 2 '[True],[False]の文字が見えな
　　　　Next　　　　　　　　　　　　　　'いように文字色を「白」にする
　　End With
End Sub

Sub 選択データだけ残す()
　　Dim データ行, データ列 As Long
　　Dim 抽出データフラグ As Object
　　Dim 矢印範囲, データ範囲, 残すデータ As Range

　　データ行 = Cells(1).CurrentRegion.Rows.Count '最下行検出
　　データ列 = Cells(1).CurrentRegion.Columns.Count '右端検出
　　Set 抽出データフラグ = Columns("A:A").Find("TRUE")
　　Set 残すデータ = Range(Rows(2), Rows(データ行))

　　With Application
　　　　.ScreenUpdating = False '画面更新停止

　　If 抽出データフラグ Is Nothing Then
　　　　MsgBox "出力するデータを指定してください。" 'データの選択を促す
　　　　Exit Sub
　　Else
　　　　For i = データ行 To 3 Step -1 '選択データだけを残す
　　　　　　If Not Cells(i, 1).Value = "True" Then
　　　　　　　　Rows(i).Delete
　　　　　　End If
　　　　Next
　　End If
　　　　・
　　　　・
　　　　・
End Sub

この中でちょっとした工夫をした

　　　　For i = データ行 To 3 Step -1 '重複している表題を削除
　　　　　　If Cells(i, 1).Value = "受注番号" Then
　　　　　　　　Rows(i).Delete
　　　　　　End If
　　　　Next
や
　　　　For i = データ行 To 3 Step -1 '選択データだけを残す
　　　　　　If Not Cells(i, 1).Value = "True" Then
　　　　　　　　Rows(i).Delete
　　　　　　End If
　　　　Next

の
　　　　For i = データ行 To 3 Step -1
の部分。
最下行から該当行を削除するのが味噌。
削除するたびに行数が変わるからです。
以前うまく動かないでほとほと困ったことがあって変数にマウスカーソルを当
てながらステップ実行をしていて気が付いたTIPSです。

甘夏狩りその後・・

昨日は土曜日の午前中に甘夏狩りをしたあと午後から鬼のような冬の嵐のようなもんの凄い風とほんの一時的な大粒の雨が降りました。

で、思ったんだですけど汗だくになって甘夏狩りしなくても午後からの強風で大方落ちていたかも知れずそれを拾ったほうが楽だったんじゃないかって・・・。

と言う話をしたら嫁にも職場の女性にも「そんなことはない」ってきちっと言われました。

でもな、結構大変な思いして採ったんですよ。

甘夏狩り

墓参りから帰ってすぐにたわわに実った甘夏を回収すべくとっておきの伸縮自在の道具を駆使して行動開始。

この道具、カットすると同時に獲物を掴んでくれる構造になっているすぐれもの。

物置からアルミ脚立を出して道具の柄を伸ばして私がカットし、それを嫁が下で受け取る見事な？連携プレイ・・のはずがカットして実を掴んで柄を旋回させながら下に降ろして受け取ってもらおうとしたらいつの間に持ってきたのか嫁は大きな剪定バサミで生垣の剪定をしているではありませんか。

「おーい、違うだろ、これ受け取れよ。」

とまあ、こんな調子ですがスーパーの一番でかい買い物袋3つにいっぱい採れました、午前中街を歩いていても甘夏狩りをしていてもぽかぽか陽気でへろへろに疲れ切ってしまいました、午後からは床屋を予約してあります、そこでゆっくりしよう。

取れた獲物をどうしようかと今思案中ですが嫁は「マーマレードでも作ろうか」と言っています、それとも近くのスーパーの脇にそっとカウンターでも置いて格安で売ろうか。

でも一袋は職場に持って行こうかと考えています、でも野郎どもには絶対あげません、。みんな女子社員に配るんです。

いろいろとお土産やら貰うことがありますが果物や菓子を野郎どもにやってもほとんどのだれも口にしないでそのうちゴミにしてしまうのです、だから

絶対、
絶対

野郎どもにはやりません。

先週末にもいくつか採れた甘夏を持って行って近くにいた何人かの女子社員にひと房ずつあげ、夕方には女子社員がみんな帰った後で物欲しそうにしている野郎どものいる中で丸ごと全部食べました。

終業ベル後の掃除で私はゴミ箱のゴミをゴミ袋に回収するのですがそんな中にさっき書いたように「お土産」が捨てられているのを幾度も見ているのです。

だから絶対に野郎どもにはやらない！

気配りに感動

墓参りの帰り、電池探しとは別に毎月読んでいる雑誌を最近よく買いそびれそうになるので今回は発売日が「23日」となっているのを確認してあったので駅前ビルの本屋でそれを買いアンケートで貯めた図書カードで支払いました。

「紙袋にお入れした方がよろしいですか？」と聞かれたが墓参り７つ道具のクリアケースを持っていたのでそこに入れるつもりなのでそれを断わり「テープを貼って下さい」と頼んでケースに入れて持ち帰りました。

家に帰ってその雑誌を取り出しバーコード上に貼られたテープを剥がそうとしたらすっと簡単にはがれたのでそのテープの裏を見て驚きました、テープが爪ほどだけ糊の部分を残して貼られていたのです。

テープの端を容易に掴めかつ接着してある部分が少しなので剥がしやすく商品を傷めることなく剥がすことができるようにという気配りだったのです。

ここは店員のだれもがとても感じがよくてお気に入りだったのですがますます気に入ってしまいました。

職場の向かいにファミリー・マートがあり仕事がある日はその雑誌はそこで買うことがほとんどですが袋を断わっても何もしないので「テープ貼ってくれよ」と言わないと貼ってくれません、本当は貼られると時が経つと安物のテープだから糊がはみ出てすごく嫌なのであとですぐ剥がすのですがベターっと貼られるので結構面倒だったのです。

リモコンの単４電池

先月初めに墓参りに行ってから久しぶりに昨日はお墓へ・・、花屋が開くまで向かいの雑貨屋で少し時間をつぶしその後花を買ってお墓へ到着しました。

話は変わりますが何日も前から枕元のラジカセのリモコン用の電池が無くなってその到達距離が5センチにまでになってしまっていました、単4電池なのですが我が家でそのサイズの電池を使っている道具はこのラジカセと玄関扉のチャイムとヘッドホン型のFMラジオだけです、電池は極力とことん使いまわすのが信条ですがドアチャイムの電池がなぜか随分と長持ちしていてヘッドホン型ラジオ（ひとつしか使わない）の電池はこの前換えたばかり。

よって、お下がりがひとつしかないのです、リモコン用に新しい電池を買うなんて考えたこともなかったのですが背に腹は代えられません、それよりも今時単4電池を使うように作ってあるほうが逆行していると思います。

リモコンだからマンガンで十分なので仕事帰りに大手家電量販店のノジマやCO-OPのレジの脇をのぞいたがどこにも置いていません、アルカリ電池はいくらでも置いてあり、ノジマなんかは「小電流用にはマンガンを」なんて電池コーナーに書いてあるのにないのです。

昨日もいろいろ物色したが売ってなくて結局行きがけに時間をつぶした雑貨屋でやっと見つけました、2本で78円、これだったらノジマでアルカリを買ったのが安かったかな？

音飛び

昨日の午前中ジョンとヨーコの「Sometime in New York City」のレコードをPCに録音していました、2枚組で1枚目はPCの機嫌が少し悪かったのですが録音を終えました、でも2枚目はどうしても先へ進まないのです、しかし出かける用事があってそれ以上やっていられないのでそのままにして出かけました。

バッファの容量や数をいろいろ変えましたが音がしょっちゅう飛んでお話にならないのです。

原因はどうやらレコード溝が浅すぎて針がトレースし切れないようだということが分かりました。

仕様じゃなくてこれはバグだよね

あるメーカーに発注した商品の納期短縮や納期前倒しを依頼するためにそのメーカーのWebサイトから該当するデータを抽出し、ダウンロードするのですがデータの絞り込み方法の選択肢は「等しい」「始が」「含む」の３種類だけでエクセルの「フィルター」機能より劣っているのです。

今時のWebでは当たり前の「スペース」や「；」等のデリミタ（区切り文字）で区切って複数の候補を同時に指定できないのです、去年できたばかりのWebページなのに・・、注文番号は連番なので抽出したい番号が複数ありそれがかけ離れた番号だとまことに使い勝手が悪いのです。

取りあえず抽出してみると一番左の列にチェックボックスがデータごとに付きます、そして必要なデータにチェックを入れてダウンロードをします、するとチェックしたデータだけがダウンロードされる・・・、

と、誰もが思います、がそれは甘い！

なんと画面に表示されたデータすべてがダウンロードされてしまうのです、これではプリントアウトして不要なデータを手作業で消さなければならないわけで実に醜いことこの上ありません。

それで同様のことをエクセルでやってしまおうと何とか作いました、ほぼできて数人にダメ出しを依頼した直後に複数ダウンロードしたファイルを複数読み込んだり追加読み込みなんてことができたらモア・ベターかも、と思ってようやくその目論見に沿ったものがほぼ出来上がりました。

今、自宅でそのファイルがないのであとで職場からお披露目しようっと。

名前がわからない柑橘系

さっき、社内で紙コップでコーヒーを買ったのですがトレイから取るのを忘れて機械に自動で捨てられてしまいました、何分か経つと捨てられるとは聞いていましたが図らずも実践してしまいましった。

家から持ってきて昼食後に半分だけ食べた柑橘類が食べたくて手を洗ってすぐ自分の席に戻ってしまったんです、コーヒのことを忘れて。

この柑橘類、名前がわからんのです、八朔でもないし、伊予柑でもないし・・・、嫁いわく「甘夏じゃないかなあ」とのことですが。

植えたわけではなく勝手に生えてきたんだそうです、これがすこぶる美味、まだまだいっぱいたわわに実っています、毎年木の上のほうのは採れないでそのままになってしまいます、今年は次の休みに採ろうかと目論んでいます。

去年、職場に持ってきて女性社員に配ったら大喜びされたので今年もと思ったら嫁がいい顔をしません。

ケチ。

数年前までは庭に琵琶が生っていました、これは鳥に喰われる前に取らなければならずいつもやや早熟気味のを食べていました、でもとてもおいしかったのです、これも種を口からプッとばかり吐き出したやつが育ったんだと思います。

急遽代役

「ごますり」が今日はお休み、昨日からマスクをしていたのでひょっとしたらと思っていたらお約束通りだ、非常に単純で分かりやすくていいですね。

また今回も他の多くの社員に「すごい、本当に**さんの言う通りですね」と言われてしまいました。

明日は20日で締め日、21日は締め後の大量入荷で恐らく忙しいはず、22日はISO14001の集まりで「赤鬼」にいいカッコができるます、日ごろから月曜日に休むなんてのは自己管理ができてないからだと思っているし甘ったれている証拠だと私は公言したことがあるのです、休むとしたら今日しかありえなかったわけです。

具合が悪ければそう言えばいいんですよ、それで休むのはお互い様なんですから・・・、私は鬼じゃないのです、未だかつて休暇の申請を断ったことはありません、なぜ後ろめたさを内に含んだ動きをするんでしょう、具合が悪ければ誰だって休むのです、堂々と休めばいいのです。

カーペンターズのレコードをＣＤ化

都合8枚のレコードの録音が終わりました。

一枚目に手に取ったレコードが傷だらけでその部分は音としては大してノイズはなかったのですが別のところで音が飛びまくるのです。

虫眼鏡でその部分をよく見ても飛びそうには見えないのにどうしても飛ぶのです、仕方がないのでこのレコードは却下です。

この調子ではほかのレコードは「大丈夫かあ」といういやーな感じがしましたがまあなんとか残りのレコードを消化しました、2枚目のレコードはわかめ状で一回りするごとに「ボコン」という音が入ってしまいます、随分とひどい扱いを受けていたんですね。

録り終わった音源にエフェクトをかけてとりあえずほぼ保存し終わりました。

このエフェクタ、本当にすぐれものでこのプラグ・インを作ったメーカーのサイトで販売価格を見たら27,800円～65,800円もする代物です。

こんなものがいくつもプラグ・インとしてPCの「おまけソフト・SSMS」にビルト・インされているのです。

フィギュアスケート四大陸選手権

浅田真央が優勝しました、我らが安藤美姫は4回転が飛べずに3位でした、前にも書いたことがありますが浅田真央は体が大きくなってきて大人の演技として見られるようになりました、これからどんどん魅力的になりますね。

安藤美姫は本当に残念だったけどいつかは4回転ジャンプを成功させるはず、頑張ってほしいですね。

実力は二人とも誰もが認めているところなのですべては集中力で決まります。

取って着けたようだが村主章枝もがんばれ一応隠れファン。

カーペンターズ

会社の女性からカーペンターズのレコードを多数預りCDを作るべく朝からずっとカーペンターズに首までどっぷりつかって頭の中がホニャホニャ、ふにゃふにゃになってしまいました。

いい加減にビートの効いたやつが聴きたくなりました。


ところでたった今、HMVからメールが届いていてDVDを2枚以上買うと25%OFFだって言うんで乗ってしまいました。

実は前々から欲しかったジャニス・ジョプリンのDVDがあったのですが前回注文した時は入手困難だったのでキャンセルしたことがあります、今回注文したのが同じものかどうかは分かりませんがキャンペーン（マルチバイという）を待っていたのも事実だったので注文してしまいました。

バレンタイン・デー２

今朝下に降りて朝の食事を摂った後で嫁が「もらったチョコ食べないの？」と来ました。

中身は何だろう、どんなチョコだろう、早く食べようとうるさいことこの上ないのです。

チョコのことは今朝まで全く頭から消えていたのです、そんなわけで言われて包みを開けたらイタリア製の高級チョコでした。

嫁は嫁で今朝の話のついでにバッカスチョコをくれました、実は酒を自分から飲むことはまずあり得ないのですがこのチョコだけは大好きなのです。