Private Sub CommandButton1_Click()

    'Дефиниране на променлива за брояча

    Dim Row As Long

    'Установяване на брояча на първия ред от данните

    Row = 1

    'Изчистване на стари данни в комбо-бокса

    ComboBox1.Clear

    

    'Стартиране на цикъл, който се повтаря, докато има

    'данни в реда, на който е установен брояча

    Do While Worksheets("Sheet1").Range("A" & Row) <> ""

        'Прехвърляне на данните от таблицата в комбо-бокса

        ComboBox1.AddItem (Worksheets("Sheet1").Range("A" & Row))

        'Увеличаване на брояча с 1-ца

        Row = Row + 1

    Loop

    

End Sub

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите