如何使用For语句将列表框中选择的项目分配到每个单元格中

Posted 2021-04-18

我将使用列表框来允许用户进行多选。但是，我不知道将它们选中的项目放入列中的每个单元格中。这是我的代码。我被困在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

答案

你的意思是这样的吗？您需要重新分配到正确的控件。

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