エクセルVBAでフォームのボタンとコントロールツールボックスのコマンドボタン

質問

エクセルVBAでフォームのボタンとコントロールツールボックスのコマンドボタンについて教えてください。

実はこれまでフォームしか使ったことがないのですが、フォームのボタンですと、下記のように一つのプロシージャを多数のボタンから呼び出し、呼び出したボタンにより異なった指示が出来ます。

Sub test()
x = Application.Caller
Select Case x
Case "ボタン 1"
MsgBox 1
Case "ボタン 2"
MsgBox 2
Case "ボタン 3"
MsgBox 3
Case "ボタン 4"
MsgBox 4
End Select
End Sub

コントロールツールボックスは

Private Sub CommandButton1_Click()
MsgBox 1
End Sub

Private Sub CommandButton2_Click()
MsgBox 2
End Sub

のようにコマンドボタンごとにひとつずつ書くしかないのでしょうか？

回答No.2

KenKen_SP · ベストアンサー

No.1です。
EXCELのサンプルファイルをダウンロードできるサイトもご紹介しておきます。

参考URL：

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_100_040.html

お礼

重ねてありがとうございます。
勉強してみます。

回答No.1

KenKen_SP

コントロール配列が可能か？というご質問ですね。

基本的に、VBAはコントロール別にイベント処理を書いてやらねばなりません。が、クラスモジュールを使用することで、擬似的にコントロール配列が可能です。

VBAでクラスについて解説された情報はほとんどありませんが、参考URL先にご質問の回答があります。

ご参考までに。

参考URL：

http://www.moug.net/skillup/opm/opm08-01.htm

お礼

さっそくありがとうございます。
クラスモジュールですか。
参考URL、見てみましたが、理解するのが正直言ってかなり難しいです。

でもじっくり勉強してみます。
それまでは使い慣れたフォームでやることにします。

ありがとうございました。