許容量

永川に殺されそうになりながら日々をすごし、新しい仕事に就いて、ちょうど１週間となった。
お初の仕事内容にお初のアプリケーション、２日間のつめこみ研修の次の日には早速実践で、しかも「今日中にね（ハァト）」。ベテランさんは半日あれば充分仕上げることができるらしいが。
がんばってやろうとするものの、三歩進んで二歩下がる状態。もしくは二歩進んで二歩下がる。ぶっちゃけ進まない。
出先から戻ってきた上司が私をひと目見てテンパってることを認識したらしいが、期限がありしかもお客様が待っている仕事で、落ち着いてゆっくりやるわけにはいかず、半ばパニックになりながらなんとか２日を乗り切った。というか仕事を残して休みに入った。半泣きw自分がこんなに物覚えの悪いアフォだったとは、と愕然ww

まあこんな感じで他の皆さんとろくにお話する余裕もなかった私であるが、ありがたいことにお休み中に別の部署の皆さんが飲みに誘ってくれた。
休みの前の日のテンパり中に場所と時間を教えてもらって、知らないお店だったので忘れないようにメモを取り、それからしばらくテンパりながら仕事を進めるものの終わらないけどもう切り上げて帰っちゃおうと机の上のものを片付けて、帰宅。

家に帰ったところでメモを他のものと一緒に机の引き出しに収めたことを思い出した。
ちなみに店の名は忘れ去り済みで、会社はお休みの日は当然鍵が閉まっている。社員通用口を通るためのカードキーは、まだ出来ていない。
ほんでもってさらに、誰かに聞こうにも、まだ参加者の連絡先すら聞いちゃいねぇ。
とりあえず、今からiタウンページや地図サイト見て店の名を思い出しますww
近年まれに見るボケ連発に心底うんざりした。というかもう若年痴呆なのか。

開き直り

ちんすこうってなんか工口い。
と、今から沖縄に出かける人の心に残る話をしてみる。

ところで、先日めでたく働き口が見つかり、「おっぱい大きいけど垂れてないねゲヘヘ」などの面と向かって香ばし発言ありのＫＢさんを放り捨ててきた私であるが、驚くべきことに応募者２４人の中から選ばれたらしい。ちなみに決め手は本当に「大　好　き　で　す（はぁと）」であったようだww
前の職場でオッサン扱いすごいラク。ということに気づいていた私は、勤務初日に開いていただいた歓迎会で気持ちよく（でも暴れない程度に）飲んで下ネタをゲラゲラ笑いつつ、カープのストラップ自慢したりした。ああ、ほんとにすごいラク。長く勤められたらいいな。

で、今週木金は出張である。
面接で、私の「大　好　き　で　す（はぁと）」で一押ししてくれたお偉いさんがいらっしゃる広島へＧＯ。
もしかしたら一席設けられているかもしれないということなので、そこでもオッサン押しでいくことにした。
方向性を激しく間違っているような気もするが、まあいいや。
がんばります。（何を？）

セルの更新日（時）を記録する

この間このカテゴリが役立った。
そのとき思いついた、セルの更新日（時）を別のセル（隣の列、など）に記載するテクニックをアップしておく。
たとえばデータ入力で、同じ行でも更新にタイムラグのある場合に有効。何しろ確認のとき、更新日の記載された列にフィルタをかければ、その日に更新されたセルのみを抽出できるので。

VBAを起動させ、対象シートに以下Privateからend subまでをコピーし、必要な部分は入力しなおす

---------------------

Private Sub Worksheet_Change(ByVal Target As Range)

'特定列（ここでは仮にＡ列）のセルの内容変更があった場合に、隣の列に更新日時を記載する

Dim crow As Integer　 '内容変更セルの列番号を格納する変数
Dim ccolumn As Integer　 '内容変更セルの行番号を格納する変数

'変更したセルではなく、変更を確定したときのセルがActiveCellとして認識されるので、カーソルの移動方向にあわせて変更セルを特定する
　Select Case Application.MoveAfterReturnDirection

　　Case xlToRight　'右移動の場合
　　　crow = ActiveCell.Row
　　　ccolumn = ActiveCell.Column - 1

　　Case xlDown　'下移動の場合
　　　crow = ActiveCell.Row - 1
　　　ccolumn = ActiveCell.Column

　　Case Else　'それ以外の場合→たぶん上・左は日本人は使わないだろうので対象外とする
　　　MsgBox "リターンキー押下時のカーソルの移動方向は、" & Chr(13) & "右か下のみにしてください", vbOKOnly + vbExclamation
　　　Exit Sub

　End Select

　'ここから、時刻と日付を入れる処理

　If crow > 1 And ccolumn = 1 Then　'crow > 1 は、最初の１行（おそらく項目名となる）を無視するため
　ccolumn = 1 は、変更を記録する対象列としてＡ列を指定するため。列番号はコレ以降、B=2、C=3と続くので、判定したい列に応じた必要な数字を入れる

　　Cells(crow, ccolumn + 1) = Date & " " & Time '更新日を入れるセルに日時を代入
　例として対象列の1列右隣を指定。必要に応じて「+1」の部分の数字を変える

　End If

End Sub

---------------------

日時「Date & " " & Time」の部分は、日付だけなら「Date」のみ、時刻だけなら「Time」だけでよい。

大勝負

本日、仕事の面接。
時間通り到着すると、面接スタイルの人が他にもちらほら。初心者ＯＫの仕事であったが、きっと経験者もいるはずである。
募集は１名だったため、よっぽどがんばらないとこれはきついであろう。

で、私の面接の番になり、履歴書を見ながら質疑応答していった。
アピールできることはアピールし、なんかいい感じで面接官とお話していたところ、面接官のひとり、ちょっと年配の方が何の前触れもなくこのような質問をされてきた。

「お酒は飲めるかね？？」

うはwいきなりそこですかww
えー、私の次の職場での目標は、甘いお酒しか飲めないんです（はぁと）イメージ戦略であった。だが・・・
どうせバレるんだし、ここはどう考えてもＹＥＳが鉄板じゃね？？？
ワタクシの人生のプチターニングポイントである。
一瞬考えて、超にこやかに答えた

「大　好　き　で　す　」

火曜には結果通知するとの話しであったが、面接から帰宅後、２時間で採用の電話がかかってきた。
捨て身って大事だと思ったwww
あとは面接官が酒好きというミラクル（？）に感謝！

詐称

５日ぶりに出勤したバイト先で、感動の3日間について熱く語ったらオッサン認定された。
どうも、ユニ着て声が枯れるまで応援し、喜びのあまり回りの見知らぬ人々とハイタッチ、withビール（昼間っから）がいけなかったらしい。

そういえば新球場3日目、いろいろあって友達と離れた席になり、ひとり騒がしく応援していたところナナメ後ろのおっちゃん（泥酔一歩手前で同行の小学生娘ドン引き）が声をかけてきたのも、私から同じ臭いを感じられたからかもしれない。

でもおっちゃんは私に「女子大生？」って聞いてきたのよ。
しかし一回りも下は、さすがに周囲の酔ってないみなさんにはまるばれであろうから正直に自己申告したが、２９くらいと聞かれていたらたぶんにっこり頷いたと思うw
この年になるとやはり若く見られるのは嬉しい。
酔って目の焦点が定まっていなかったおっちゃんの言葉とはいえ、ちょっと勢いづくわたくし。

その勢いに乗って。

昨日、友達と会ったとき、友達の娘ちゃん（３歳）におねえちゃんと教え込んでみたw
犯罪だろーか。。。