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

Question

我将使用列表框允许用户进行多选。但是，我不知道将选择的项目放在一列的每个单元格中。这是我的代码。我被困在For语句中，因为我知道它先通过内部循环再通过外部循环运行。任何人都可以帮助您...谢谢

B

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