VBA에서 사용자 폼의 콤보 상자 목록에 값 추가

사용자 폼의 콤보 상자

Private Sub UserForm_Initialize()'コンボボックスのリストに作成シート名を追加する
    Dim IDCol As Long 'IDの列番号を格納する変数
    IDCol = WorksheetFunction.Match("ID", Master.Rows(1), 0) 'Match関数で列数格納
    Dim LastRow As Long '最終行を格納する変数
    LastRow = Master.Cells(Rows.Count, IDCol).End(xlUp).Row '最終行格納
    Dim i As Long

    For i = 2 To LastRow 'コンボボックスにIDをすべて追加する
        cmbID.AddItem Master.Cells(i, IDCol).Value
    Next i

End Sub

와타시 흐름 조건