MultiSelection Listbox Userform

Question

У меня есть многосегментный список со стилем опции (chk boxes слева). У меня есть приведенный ниже код для переноса выбранных данных на рабочий лист (это должно быть динамическим, поскольку сам список содержит динамический именованный диапазон).

Private Sub cmdRun_Click() 

Dim i As Integer 

i = 0 

Do While i < lstProperties.ListCount + 1 
    If lstProperties.Selected(i) = True Then 
    Sheet7.Cells(i + 1, 1) = lstProperties.List(i) 
    End If 
    i = i + 1 
Loop 

End Sub 

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

Кто-нибудь знает, как этого избежать?

Answer 1

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

Private Sub cmdRun_Click() 

Dim Rw As Integer 
Dim i As Integer 

Sheet7.Columns(1).ClearContents 

Rw = 1 
i = 0 
Do While i < lstProperties.ListCount 
    If lstProperties.Selected(i) = True Then 
     Sheet7.Cells(Rw, 1) = lstProperties.List(i) 
     Rw = Rw + 1 
    End If 
    i = i + 1 
Loop 

End Sub