| |
少なくとも現在シート上に複数個配置しているボタンを、
フォームツールバーのものにして下さい。そしてそれらのボタンに
登録しているマクロの冒頭、全てに
Dim x As Variant
と変数の宣言を追加し
x = Application.Caller
If VarType(x) <> 8 Then Exit Sub
If MyBt <> x Then MyBt = x
というコードを追加します。そして標準モジュールの先頭に
Public MyBt As String
と、グローバル変数を宣言し、共通ボタンのマクロは
Select Case MyBt
Case "": Exit Sub
Case "ボタン 75": Call Macro1
Case "ボタン 77": Call Macro2
Case "ボタン 78": Call Macro3
End Select
というように、ボタン名によって呼び出すマクロを分岐すれば良い
と思います。
なお、フォームツールバーのコントロールにつく個別の名前は、
そのコントロールをデザインモードで選択した状態(マクロを登録済み
なら、Ctrlキーを押しながら選択)で、数式バーを出してみれば分かります。
|
|
Kein
- 07/5/17(木) 17:42 -
