VBA：ユーザーフォームが初期化されるときにユーザーフォームの初期化メソッドがヒットしない - UserForm.UserForm_Activateソリューションが現在動作中です

Question

私はワークフォーム上にボタンを持っています。下記を参照してください：

Sub newjoin() 
UserForm.UserForm_Activate 
NewJoinerEntry.Show 
End Sub 

上記の投稿を見てUserForm.UserForm_Activateを追加しました。

まず、UserForm.UserForm_Activateでエラーが発生します。実行時エラー '424'：オブジェクトが必要です。私はそのはが起こっていない&コンボボックスの値を移入するために使用してい

Public Sub UserForm_Initialize() 
Dim cntr As Integer 
cntr = Application.WorksheetFunction.CountA(Sheets("SITES").Range("B2:B65536")) 

Combosite.Clear 
For obt = 2 To cntr 
Me.Combosite.AddItem Cells(obt, 5) 
Next obt 
End Sub 

：私は私のユーザーフォームで

Additioanlly。

ユーザーフォームには、コマンドボタンをクリックしてフォームの結果を送信し、ユーザーフォームが初期化されたときにコンボボックスがデータを取得した場合にのみ、そのすべてが表示されます。

Answer 1

あなたはあなたの範囲のループをすることができますし、このようなコンボボックスに値を追加します、

Private Sub UserForm_Initialize() 
    Dim rng As Range 
    Dim SelectedRange As Range 
    Dim LastRow As Long 
    Dim sh As Worksheet 

    Set sh = ThisWorkbook.Sheets("SITES") 
    LastRow = sh.Range("B" & Rows.Count).End(xlUp).Row 
    Set SelectedRange = sh.Range("G2:G" & LastRow) 

    ComboBox1.Clear 

    For Each rng In SelectedRange 
     ComboBox1.AddItem rng.Value 
    Next rng 

End Sub 

私はあなたの元のコードで見たように、このコードは、列Bに基づいてシートにダイナミックレンジを設定します列Gからの値が必要です。したがって、SelectedRangeは列Gから値を取得し、それをComboBoxに入れています。