メニュー作成

エクセルの上部に、メニュー形式を追加します。
また、名前を付けて保存【Excelアドイン（*.xlam）】することで、
マクロのみのファイルを作ることが出来るので、マクロをエクセルファイルに
依存させる必要がありません。非常に便利なので、これは覚えておくと非常に便利！
auto_close は、エクセルを閉じた時に、メニューを削除するためのもの。
これがないと、xlamファイルを起動するたびに、メニューが増殖していく笑
----------------------------------------------------------------------------
Sub Auto_Open()
With CommandBars("worksheet menu bar").Controls.Add(Type:=msoControlPopup)
.Caption = "メニュー"
With .Controls.Add(Type:=msoControlButton)
.Caption = "マクロ１"
.OnAction = "マクロ１"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "マクロ2"
.OnAction = "マクロ2"
End With
End With
End Sub
----------------------------------------------------------------------------

----- べんりあつめ。-----

Sub auto_close()
On Error Resume Next
CommandBars("worksheet menu bar").Controls("メニュー").Delete
CommandBars("worksheet menu bar").Controls("メニュー").Delete
CommandBars("worksheet menu bar").Controls("メニュー").Delete
End Sub
----------------------------------------------------------------------------
Sub マクロ1()
内容
End Sub
----------------------------------------------------------------------------
Sub マクロ2()
内容
End Sub
----------------------------------------------------------------------------