Как добавить элементы в ComboBox из строки листа Excel?

Question

Я новичок в мире макросов VBA. Я пытаюсь создать форму пользователя с несколькими ComboBox в нем. Я знаю метод для элемента по одному, но я пытаюсь добавить целую строку из другого листа Excel.

Что я пробовал:

Private Sub UserForm_Initialize() 'initialize the user form
    Dim lRow As Long
    Worksheets("Data").Activate
    lRow = Cells(Rows.Count, 1).End(xlUp).Row

    ComboBox1.List = Sheets("Data").Range("B2:lRow").Value
End Sub

I ' Получил с этим ошибку выполнения '1004'.

Может ли кто-нибудь мне помочь? Приветствия.

Answer 1

Попробуй это. Ваш синтаксис был немного выключен. Range("B2:lRow") недопустимый диапазон.

И вы можете избежать активации листа.

Private Sub UserForm_Initialize() 'initialize the user form
    Dim lRow As Long

    With Worksheets("Data")
        lRow = .Cells(Rows.Count, 1).End(xlUp).Row
        ComboBox1.List = .Range("B2:B" & lRow).Value
    End With

End Sub

Answer 2

Попробуйте ComboBox1.List = Sheets("Data").Range("B2:B" & lRow).Value