多个选定的列表框值到单元格值

Question

我在一个按钮上有以下代码，它在用户窗体的列表框中获取 selected 范围并将该值粘贴到 Sheets("VBA_Data").Range("AY1" ).

这仅适用于一个 selection，如果您在列表框中 select 多个 selection，它只会将第一个值添加到单元格 AY1。

我想修改代码，以便它将所有 selected 值添加到列表框中，一个到列 AY 中从 AY1 开始的每个单元格。列表框的范围是可变的，因此这可以是任意数量的 select 离子。

Private Sub CommandButtonRemoveSelectedProjects_Click()

Dim selectioncount As Long
selectioncount = ListBoxProjectsToRemove.Selected(i)

Set TxtRng = ActiveWorkbook.Sheets("VBA_Data").Range("AY1")

For i = 0 To ListBoxProjectsToRemove.ListCount - 1
If ListBoxProjectsToRemove.Selected(i) Then
    SelectedItemText = ListBoxProjectsToRemove.List(i)
End If
Next i

TxtRng.Value = SelectedItemText

End Sub

Answer 1

您可以简单地将目标范围更改为下一个单元格。

Set TxtRng = ActiveWorkbook.Sheets("VBA_Data").Range("AY1")

For i = 0 To ListBoxProjectsToRemove.ListCount - 1
    If ListBoxProjectsToRemove.Selected(i) Then
        TxtRng.Value = ListBoxProjectsToRemove.List(i)
        Set TxtRng = TxtRng.Offset(1)
    End If
Next i

多个选定的列表框值到单元格值

Multiple selected Listbox values to cell values

excel

vba

listbox

userform