Excel VBA comboboxへの割り当て

質問

下記コードにてcomboboxを任意の数作成しました。
このComboboxに Sub Sub1を割り当てたいのですが
どうすればいいでしょうか、
(OnChange,Chaneはエラーでした）

また、その際どのcomboboxからよばれたか引数で渡したいのですが
どうすればいいでしょうか。

'---------------結果こうなるようにしたい
Private Sub ComboBox1_Change()
call sub1("コンボの名前")
End Sub

'----------combobox作成
With Worksheets("AAA").OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False)
.Left = X
.Top = Y
.Width = 100
.Height = 18
.ListFillRange = "LIST"
.OnChange="sub1" ->エラーでした
.Change="sub1" ->エラーでした
End With

回答No.1

Azzz___ · ベストアンサー

こんにちは。

間違った解釈をしていれば、すみませんが、
多分、実装されたいことをするにはクラスモジュールが便利だと思います。
クラスモジュールで動的にコンボボックスを作成し、それをインスタンスとして参照するやり方です。
この方法では何個作成するかを意識しないで作った分だけ勝手に割り当てるようなイメージでできます。

それ以外の方法としては
オブジェクト名に通し番号を付与するようにし、
vba.left(me.combobox1.name,1)

等とするFunction的なプロシージャを入れれば、該当するコンボボックスを発見することができると思います。
ただしこの方法だと、作ったコンボボックスの数だけ、各イベントにコードを書き込む必要があり、数が多いと面倒なのとメンテナンスが大変な気がします。

はずしてたらすみません。

補足

ありがとうございます。
イメージはつかめるのですが、クラスモジュールが不慣れなためどこかサンプルのあるサイト等ごぞんじでしたらお教えください。

回答No.2

imogasi

http://okwave.jp/qa/q5626682.html
に同じ質問をしているようだが、どうだったのか。
ーー
OnAction（ＯｎＣｈａｎｇｅなども）はメニューバーやツールバーでのコンボのコードでは出てくるが、シート上に設けた、コンボでは使えないのではないかな。
そのシートでコードの表示ででるＶＢＥ画面でＧｅｎｅｒａｌ部でComboBoxＸ、右側イベント部でドロップダウンに出てこない。

フォーム上やシート上やツールバー上などそれぞれコードに違いがあるから、安易に考えないこと。
普通は上記の答えにあるように、コンボボックスのComboBox1_Changeイベントなどで処理するはず。
ーー
上記に会った
＞Sheet1でComboBoxを何個貼り付けるか決定（１～１００）
そのあとSheet2に貼り付ける
こんなことは、設計からして常軌を逸していませんか？
あなた思いついたあなたのやりたい既定の方法でなく、別途質問に文章でどういう場合で、どういうことをやりたいのか、諸氏に聞いてみるべきだ。
素人の思いつきで、思った路線で突っ張って走り、難しい問題を投げているように思えてならない。
ＶＢＡではコントロール配列の仕組みもなく、沢山の同種のコントロールを作るとどれが動作したか識別するのに、難しい
仕組みを必要とすると思う。クラスの作成なんてやったこともないレベルではないですか。
場合によってはあきらめざるえないかも。何事も自分の力量に合ったものを考えざるを得ないのが世の常。
ーーー
Private Sub ComboBox1_Change()
call sub1("コンボの名前")
End Sub
結果こうなるようにしたい
なら
OnChange="sub1" ->エラーでした
.Change="sub1" ->エラーでした
を書かなければ良いのではないですか。常識だが、何のことを聞いているのか？

お礼

同じIDを複数で使っているので重複してしまいましたが、それにしても何様？