在第二個用戶窗體中填充組合框

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變量作爲公共變量（在模塊的頂部），然後你可以叫你的組合框分配的值。