在第二个用户窗体上填充Combobox

Question

我创建了一个Userform，要求用户填写许多文本框和组合框。表单的一部分有一个命令框，可以打开第二个Userform（Userform 1）。我已设法设置它，但第二个用户窗体的组合框不会填充。我使用完全相同的代码并引用相同的LookupLists（Excel工作表）。我还尝试给组合框一个我手动输入的特定值（cboSENTPROJ1.Value = 9），但这也不起作用。

这是我用于初始化UserForm1的代码：

Private Sub UserForm1_Initialize()

Dim cPROJ As Range
Set ws = Worksheets("LookupLists")

For Each cPROJ In ws.Range("Projects")
  With Me.cboSENTPROJ1
     .AddItem cPROJ.Value
     .List(.ListCount - 1, 1) = cPROJ.Offset(0, 1).Value
   End With
 Next cPROJ

End Sub

Answer 1

将text.value变量声明为Public Variables（位于模块顶部），然后您可以调用组合框分配中的值。