EXCEL VBA: код пользовательской формы, улучшение повторяющегося кода

Question

Есть ли более эффективный способ написать этот код пользовательской формы?

Private Sub Userform_Initialize() 

'do stuff 

    With Item1_DropDown 
     .AddItem "Monday" 
     .AddItem "Tuesday" 
     .AddItem "Wednesday" 
    End With 

    With Item2_DropDown 
     .AddItem "Monday" 
     .AddItem "Tuesday" 
     .AddItem "Wednesday" 
    End With 

    With Item3_DropDown 
     .AddItem "Monday" 
     .AddItem "Tuesday" 
     .AddItem "Wednesday" 
    End With 

'and so on, and so on. (I have about fifty of these 'With/End With' blocks) 

End Sub 

В принципе, я хотел бы иметь возможность прекратить записывать многие из этих блоков «С/с С». Прямо сейчас, у меня есть этот тип кода в четырех моих аналогично построенных пользовательских формах. Это занимает столько текстового пространства, и это кажется пустой тратой. Есть лучший способ сделать это?

Пожалуйста, знайте, что я никогда не писал модуль класса. Итак, если это требует решение, мне нужно будет в него поработать.

Спасибо,

Элиас

Answer 1

полочкам код с подпрограммами :)

Предполагая, что ваши выпадающие являются ComboBox управления формы:

Private Sub Userform_Initialize() 

    PopulateDropDown Item1_DropDown 
    PopulateDropDown Item2_DropDown 
    PopulateDropDown Item3_DropDown 

End Sub 

Sub PopulateDropDown(cb as MSForms.ComboBox) 

    With cb 
     .AddItem "Monday" 
     .AddItem "Tuesday" 
     .AddItem "Wednesday" 
    End With 

End Sub 

Answer 2

взгляд на создание подпрограммы для заполнения его. Подробнее здесь ...

http://www.vbforums.com/showthread.php?607511-RESOLVED-Excel-VBA-How-to-add-the-same-items-to-multiple-combo-boxes

Answer 3

Кроме того, вы можете заполнить элементы с помощью List :

Private Sub UserForm_Initialize() 
    Me.ComboBox1.List = Array("Monday", "Tuesday", "Wednesday") 
End Sub 

Вы можете определить этот массив (Variant) один раз:

Private days As Variant 

Private Sub UserForm_Initialize() 
    days = Array("Monday", "Tuesday", "Wednesday") 
    Me.ComboBox1.List = days 

End Sub 

Я хотел бы также воспользоваться Tag собственности (каждого выпадающий список), чтобы отличить тех, которые должны быть заполнены с этими значениями:

Private days As Variant 

Private Sub UserForm_Initialize() 
    Dim ctl As Control 

    days = Array("Monday", "Tuesday", "Wednesday") 

    For Each ctl In Me.Controls 
     If TypeOf ctl Is ComboBox And ctl.Tag = "days" Then 
      ctl.List = days 
     End If 
    Next ctl 

End Sub