我试图让列表框从工作表返回值。我有代码添加信息到工作表,本质上是想扭转它。
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
字符串
我需要帮助,以便列表框返回所选的值。
我已经尝试
第一个月
1条答案
按热度按时间llmtgqce1#
代码应该如下所示。请确保
Data_UF.listprogram
是列表框控件的正确引用。字符串