Excel VBA를 사용하여 ListBox에서 여러 사용자 입력 저장

Question

사용자가 ActiveX ListBox (ListBoxTest1)에서 여러 옵션을 선택한 다음 다른 시트의 별도 행에 선택 사항을 저장하게하려고합니다. 여기에 표시된 첫 번째 줄이 실행될 때 "워크 시트 클래스의 ListBoxes 속성을 가져올 수 없습니다"오류가 계속 발생합니다.

Set listX = Sheets("Availability Criteria").ListBoxes("ListBoxTest1") 

With listX 
    For i = 1 To .ListCount 
     If .Selected(i) Then 
      Sheets("WorkingSheet").Cells(i + 4, "F").Value = .Items(i) 
     End If 
    Next i 
End With 

은 내가 .Items 속성이 나는 목록 상자에서 입력을 위해 필요한 무엇이라고 생각하지만, 아마 그 문제의 불법 재산입니다. 모든 코드는 private 섹션이 아닌 modules 섹션에 있습니다.

저는 여전히 Excel의 VBA에 새로운 있습니다 .... 제발 도와주세요.

Answer 1

Worksheet 실제로는 ListBoxes 속성이없고 Sheets("Availability Criteria")은 강력한 형식의 Worksheet을 반환합니다. 컬렉션에 액세스 할 수 아마도 가장 간단한 방법은 후반 바인드 Worksheet이다 :

Dim sh As Object 
Set sh = Sheets("Availability Criteria") 
Set listX = sh.ListBoxes("ListBoxTest1") 

편집

위의 코드는 폼 컨트롤에 적용됩니다. ActiveX 컨트롤의 경우 OLEObjects 컬렉션을 통해 액세스해야합니다.

Dim listX As MSForms.ListBox 
Set listX = Sheets("Availability Criteria").OLEObjects("ListBoxTest1").Object 

With listX 
    For i = 1 To .ListCount 
     If .Selected(i) Then 
      Sheets("WorkingSheet").Cells(i + 4, "F").Value = .List(i) 
     End If 
    Next i 
End With