◆どのボタンが押されたか判断する

  シートに複数のボタンを貼り付けて、どのボタンが押されたかを判断したいと思った
  ことありませんか？

  処理する内容は殆ど同じで、どのボタンが押されたかで、パラメータを変えたい。

  ボタン毎に登録するマクロを設定してもいいんですが、そうるるとプロシージャーが
  いっぱいできてしまいます。

  美しくありません。

  簡単に判断できるんです。

 

Sub Sample1()

    Dim Button_Name As String
    
    'どのボタンが押されたか判断する
    Button_Name = Application.Caller

    MsgBox Button_Name

End Sub

  こうすることで、押されたボタンの名前を知ることができます。

  ボタンの名前は、セルA1の真上にあるボックス「名前ボックス」で設定します。