ExcelVBAにおいて、どのActiveXコントロールボタンが押下されたか判断する方法

ExcelVBAについての質問です。

シートに2つ以上のActiveXコントロールボタンが配置されている場合、
どのボタンが押下されたか判定する方法はありますでしょうか。

以上、よろしくお願いいたします。

2018/01/18 10:03　追記

Private Sub CommandButton1_Click()

Call hogehoge

End Sub

Private Sub CommandButton2_Click()

Call CommandButton1_Click

End Sub

回答を下さった方、ありがとうございます。
補足させていただきます。
上記のようなソースで、「hogehoge」を実行するかどうかというのを、
押下されたボタンで判定したいのです。
CommandButton1クリック時：hogehogeを実行する。
CommandButton2クリック時：hogehogeを実行しない。

以上、よろしくお願いいたします。

行動規範の内容に同意します

回答4件

解決済ですが、別案を。

そもそも、ActiveXでボタンを作成する必要があるのでしょうか？

個人的には、ActiveXボタンは灰色でフォント調整もしにくいので、
シェイプにマクロを登録して使います。
※シェイプの方が色や形などが容易に変えられるので、
ボタンを分類に分けて塗り分ける等、視覚的に分かりやすくなります。

マクロを登録する作業と、
ActiveXボタンのClickイベントに関数をセットする作業でも、
前者の方がセットしやすいです。

そして、シェイプをクリックした時に呼ばれたマクロ内では、
Application.Callerで
クリックしたシェイプの名前が取得できます。
※シェイプ名は、シェイプをクリックした状態で、
左上（セル番地が表示される所）で設定できます。

クリックしたシェイプの名前が取得できれば、
名前で条件が分岐できます。
※数値で分岐するより、可読性があがると思います。

ご参考まで。

投稿2018/01/18 03:15

ExcelVBAer

総合スコア1175

Martinez4_46

2018/01/18 03:19

回答ありがとうございます。シェイプのほうが使いやすそうですね。検討してみます。

行動規範の内容に同意します

ベストアンサー

この質問が出るのは「ActiveXコントロール」ではなく「フォームコントロール」のボタンをシート上に配置した場合の方が多いような気がしますが。

ActiveXボタンの場合、例えば CommandButton1というボタン名ならクリックイベントは CommandButton1_Clickというように、ボタン毎にクリックイベントが別れていると思います。

入り口（クリックイベント）が別れていますので、その時点で「CommandButton1が押された」という情報を覚えておけば、たとえその後共通関数が呼ばれたとしてもどの入口から入ってきたのか判別可能になると思いますが、どうでしょうか？

追記をうけて

おそらくCommandButton1_Clickにはhogehogeを呼び出す以外の処理もあり、CommandButton2をクリックした際にはそのhogehoge以外の処理を同じように実行したい、ということだと思います。
こういう場合、共通で使用する処理は直接CommandButton1_Clickに記述せず、別関数とした方が扱いやすくなります。

下記のサンプルではCommandButton1_Clickの内容をそのままprcButtonClickという別関数に載せ替え、hogehogeを実行するかどうかだけ呼び出し元によって切り分けるようにしています。
各ボタンでは、自分がどのボタンなのかをprcButtonClick関数に渡すようにしています。

Private Sub CommandButton1_Click()
    Call prcButtonClick(1)
End Sub

Private Sub CommandButton2_Click()
    Call prcButtonClick(2)
End Sub

Private Sub prcButtonClick(ByVal viBtnNo As Integer)
    If viBtnNo = 1 Then
        Call hogehoge
    End If
    
    'hogehoge以外の処理
    
End Sub

参考になれば幸いです。

投稿2018/01/18 00:56

編集2018/01/18 01:24

jawa

総合スコア3020

KSwordOfHaste

2018/01/18 01:03 編集

あらら・・・どちらも同じように「コントロール名_Click」などのハンドラーにイベントが結びつくものとばかり思っていました。自分の回答は不適切ということになりましょうか・・・ちゃんと確認してみます。

jawa

2018/01/18 01:06

KSwordOfHasteさんの提示されたリンクにも記載されていますが、ActiveXコントロールのクリックイベントはボタン名で固定なのですが、フォームコントロールの場合は「マクロの登録」で作成済みのマクロを割り当てる形になります。複数のボタンに同じマクロを割り当てることもできますので、今回のように「どのボタンが押されたか判別したい」という要望がでてきやすいのです。

KSwordOfHaste

2018/01/18 01:23

うーん、どちらも普通に定義すると「コントロール名_Click」というVBAマクロに結びつくように思えます。ひょっとすると自分の知識不足のため質問意図がわかっていないのかも知れません。

KSwordOfHaste

2018/01/18 01:28 編集

なるほどそういうことですか・・・逆にコントロール名_Click以外に結び付けたことがないので自分の知識不足でしたね！お手数をおかけして申し訳ありませんでした。

jawa

2018/01/18 01:33 編集

そうですね。フォームボタンも普通にボタン作成するとデフォルトでは「コントロール名_Click」というマクロを作成するように促されます。ただこれはデフォルトなだけで、好きなマクロ名で作成することもできますし、既存マクロを割り当てることもできます。作成後に別のマクロに割り当てなおす、ということもできます。 ActiveXコントロールの場合は割り当てるマクロ名の選択などなく、強制的に「コントロール名_Click」でマクロ作成されると思います。 ActiveXに「マクロの登録」はないので、後から別のマクロに割り当てるようなことも通常はできなかったと思います。

Martinez4_46

2018/01/18 01:47

回答ありがとうございます。＞おそらくCommandButton1_Clickにはhogehogeを呼び出す以外の処理もあり、＞CommandButton2をクリックした際にはそのhogehoge以外の処理を同じように実行したいまさにその通りです。教えていただいた方法で、やりたかったことが実現できそうです。ありがとうございました。

行動規範の内容に同意します

質問の意図がわかりません。
追記されているコードでは既に実現できていますが、何が問題なのでしょうか。
CommandButton1_Click関数はCommandButton1がクリックされたときにしか呼ばれない。
CommandButton2_Click関数はCommandButton2がクリックされたときにしか呼ばれない。
なのでCommandButton1_Click関数でhogehogeを呼ぶようにしておけば良いと思いますが。

投稿2018/01/18 01:46