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

毎日、ミラレクサスの中で昼飯（果物だけ）を食べて、そのまま昼寝をするんだけど、
月一で、所属する係の職場懇談会ってのが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でした（爆）