Есть ли способ добавить в список со списком, используя текстовое поле и кнопку?

Question

Я ищу способ добавления элементов в список со списком без непосредственного добавления элемента в код.

Изображение пользовательской формы

Private Sub UserForm_Initialize()
    With ComboBox2
         .AddItem ".020"
         .AddItem ".030"
         .AddItem ".032"
         .AddItem ".040"
   End With

   With ComboBox3
        .AddItem "THK"
        .AddItem "DIA"
        .AddItem "TUBE"
        .AddItem "FORGING"
    End With
End Sub

Iхотелось бы, чтобы пользователь мог добавлять элемент в выпадающий список, не вдаваясь в код. Есть ли способ добавить .AddItem в комбинированный список?

Answer 1

В отличие от ListBoxes, ComboBoxes позволяют пользователю вводить новую запись непосредственно в поле comboBox. Это самое простое решение, дополнительный код не требуется!

Если по какой-то причине вы хотите сделать это более сложным, вы можете добавить текстовое поле и командную кнопку. После того, как пользователь вводит новую запись в текстовое поле, он нажимает кнопку, которая запускает этот макрос:

Private Sub CommandButton1_Click()
  ComboBox3.AddItem TextBox1.value
End Sub