Значение списка равно нулю

Question

Вопрос довольно прост. Конечный пользователь выберет множественный вариант (множественный выбор), затем это значение будет заполнено определенной ячейкой. По какой-то причине, когда я пытаюсь получить доступ к этому значению, оно всегда равно нулю. Я получаю к нему доступ с помощью

Cells(n, "E") = ListBox1.Value

Я делаю этот же процесс с другими элементами управления, такими как поля со списком и текстовые поля, и у меня нет проблем. ListBox происходит из форм, и параметры инициализируются с помощью

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

. Для List Box установлено значение multisele c. Как я могу исправить эту проблему? Спасибо.

Answer 1

Вот один из способов:

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

Существует множество способов форматирования выходных данных, но с этого следует начать.