複数のボタンを同一の動作にするために、まとめて書くには？

質問

２２歳男性です。VBAについて質問があります。
エクセルシート上に複数のボタンを配置しました。ボタンは複数あるのですが全て同一の動作にすることは可能なのでしょうか？

今は以下のように全てに書いています。

sub ボタン1_Click()
msgbox "こんばんは"
End Sub

Sub ボタン2_Click()
msgbox "こんばんは"
End Sub

・・・・・

でも、これだと全てのボタンに書かなくてはならないので、手間がかかりまくります。
なんとかまとめて書くことはできないでしょうか？

回答No.1

redfox63

フォームのボタンならば
ボタン1をシートに貼り付けます
マクロの登録ダイアログで 新規作成を行い
Sub ボタン1_Click()
　　MsgBox "こんばんは"
End Sub
を定義します

ボタン2をシートに張ります
マクロの登録ダイアログで 『ボタン1_Click』を『ボタン2_Click』と表示されている下ににあるリストから選択して OKをクリックします

これで『ボタン1』『ボタン2』どちらを押しても『ボタン1_Click()』が実行されます

貼り付けてしまった後で変更したいなら
ボタンなどを右クリックして マクロの登録 から変更しましょう