懲りない・・・(笑)

今度は環境汚染防止条例を調べた（笑）。
ところが、H15年3月25日に全面改正となり、
現在では「県民の生活環境の保全に関する条例」
となっていた。
まだ生まれて無い頃の話なので、ちんぷらかんぷらだ・・・（爆）

そんなことより、もっと自己マンを実施した。
Excelの右クリックメニューに自分の欲しい物を追加した。
カーソルの→と↓移動の切り替えと、
セルの値貼り付けと、
列番号のA1とR1C1の切り替え。

以前は作ったアドインをリボン上に配していたけど、
結構リボンを捲るのが自分でも面倒だったので、
何だかなぁ～って思いながら自己マンで使ってたけど、
まてまて、右クリックが有るぢゃないか・・・

で作った。
でも、これも要はアドイン。
リボンに乗せるか、右クリックで使うかの違いだけなんだけどね。
でも、思ったより右クリックの方が便利だ。
これも自己マン（笑）。

記事のタイトルを入力してください（必須）

絵下から3つ分をExcelの右クリックメニューに追加するには、
まず標準モジュールに次のコマンドを書く。

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 右クリックメニュー全削除()
Application.CommandBars("cell").Reset
End Sub


そしたら今度は、This　WorkBookに以下のコマンドを書きましょう。

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


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

そして書き終えたら、一旦これを「Excel　マクロ有効ブック」で保存する。
拡張子は　.xlsm

そして次にそのまま今度は、このファイルを「Excelアドイン」で保存する。
拡張子は.xlamだ。

ちょっと、一杯呑んで書いてるから、訳解らんようになってきた・・・

いやいや、何だかねぇ～

解かっちゃいるんだけどね。
工場の掃除のおっさんが、本社のISOだの
推進室だのその他の室長兼お部長さまに対抗資料をお届けするなんざ、もってのほかだってさ。
分かっちゃいるんだけどね。
でも、きちんと法律を理解して間違いのないように進めるのが会社の部長連中ぢゃねえのかよって。
自分が責任とれないなら辞めろよ・・・

な～んてのは、ココロのツブヤキ　（笑）。

先日本社に研修で出かけたら、ムシだった　(-_-;)。