Как назначить элементы, выбранные в списке, в каждую ячейку с помощью оператора For

Question

Я собираюсь использовать список, чтобы разрешить пользователям многократный выбор. Однако я понятия не имею, помещать ли они выбранные элементы в каждую ячейку столбца. Вот мои коды. Я застрял в операторе For, так как знаю, что он выполняется, проходит через внутренний цикл, а затем внешний цикл. Любой может помочь ... Спасибо

Private Sub lbaspectc_AfterUpdate()

For Each selected In Me.listbox.ItemsSelected

    For Each c3 In Worksheets("maintenance").Range(Cells(2, 7), Cells(, 7))  'Here i would like to start filling in from cell G2. I am not sure if the syntax is correct'

        c3.Value = selected.Value
    Next
Next

End Sub

Answer 1

Вы имеете в виду, как это? Вам нужно будет переназначить правильный элемент управления.

Private Sub CommandButton1_Click()

Dim i As Long, j As Long

j = 2

With Me.ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            Worksheets("maintenance").Cells(j, 7).Value = .List(i)
            j = j + 1
        End If
    Next i
End With

End Sub