Как заполнить массив userbox list / combobox Array / list из ввода текстового поля?

Question

Я пытаюсь разрешить пользователю вводить данные в текстовое поле и добавить эти данные в массив выпадающего списка, как я могу сохранить их в коде?

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

Private Sub CommandButton1_Click()
   If TextBox1.TextLength > 0 Then
      UserForm1.ComboBox2.AddItem TextBox1.Value
      TextBox1.Value = ""
   Else
      Exit Sub
   End If
End Sub

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

Мне нужно, чтобы пользователь мог вводитьесть данные, и они будут в комбинированном списке для всех остальных позже. Любая помощь будет оценена! Даже поисковые термины, которые могут указать мне правильное направление.

Answer 1

Сделай что-нибудь подобное. Есть лист в вашей книге под названием «Данные». Когда пользователь добавляет что-то с помощью commandbutton1, он переходит к столбцу A в Таблице данных и помещает значение пользователя в следующую доступную строку.

Когда вы загружаете другую форму, она перебирает столбец A и захватывает все значенияи добавьте их в поле со списком.

    Private Sub CommandButton1_Click()
        Dim lastrow As Long: lastrow = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1

       If TextBox1.TextLength > 0 Then
          Sheets("Data").Cells(lastrow, 1).Value = TextBox1.Value
          TextBox1.Value = ""
       Else
       MsgBox "Please enter a value"
          Exit Sub
       End If
    End Sub


    Private Sub UserForm_Initialize()

    For i = 1 To Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
        ComboBox2.AddItem Sheets("Data").Cells(i, 1).Value
    Next

    End Sub