エクセルシート上で作成したツールの呼び出し

質問

VBAで簡単なツールをユーザフォームを使用して
作成したのですが、このプログラムをエクセルを
起動させてあるコマンドボタンを押すと
そのツールが立ち上がるようにしたいのですが、
その方法を教えて頂けないでしょうか？
例えばCTL＋Wで立ち上がらしたいのですが。

回答No.2

tinu 2000（@tinu2000） · ベストアンサー

jones0901、こんにちは。
なかなか難しくて面倒な問題ですね（笑）
VBAで簡単なツールを作れる方ですので要点だけを！

ThisWorkbookのコード表示の中で
Private Sub Workbook_Open()
UserForm1.Show
End Sub

UserForm1にラベルコントロールをひとつ定義します。
UserForm1のコード表示の中で
Private Sub Label1_Click()
ActiveWorkbook.Save
Application.Quit
End Sub

Private Sub UserForm_KeyUp(ByVal KeyCode As　MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 87 And Shift = 2 Then
Label1.Caption = "こんにちは！"
End If
End Sub

以上を貼り付けます。

参考までに：KeyCode = 87 は Wキー、Shift = 2 はCtrlキーのことです。
ラベルコントロールをクリックすると終了します。

回答No.1

imogasi

（１）VBAで下記の例を作りました。Module1に
Sub test01()
MsgBox "マクロの実行"
End Sub
（２）例えばワークシートSheet1にコマンドボタンを１つ貼りつける。デザインモードにして、コマンドボタン上でダブルクリックする。
（３）ＶＢＥ画面に変わって
Private Sub CommandButton1_Click()
End Sub
が出る。この２行の間に
Private Sub CommandButton1_Click()
test01
End Sub
を挟む。Call test01でも良い。引数があればtest01(・・
)
（４）ワークシート画面に戻って、ツール－マクロ－マクロをクリック。マクロ名にtest01を選び、「オプション」
をクリック。
（５）「ショートカットキー」のところで
　　Ctrl+Shift+MのMのところを英字で指定。
　　（MはWでも何でも良い。）ＯＫをクリック。
これで（Ａ）コマンドボタンをマウスでクリックしても
（Ｂ）キーボードからCtrl+Shift+Mをキーインしても
どちらでもプログラムが実行されます。
VBAで記述するなら、
Sub Macro1()
Application.MacroOptions Macro:="test01", _ 　　Description:="", ShortcutKey:= _
"M"
End Sub
です。