ソーホース 和名は「うま」か作業台？

材木を切ったり、ねじを締めたり、穴を開けたりと、今までは地べたに小さな足をおいてしゃがんでやってたんです。
大きな足で天板もついた奴を作ってたんだけど、それはBBQのテーブルになっちまった。
立ったりしゃがんだりがだんだんきつくなってきて、何とかしたいなぁ～と思ってたんだけど、
大きな作業台を作っても置く場所も、収納する場所もなくて、雨曝しになって腐っちゃうだけだよなぁ～。
ホームセンターで売ってるけど、なんだかなぁ～って。

で、ガシガシノコギリで切っても平気だし、ドリルで穴が開いてもへっちゃらぴーで、
焼酎呑む茶碗ものるし・・・
で、自作。
　
LINEにも載せたんだけどね、
最初はシンプルに作ったんだけど、一杯飲んでるうちに、
えんぴつやドリルを載せる台を付けたり、差し金を引っ掛けダボを打ち込んだりと、
反ってゴテゴテになっちまいました（笑）。

あの悪魔のような呪縛から、また一人解放された・・・

毎日、ミラレクサスの中で昼飯（果物だけ）を食べて、そのまま昼寝をするんだけど、
月一で、所属する係の職場懇談会ってのが12：20～12：50の休憩中に開催されるんです。

今日もグレープフルーツを一個分食べて、あと10分だけゴロリとしようかな・・・
って思ったらショートメールが。

あれ、まえの極悪会社のときの仲間ぢゃん・・・ん？どぉしたんかな？
な～んて思って開いたら、ありゃりゃ。
なんと、目出度く抜けれたんだ、あの邪悪な巣窟から！！

おめでとぉ。
まじ、心から御歓び申し上げますですわ。まぢ。
よくもったなぁ～と感心です。
よく耐えたなぁ～と絶賛です。

まだまだ抜け切れずに辛抱している人がいるんですが、早く逃げてください。
世間を騒がせた新興宗教団体と何ら変わりませんから、新聞やテレビに出る前に、
早く人間に戻ってください・・・・

こんど祝賀パーティ、やろうね　(＠_＠;)

Excel2010で、右クリックメニューを自分流に作ってみたら

’ThisWorkbookモジュールに書く

Private Sub Workbook_Open()
Application.CommandBars("cell").Reset
Call AddMenu1
Call AddMenu2
Call AddMenu3
Call AddMenu4
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call DelMenu1
Call DelMenu2
Call DelMenu3
Call DelMenu4
Application.MoveAfterReturnDirection = xlToRight
End Sub



'標準モジュールに書く
Sub AddMenu1()
Dim Newb1
Set Newb1 = Application.CommandBars("Cell").Controls.Add()
With Newb1
.Caption = "カーソル↓"
.OnAction = "Sample1"
.BeginGroup = False
End With
End Sub

Sub Sample1()
Application.MoveAfterReturnDirection = xlDown
End Sub

Sub DelMenu1()
Application.CommandBars("Cell").Controls("カーソル↓").Delete
End Sub

Sub AddMenu2()
Dim Newb2
Set Newb2 = Application.CommandBars("Cell").Controls.Add()
With Newb2
.Caption = "カーソル→"
.OnAction = "Sample2"
.BeginGroup = False
End With
End Sub

Sub Sample2()
Application.MoveAfterReturnDirection = xlToRight
End Sub

Sub DelMenu2()
Application.CommandBars("Cell").Controls("カーソル→").Delete
End Sub

Sub AddMenu3()
Dim Newb3
Set Newb3 = Application.CommandBars("Cell").Controls.Add()
With Newb3
.Caption = "値変換"
.OnAction = "Sample3"
.BeginGroup = False
End With
End Sub

Sub Sample3()
Dim myrng As Range
On Error GoTo エラー処理
ActiveCell.Value = ActiveCell.Value
エラー処理:
Exit Sub
On Error GoTo 0
End Sub

Sub DelMenu3()
Application.CommandBars("Cell").Controls("値変換").Delete
End Sub

Sub AddMenu4()
Dim Newb4
Set Newb4 = Application.CommandBars("Cell").Controls.Add()
With Newb4
.Caption = "列番号"
.OnAction = "Sample4"
.BeginGroup = False
End With
End Sub

Sub sample4() '列番号をA1形式からR1C1形式に切り替え　又はその逆
If Application.ReferenceStyle = xlR1C1 Then
Application.ReferenceStyle = xlA1
Else
If Application.ReferenceStyle = xlA1 Then
Application.ReferenceStyle = xlR1C1
End If
End If
End Sub

Sub DelMenu4()
Application.CommandBars("Cell").Controls("列番号").Delete
End Sub

'失敗したとき用に右クリックメニューの全てを削除するためのマクロ（笑）
Sub 右クリックメニュー全削除()
Application.CommandBars("cell").Reset
End Sub


これが、結構便利で。
アドイン作ってリボンに登録してたんだよな～
って考えたら、右クリックに登録した方が、超早いし便利だった。

何でも屋が仕事の今の会社で、如何に早くExcelやWordを済ませるか・・・
マウスよりもショートカットキーの方が速いぞ、
な～んて講釈はたれずにさっさとやっつけて、草取りやどぶ掃除に専念さね。

良かったらマクロをThisWorkbookと標準モジュールにコピペして使ってみてくださいよ。
4つしかメニューは入ってませんが、上2つは便利。
3個目は必要な人は必要で・・・（笑）。

ネタ切れのkameでした（爆）

お休みは今日でおしまい

　今年のGWも終わってしまった。

やっぱ、あっという間だったね。
明日から仕事が始まるわ。
毎日昼過ぎから呑んで、疲れた・・・


家の西側の垣根に毎年咲くんだけど、これだけ咲くと匂いがすごい。

これはネギボウズ・・・

貝拾い

ことしのGWは残り今日を入れて4日・・・
ほんと、早いね、遊んでると(笑)。

4/26から10日間の長期連休がある今の勤務先。
早いもので3年目になるんだけど、仕事してると長いのに、
あっという間に終わっちまうわ。

初日と二日目は外に出た息子たちや家にいる娘と連日BBQ三昧。
3日目と4日目はひどい雨で、5日目はその余韻で雨。
3日間は家の中で座り仕事。
腰が痛くなっちゃってサロンパスとアンメルツのやり。

で、昨日6日目はかみさんと娘と次男夫婦とまめたを連れて知多半島まで貝拾いに行ってきた。
久し振りでしたね、貝拾いは。
会社の福利厚生の一環で、この辺りの会社や事業所が加入している大きな組合みたいなのがあって、
年間をとおしていろんな割引や特典が貰えるんです。

子供はリフトの割引券とか、水族館の割引とか、野球観戦の割引とかね。
貝拾いも1家で4人までは1000円の参加費用で行けちゃう。

今回はかみさんはまめたのお守りをするからと、参加費用無しで浜に入れてもらった　!(^^)!
ラッキー。
4人で病みつきになりながら貝を拾って、網から溢れた超過分を別料金で買い取り、まめたんちと山分け。

夕べは酒蒸し。
今朝はあさりの味噌汁。
午後はカミさんの母親を今日から3日間家で遊ばせるために今娘が迎えに行ってるから、
あさりの大き目の奴を炭で焼いて、一杯　(笑)。

両腕が真っ赤に日に焼けて、痛くて痛くて。
年だから気をつけないと・・・