MultiSelection Listbox Userform

Question

옵션 스타일 (왼쪽의 chk 상자)이있는 다중 선택 목록 상자가 있습니다. 선택한 데이터를 워크 시트에 전송하기 위해 아래 코드를 사용했습니다 (목록 상자 자체가 동적 명명 된 범위로 입력되므로 동적이어야합니다). 이 일을하고 싶어하지만 명령은 첫 번째 루프 후 목록 상자 데이터를 선택 해제 따라서 만 목록 상자에서 첫 번째 선택을 전치되는 프로그램을 실행할 때 내가 생각처럼

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