Multi-column ListBox 다루기

Step 1: 유저폼 만들기

(1) VB Editor를 연 다음 유저폼을 하나 삽입하고 아래와 같이 컨트롤들을 그려 넣습니다. 여기서 사용된 컨트롤은 1개의 리스트박스와 2개의 커맨드 버튼입니다.

아이엑셀러

Step 2: 예제 데이터

Sheet2의 A1:D18 범위에 브랜드명, 상품명, 수량, 판매금액이 입력되어 있으며, 첫 행은 제목입니다. 다음은 앞부분의 일부입니다.

Step 3: 코드 작성하기

(1) 초기화 이벤트

(2) 먼저 유저폼의 초기화 이벤트(UserForm_Initialize)를 만듭니다. 유저폼을 띄운 상태에서 컨트롤이 없는 빈 영역을 더블클릭하면 UserForm_Click 이벤트가 발생할 것입니다. 여기서 화면 우측 상단의 이벤트 선택 버튼을 클릭한 다음 Initialize 이벤트를 선택하고 아래의 코드를 입력합니다. 노란색 부분이 오늘 강좌의 핵심입니다.

Private Sub UserForm_Initialize()
    With ListBox1
        .ColumnHeads = True
        .ColumnCount = 4
        .RowSource = "Sheet2!A2:D18"
        .ColumnWidths = "70pt;70pt;49pt;95pt"
        '//즉 유저폼의 초기화 이벤트에서 리스트 박스의 헤드부분, 컬럼수, RowSource 영역, 각 컬럼
        '//들의 폭을 설정해 줍니다.

        '//초기화 이벤트에서 설정해 주는 대신 속성창에서 해당 프로퍼티를 직접 조절해 주어도 됩니다.
    End With
End Sub

(2) 선택 버튼

(3) Shift + <F7>키를 눌러 유저폼으로 돌아간 다음 "선택" 버튼을 더블클릭 한 다음 여기에 해당하는 코드 를 다음과 같이 작성합니다. 그런데 "커맨드 버튼을 더블클릭 했는데 왜 그냥 클릭 이벤트가 생기지?" 하는 의문이 생기지 않습니까? 그것은 첫번째 클릭한 것은 해당 컨트롤을 그냥 선택하기 위한 것이기 때문입니다.

Private Sub btnSelect_Click()
    Dim intNum As Integer
    Dim Msg As String

    With ListBox1
        If .ListIndex < 0 Then
            MsgBox "선택이 잘못되었습니다", vbInformation, "Exceller"
            Exit Sub
        End If
        '//리스트 박스에서 유효하지 않은 항목(즉 아무 항목도 선택하지 않았을 경우)을 선택했을 경우
        '//에러 메시지를 보여주고 프로시저를 빠져 나갑니다.

        intNum = .ListIndex + 1
        Msg = .List(.ListIndex) & "를(을) 선택하였습니다"
        MsgBox Msg, , "Exceller"
        '//유효한 항목을 선택하게 되면 해당 항목의 값을 메시지 박스를 통해 보여줍니다.

    End With
End Sub

(3) 닫기 버튼

(4) "닫기" 버튼에 대한 프로시저를 작성합니다.

Private Sub btnClose_Click()
    Unload Me
End Sub

(4) 유저폼 호출

Sub ShowMultiColumnForm()
    UserForm1.Show
End Sub

마무리

오늘 설명드린 내용 중에서 UserForm_Initialize 이벤트에서 사용한 몇 가지 프로퍼티(속성)을 제외하고는 지난 강좌를 잘 이해하신 분이라면 쉽게 만드실 수 있으리라 생각됩니다. 또한 여러 가지 이벤트에 대해 설명하기 위해 초기화 이벤트에 ColumnHeads, ColumnCount 등의 속성을 사용했지만 굳이 이벤트 프로시저를 사용하지 않더라도 "속성창"에서 직접 지정을 해 주어도 됩니다.

오늘은 여기까지…

정리 — 멀티 컬럼 리스트박스 핵심

자주 묻는 질문 (FAQ)

마치며

속성창에서 직접 지정해도 되지만, 이벤트에서 지정하는 방법도 익혀 두시기 바랍니다.