Excelde UserForm Kontrol Nesnelerine Döngü ile Mudahele Etme

Projelerinizde birden fazla kontrol nesneleri vardır. Bazen bu nesnelerin tamamı üzerinde aynı işlem yapmanız gerekebilir. Bu durumda her bir kontrol nesnesi için ayrı ayrı kod yazmaktansa bir döngü ile istediğiniz işlemi yapmak daha mantıklıdır ve sizi kod kalabalığından kurtarır. Aşağıda ki kodları inceleyin. Anlaşılacaktır.

 


Private Sub UserForm_Activate()
Dim obj As Control

For Each obj In UserForm6.Controls
If TypeName(obj) = "ComboBox" Then
obj.Style = fmStyleDropDownList
End If
Next obj

End Sub