在第二个用户窗体中填充组合框

Question

我创建了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变量作为公共变量（在模块的顶部），然后你可以叫你的组合框分配的值。