コンボボックスを2番目のユーザーフォームに配置する

Question

Userformを作成しました。これは、ユーザーが複数のテキストボックスとコンボボックスを入力する必要があります。フォームの一部には、第2のUserform（Userform 1）を開くコマンドボックスがあります。私はそれを設定することができましたが、2番目のuserformのコンボボックスには値が設定されません。私は全く同じコードを使用しており、同じ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し、その後、あなたのコンボボックスの割り当ての値を呼び出すことができます宣言します。