Vba 如何从文本框输入填充用户表单列表框/组合框数组/列表？

我试图允许用户在文本框中输入数据，并将数据添加到combobox数组中，如何将其保存到代码中

我有一些代码将填充该会话的数据，但在我关闭应用程序后它将消失

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

---

我需要用户能够输入那里的数据，并有它在组合框为其他人以后。任何帮助都将不胜感激！即使是可以为我指明正确方向的搜索词。

也可以这样做。在工作簿中有一张名为“数据”的工作表。当用户使用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

---

像这样做。在工作簿中有一张名为“数据”的工作表。当用户使用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

---

您需要将列表存储在文档中的某个位置，并允许用户编辑该列表。虽然值的长度不能超过255个字符，但可能需要另一种解决方案，可以查看CustomXMLParts eg-hi。您可以使用工作表存储用户输入的值，然后使用它们填充组合X您需要将列表存储在文档中的某个位置，并允许用户编辑该列表。虽然值的长度不能超过255个字符，但可能需要另一种解决方案，可以查看CustomXMLParts eg-hi。您可以使用工作表存储用户输入的值，然后使用它们填充combox