エクセルで複数のコマンドボタンの貼り付けについて

質問

エクセルで複数のコマンドボタンの貼り付けについての質問ですが、
VBの用に配列で貼り付け(Indexをつける)はできないのでしょうか？
オブジェクト名に同じ名前を入れてもエラーになるだけで、配列にできません。
command_click (index)のようにする方法はありませんか？

回答No.1

redfox63

出来ないでしょうね

同じハンドラを使う方法はありますがお勧めできません

ユーザーフォームに CommandButton1、CommandButton2があるとして

dim WithEvents btn as CommandButton
Private Sub Btn_Click()
　　MsgBox Btn.Caption
End Sub

' Enterイベントを使って フォーカスを取得したボタンと
' Clickハンドラを結びつける
Private Sub CommandButton1_Enter()
　　set Btn = CommandButton1
End Sub

Private Sub CommandButton2_Enter()
　　set Btn = CommandButton2
End Sub

といった使い方は出来そうです