提问人：Lachlan Bartsh 提问时间：11/6/2023 更新时间：11/6/2023 访问量：40
从工作表到列表框的返回值
Return values from sheet to listbox
问：
我正在尝试让列表框从工作表返回值。我有代码将信息添加到工作表中，并且基本上想反转它。
myvar = ""
For x = 0 To Me.Listlocation.ListCount - 1
If Me.Listlocation.Selected(x) Then
If myvar = "" Then
myvar = Me.Listlocation.List(x, 0)
Else
myvar = myvar & ", " & Me.Listlocation.List(x, 0)
End If
End If
Next x
Sheets("Phonebook").Range("Data_start").Offset(TargetRow, 18) = myvar
我需要帮助，以便列表框返回所选值。
我试过了
with Data_UF.listprogram.additem.Sheets("Phonebook").Range("Data_start").Offset(TargetRow, 18).value
答：
1赞
taller
11/6/2023
#1
代码应如下所示。请确保是列表框控件的正确引用。Data_UF.listprogram
Data_UF.listprogram.AddItem Sheets("Phonebook").Range("Data_start").Offset(TargetRow, 18).Value
评论
0赞
Lachlan Bartsh
11/22/2023
当我将列表框从 rowsource 更改为 additem 时，这有效。这不完全是我想要的，但它会起作用，谢谢。
评论