VBAで作成したComboboxにVBAでマクロを割り当てたい。

質問

下記コードでcomboboxをつくったのですが
作成されたCombobox1のComboBox1_Changeエベントに
標準モジュール内のSub cal をVBAで割り当てたいのですが可能でしょうか。

コンボボックス作成マクロ

x=0
y=0
With Worksheets("Sheet1").OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False)
.Left = X
.Top = Y
.Width = 53.25
.HEIGHT = 18
.ListFillRange = "AAA"
End With

これで作成したコンボボックスに標準モジュール内マクロをVBAで割りあてしたい。

標準モジュール
sub cal
・
・
end sub

回答No.3

nagare · ベストアンサー

三度です

>ComboBoxを貼り付けるシートも毎回作成するのでこれもだめで
打開案ですがどうでしょうか?

作成するシートにComboBoxを貼り付けるのではなく、
ComboBoxが張り付いているシートをコピーする
(ComboBoxが張り付いているシートは非表示)

これだと、関数自体もコピーされますし、
関数名も固定でいけます

参考までに

補足

説明不足ですみません。
Sheet1でComboBoxを何個貼り付けるか決定（１～１００）
そのあとSheet2に貼り付ける
その貼り付け位置も他の条件で１２種類あるので
かなり複雑になりそうです。
が、ほかに方法もなさそうなのでやってみます。

回答No.2

nagare

勘違いすみません

OnActionプロパティでマクロを登録するのですが、ComboBoxだとできないみたいです。
ちなみに、CheckBoxだとできます。
With ActiveSheet.CheckBoxes.Add(10, 10, 20, 20)
.Name = "CheckBox　" & .Index
.Caption = ""
.OnAction = "cal"
End With

手として
ComboBox_Change関数をあらかじめ複数個書いておく
というのはダメでしょうか?

補足

ありがとうございました。
ComboBoxはだめですか。
ComboBox_Change関数をあらかじめ複数個書いておくのも考えたのですがそもそもComboBoxを貼り付けるシートも毎回作成するのでこれもだめで。

回答No.1

nagare

Private Sub ComboBox1_Change()
Call cal
End Sub

これでよければできますよ

補足

結果てきに

Private Sub ComboBox1_Change()
Call cal
End Sub

になるようにCombobox作成マクロはつくれますか？