Excel Listbox值为空

Excel Listbox值为空,excel,vba,Excel,Vba,问题相当简单。最终用户将选择多个选项(多个选择),然后该值将填充某个单元格。出于某种原因,当我尝试访问此值时,它总是空的。我使用 Cells(n, "E") = ListBox1.Value 我对其他控件(如组合框和文本框)执行相同的过程,我没有任何问题。 列表框来自表单,选项初始化为 With ListBox1 .AddItem "Intertie Scheduling Change" .AddItem "Generation Bottling" .AddItem

问题相当简单。最终用户将选择多个选项(多个选择),然后该值将填充某个单元格。出于某种原因,当我尝试访问此值时,它总是空的。我使用

Cells(n, "E") = ListBox1.Value
我对其他控件(如组合框和文本框)执行相同的过程,我没有任何问题。 列表框来自表单,选项初始化为

With ListBox1

    .AddItem "Intertie Scheduling Change"
    .AddItem "Generation Bottling"
    .AddItem "AGC"
    .AddItem "Operating Reserve Change"
    .AddItem "Generation Biasing"
    .AddItem "Internal IT Outage"
    .AddItem "Area Max Reserve"

End With
列表框设置为multiselec。如何解决此问题? 谢谢。

这里有一种方法:

Sub test2()

Dim selectedValues As String

Dim i As Long

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then selectedValues = selectedValues & ListBox1.List(i)
Next i

Cells(1, "A").Value = selectedValues

End Sub
格式化输出有很多不同的方法,但这应该可以让您开始

这里有一种方法:

Sub test2()

Dim selectedValues As String

Dim i As Long

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then selectedValues = selectedValues & ListBox1.List(i)
Next i

Cells(1, "A").Value = selectedValues

End Sub

格式化输出有很多不同的方法,但这应该可以让您开始

您希望将哪个
ListBox
项目存放在单元格中???在此处阅读:@Gary's学生我想用列表框1中选择的值填充单元格。您希望将哪个
ListBox
项目存放在单元格中???在此处阅读:@Gary's学生我想用列表框1中选择的值填充单元格。谢谢很这很有帮助,非常感谢!这很有帮助。