isListBoxSelected

Function

VBA 유저폼의 리스트박스에서 값이 선택되었는지 여부를 확인하는 사용자 지정 함수입니다.

구문 = isListBoxSelected ( 리스트박스 )

인수구분 형식 설명

리스트박스 필수 MSForms.ListBox

선택 여부를 확인할 리스트박스입니다.

유저폼 안의 리스트박스는 me.Listbox1 과 같이 입력합니다.

마스터 코드

복사한 코드는 VBA 편집기(Alt + F11) 새 모듈에 붙여넣어 사용하세요

Function isListBoxSelected(ListBox As MSForms.ListBox) As Boolean

Dim i As Long

For i = 0 To ListBox.ListCount - 1
If ListBox.Selected(i) Then isListBoxSelected = True: Exit Function
Next

isListBoxSelected = False

End Function

Module1 · isListBoxSelected

Function isListBoxSelected(ListBox As MSForms.ListBox) As Boolean

Dim i As Long

For i = 0 To ListBox.ListCount - 1

If ListBox.Selected(i) Then isListBoxSelected = True: Exit Function

isListBoxSelected = False

End Function

활용 예제

선택된 항목이 없으면 안내 메시지 표시

If isListBoxSelected(me.Listbox1) = False then msgBox "아무런 값도 선택되지 않았습니다." : Exit Sub

4.5 (2개 평가)

신동준 2020.03.11 17:24

잘 보고 있습니다.
영상으로 선생님의 강의 중에 시트를 병합하는 내용을 보고 있는데, 동일하게 코딩했습니다. 그런데, If isListBoxSelected(Me.lstsheet) = False Then MsgBox "시트를 선택하세요.": Exit Sub 에서 계속 오류가 발생하면서, 컴파일 오류 sub 또는 Function 이 정의되지 않았습니다 라는 메시지가 뜹니다. 영상에서는 이 부분에 대한 변수 지정은 없었던 것 같은데.. 어디에서 문제가 있는지 알려 주시면 감사하겠습니다.