パソコンがなきゃ仕事にならん その捌

　Ｍさんが営業車で巡回時に体験した、ガソリンスタンドでの話です。
・
　トイレのドアを開けると、洗面台の前に一人の男性がいました。

・

その男性は手を洗った後、自分の手を拭いたハンカチで、洗面台付近に

・

飛び散った水滴をきれいに拭き取っていたのです。

・
・
　Ｍさんは何気ないこの光景にショックを受けました。彼の会社では、

・

トイレ内に水滴を拭くための雑巾が置いてあります。しかし、自分の

・

ハンカチを使って拭いている人は、今まで一人として見かけたことは

・

ありません。
・
・
　Ｍさんはこの男性の行為について、あらためて考えをめぐらせました。

・

男性の心には「他人を思いやる気持ち」が内在していることは明らかです。
・
・
　Ｍさんは〈社長から『お客様の立場を思いやる心を持て』と言われ、

・

頭では理解していたが、自分はそれを形に表わしていただろうか〉と思った

・

のです。
・
・
　他人を思いやる気持ちは大切です。しかし思いやるだけではなく、それを

・

実際の行為として体現することが、じつは最も肝心だといえるでしょう。
・
・
・
　　　　　　　　　　　　出典：　「職場の教養1月2011年」　社団法人倫理研究所

・

・

ふ～～～ん　(｡･ｗ･｡ )

・

　ま～　判らんわけじゃないがね

・

　　ハンカチ　洗うの　女房なんだよね

・

・

んじゃま～　ちょいと　違うが

・

　それに　似たような　こんころ持ちで　いっちょ　仕事しますか～　(*￣0￣)ノ

・

物品が　壊れる時ってのは

　老朽化もあるでしょうし　意図的に　壊す場合もあります

また　そんなつもりでは　無かったのに　弾みってこともあります

　弾みにしたって　その経緯が　問題になる場合があります

また　壊れた物品で　二次的に　怪我につながる場合

　自分だけではなく　他者にまで　その　怪我が　及ぶ場合も　あるでしょう

そのような　事案を　

　ヒヤリハットの段階で　察知して　

それを　いつでも　提案・提出しやすい形にしなければなりません

事故を　未然に　防ぐためにも　

　あらゆる　事案にも　対応できるように　様式を統一し

あくまでも　個人の責任ではなく　皆で　共有するのだという　意識で提出できる

　ヒヤリハット事案　！

　　単に　提出するだけでは　いずれ　形骸化してしまう

ですから


ファイルを　データ化し　いつでも　分析できるものが　望ましいのです

　
　しかし・・・

めっちゃくちゃ　(＠Д＠；

　頼むから　全角　半角　大文字　小文字は　統一させてくれよ～

なんで　所定の　フォルダに　入れないんだよ～　　　ってなことが　続きまして・・・


　それで　冒頭の　他人を思いやる気持ちを　発動させまして　　　ちょい　違うか？

　
　・・・・・・　他の　職員に　期待するの　諦めました・・・

　押印欄の　ところに　日付　保存　それぞれ　ボタンを　作成

日付ボタンを　押すと


' Macro1 Macro

    Range("Y6:AF6").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

　報告日の　TODAY()関数を　シリアル値に直します



保存ボタンを　押すと

Sub SampleProc2()
 
    Dim sFilename As String
 
    sFilename = Range("d2").Text
    If Len(sFilename) > 0 Then
        sFilename = Format$(Date, "yymmdd") & sFilename
        sFilename = CStr(Application.GetSaveAsFilename(sFilename, "Excel 形式(*.xls),*.xls"))
        If UCase$(sFilename) <> "FALSE" Then
            ActiveWorkbook.SaveAs sFilename
        End If
    Else
        MsgBox "A1 セルが空", vbCritical
    End If

End Sub

　これで　主体者の　名前や　物品名が　記載されてなければ

Ａ１セルが　空　という　案内が出て　保存されません

　きちんと　記載されていれば

例えば　"カブ"　であれば　130128カブ　と　名前が自動で　付けられるのです

　あとは　各パソコンのマイドキュメントに　保存用フォルダのショートカットキーを

作っておけば　

　さすがに　間違わないでしょう


更に　年齢を　記入する欄も　ございまして

　自分の年齢くらいは　判るでしょうが

利用者さんのは　全員　把握してるわけではありません

　そこで　年齢ボタンを　押すと　　別シートに　作成している　年齢早見表を

引っ張り出すって云う　寸法です


これで　格段に　入力　管理が　楽になりました

　　　　　　　　　　　　　　　　　　　　　　　　　　　　

･･････････････････････････････・・・・・・・・・・・・・・・ふぅぅ～～～　やれやれ