マクロ(Excel VBA)で押されたボタンによって処理を変えたいと思ったことはありませんか？
Applicationオブジェクトの「Application.Caller」を使うことで、どのボタンが押されたのか判断できるようになります！
今回はサンプルとして押されたボタンの名前、文字を判定するソースを紹介します。
30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！
無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！
うめ
30日間以内に解約すれば費用は発生しません！
Application.Caller
ボタン(フォームコントロール)でマクロを動かします。
サンプルとして「新規」、「更新」の2種類のボタンを配置して作成したマクロを登録。
ボタン名で判定
設定したボタンを右クリックしてボタンの名前を確認します。
ここでは「新規」がボタン 1、「更新」がボタン 2と設定されています。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Sub ボタン名を判定() Dim Button_Name As String '押されたボタンを判定 Button_Name = Application.Caller If Button_Name = "ボタン 1" Then MsgBox "ボタン 1が押されました。" ElseIf Button_Name = "ボタン 2" Then MsgBox "ボタン 2が押されました。" End If End Sub |
ボタンの名称で判定
次はボタンに記載されている文字を判定する方法です。
「Button_Text = Worksheets(1).Buttons(Application.Caller).Text」でボタンの文字を取得できるので、ボタンの名称が確定している場合は、こちらの方が使いやすいかもしれませんね。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Sub ボタンの文字を判定() Dim Button_Text As String '押されたボタンの文字を判定 Button_Text = Worksheets(1).Buttons(Application.Caller).Text If Button_Text = "新規" Then MsgBox "新規ボタンが押されました。" ElseIf Button_Text = "更新" Then MsgBox "更新ボタンが押されました。" End If End Sub |
まとめ
今回は「Application.Caller」の使い方について解説を行いました。
どのボタンを押したのか判定できるようになると、同じ処理をまとめることができるのでコードも見やすくなりますね。
