excel 从工作表返回值到列表框

odopli94  于 7个月前  发布在  其他
关注(0)|答案(1)|浏览(71)

我试图让列表框从工作表返回值。我有代码添加信息到工作表,本质上是想扭转它。

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

字符串
我需要帮助,以便列表框返回所选的值。
我已经尝试
第一个月

llmtgqce

llmtgqce1#

代码应该如下所示。请确保Data_UF.listprogram是列表框控件的正确引用。

Data_UF.listprogram.AddItem Sheets("Phonebook").Range("Data_start").Offset(TargetRow, 18).Value

字符串

相关问题