VBAユーザーフォームの動的に作成されたボタンにイベントを追加できません

Question

簡単に言えば、ここにある例：How to add events to Controls created at runtime in Excel with VBAを試してみましたが、自分のボタンをクリックしても何も起こりません。

私は一度にたくさんのボタンを作成していないのですが、ユーザーが特定の追加済みボタンをクリックするたびに新しいボタンが追加されます。

ボタン作成のためのコード：

'Finally the delete button 
Dim newb As MSForms.CommandButton 
'thisQuant is a var keeping track of how many buttons there are 
Set newb = FProducts.Controls.Add("Forms.CommandButton.1", "del" & thisQuant, False) 
Dim Button As New Class1 
Set Button.delButton = newb 

そして例で述べたように、新しいクラス：

Public WithEvents delButton As MSForms.CommandButton 

Private Sub delButton_Click() 
    MsgBox "test" 
    'quantProd = CInt(NewNota.ProductQuant.Caption) 
End Sub 

は、私は、Pythonから来て、VBAは非常に混乱しています。

Answer 1

このタイプのことを行う際によくある間違いは、Class1インスタンスまたはインスタンス/配列のインスタンスをグローバル（つまり、モジュールの上部で、SubまたはFunctionではなく）として宣言するのを忘れることです。 。

これをしないと、カスタムクラスインスタンスが有効範囲外になり、ボタンを作成するコードが終了するとすぐに破棄されます。

Dim Button As Class1 

Sub CreateButton() 
    Dim newb As MSForms.CommandButton 

    '... 

    'thisQuant is a var keeping track of how many buttons there are 
    Set newb = FProducts.Controls.Add("Forms.CommandButton.1", "del" & thisQuant, False) 

    Set Button = New Class1 
    Set Button.delButton = newb 

    '... 

End Sub