VBA для получения значений из списка в электронной таблице в Excel

У меня есть список с именем ListBox1 на листе 1 книги Excel.

Каждый раз, когда пользователь выбирает один из элементов в списке, мне нужно копировать его имя в переменную с именем strLB.

Итак, если у меня есть Value1, Value2, Value3, Value4 и пользователь выбирает Value1 и Value3, мне нужно, чтобы мой strLB получал значение Value1, Value3. Довольно просто.

Я пытался сделать этоpost hoc с участием:

For i = 1 To ActiveSheet.ListBoxes("ListBox1").ListCount
    If ActiveSheet.ListBoxes("ListBox1").Selected(i) Then strLB = strLB & etc.etc.
Next i

Но это очень медленно (у меня на самом деле 15k значений в моем списке). Вот почему мне нужно записывать выбор в реальном времени, а не в цикле, после того, как пользователь завершил ввод.

Конечно, мне также понадобится способ проверить, удалил ли пользователь какой-либо предыдущий выбор.

Надеюсь, вы, ребята, можете помочь!

Ответы на вопрос(4)

Ваш ответ на вопрос