내용이 변하는 ListBox 만들기 Ⅱ

Step 1: 동작 살펴보기

아래의 Click 버튼을 누를 때마다 리스트 박스의 내용이 어떻게 변하는지 살펴보시기 바랍니다.

버튼을 누를 때마다 리스트 박스의 내용이 화장품/컴퓨터가 서로 번갈아 가면서 바뀌지요? 코드를 살펴보지요. 아주 간단합니다.

Sheet2에는 아래와 같이 목록으로 사용할 범위가 이름으로 정의되어 있다고 가정합니다(위쪽 6건만 표시했습니다).

Step 2: 코드 작성하기

Sub ChangeComboBoxList()
    Static blnOK As Boolean
    Dim sht As Worksheet
    Dim cmb As Object
    Set sht = ActiveSheet
    Set cmb = sht.DropDowns("MyCombo")
    '//언제나 그랬듯이 필요한 변수를 먼저 선언합니다. 여기서 blnOK 변수를 Static 변수로
    '//선언해 준 것에 유의하시기 바랍니다. 이렇게 하면 프로시저를 시작하더라도 직전의
    '//값을 간직하고 있게 됩니다.
    '//만약 차이점을 파악하시려면 이 구문을 Dim blnOK As Boolean으로 고친 다음에
    '//실행해 보세요.

    If blnOK Then
        cmb.List = Application.Transpose(Range("화장품").Value)
        cmb.ListIndex = 1
        Range("Result") = "화장품 선택"
        '//blnOK의 값이 True이면 콤보박스의 리스트를 "화장품"이라는 범위 내에 있는 값들로
        '//채워 넣고…("화장품"이라는 범위는 Sheet2에 있습니다)

    Else
        cmb.List = Application.Transpose(Range("컴퓨터").Value)
        cmb.ListIndex = 1
        Range("Result") = "컴퓨터 선택"
        '//blnOK의 값이 False이면 콤보박스의 리스트를 "컴퓨터"라는 범위 내에 있는 값들로
        '//채워 넣고 "Result" 영역의 값을 "컴퓨터 선택"이라는 문자열로 대체합니다.

    End If
    blnOK = Not blnOK
    '//이렇게 해 주어야 버튼을 한번 누를 때마다 True, False가 번갈아가며 지정이 됩니다.
    '//일종의 토글 기능이라고 할 수 있습니다.
End Sub

마무리

오늘은 간단하게 여기까지 하겠습니다.

다음 시간에 또…

정리 — 드롭다운 목록 변경 핵심

자주 묻는 질문 (FAQ)

마치며

Static 변수를 활용하면 클릭할 때마다 상태가 번갈아 바뀌는 간단한 토글 기능을 만들 수 있습니다.