VBA kodu

Question

adım adım farklı davranıyorsa Kullanıcı formumdaki herhangi bir ComboBox "change" olayını işleyecek kod yazmayı deniyorum.

Ben this Sorunun cevabı geçti ve

Ancak, çalışmayan bir ayrı sınıf, vb yarattı. Yeni bir proje üzerinde aynı kodu kullanmak iyi çalışıyorsa, bu projedeki bu kod bazen "adım adım" yürütme (F8) kullandığımda çalışır, ancak normal çalıştırma kullanıldığında işe yaramıyor.

Diğer insanların benzer çıkmazlarına baktığımda "DoEvents" ekledim ancak bu yardımcı olmadı.

Private WithEvents TriggerComboBox As MSForms.ComboBox 

Public Property Set Control(CB As MSForms.ComboBox) 
    Set TriggerComboBox = CB 
End Property 

Private Sub TriggerComboBox_Change() 
    MsgBox ("yay") 
End Sub 

Answer 1

ComboBox_Collection ihtiyaçlar (Global değişken olması, en azından, Küresel formunuz en:

Bu "ComboBox_Class" adlı UserForm

Private Sub UserForm_Initialize() 

Dim ComboBox_Collection As Collection 
Dim ctrl As Control 
Dim cbc As ComboBox_Class 

Set ComboBox_Collection = New Collection 
    For Each ctrl In UserForm1.MultiPage.Pages(2).Controls 
    DoEvents 
     If TypeName(ctrl) = "ComboBox" Then 
      DoEvents 
      Set cbc = New ComboBox_Class 
      Set cbc.Control = ctrl 
      ComboBox_Collection.Add cbc 
      DoEvents 
     End If 
    Next ctrl 
Set cbc = Nothing 

End Sub 

Ve sınıf modülünde benim koddur kod modülü) veya UserForm_Initialize Sub'nuzun