엑셀 매크로 VBA 콤보상자 생성 ID 추가 방법

안녕하세요, 이번 포스팅은 엑셀 매크로 VBA 콤보상자 생성 ID 추가 방법 대해서 알아보도록 하겠습니다.

엑셀 VBA를 사용하여 여러가지 항목 중에 선별적으로 선택을 할 수 있는 콤보상자를 활용하는 경우가 있습니다.

이때 이 콤보상자를 어떻게 짜임새 있게 만들고 해당 콤보상자에 ID를 추가하는 부분에 대해서 궁금하시다면 아래 제가 작성한 내용 참조 하시면 도움이 되실 겁니다.

그럼 엑셀 매크로 VBA 콤보상자 생성 ID 추가 방법 대해서 자세히 알아보도록 하겠습니다.

엑셀 매크로 VBA 콤보상자란?

1) 콤보상자란?

콤보상자는 사용자가 선택할 수 있는 목록을 표시해주는 엑셀 컨트롤입니다.

일반적으로 드롭다운 목록이라고도 불리며, 사용자가 목록에서 항목을 선택할 수 있도록 합니다.

콤보상자는 데이터 입력을 단순화하고 오류를 줄이는 데 유용합니다.

VBA를 사용하여 이 콤보상자에 ID를 추가하는 것은 후속 조작에 대한 접근성을 향상할 수 있습니다.

▶ 엑셀 Excel 통합문서 암호 설정 해제 복구

2) 데이터 유효성 검사

엑셀에서는 데이터 유효성 검사 메뉴를 통해서 구현이 가능합니다.

참고하시라고 엑셀 메뉴를 활용한 매크로 VBA 콤보상자 구현하는 방법에 대해서 설명 드리도록 하겠습니다.

STEP 1 – 엑셀 메인 메뉴에서 ‘데이터’ 항목을 클릭을 하면 우측 부분에 ‘데이터 유효성 검사’ 항목이 보이실 겁니다.

STEP 2 – ‘데이터 유효성 검사’ 항목을 클릭을 하면 데이터 유효성 제한 대상 항목에 ‘목록’을 선택을 하고 기존에 설정한 항목이 없다면 ‘원본’ 항목에 목록상자에 넣을 항목들을 ‘,’ 쉼표를 구분자로 두고 입력을 해주시면 오른쪽 그림처럼 구현이 됩니다.

▶크롬 단축키 (feat. 윈도우 버전, 맥북 버전)

엑셀 매크로 VBA 콤보상자 생성 및 ID 추가 방법

그럼 위에서 데이터 유효성 검사 메뉴를 활용하여 만든 콤보상자를 매크로를 이용하여 구현하는 방법에 대해서 설명 드리도록 하겠습니다.

매크로를 이용하여 콤보상자를 만들고 해당 콤보상자의 각 항목에 고유한 ID 값을 할당하게 되는데 그 이유는 매크로 구현 시 필요하기 때문입니다.

왜냐하면 할당한 ID를 통해 콤보상자에서 선택된 항목을 구별하고 처리할 수 있습니다.

아래는 이를 수행하는 간단한 예제 코드입니다.

Sub AddIDtoComboBox()
    Dim ComboBox As OLEObject
    Dim i As Integer
    
    ' 콤보상자 생성
    Set ComboBox = Sheet1.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
                    Link:=False, DisplayAsIcon:=False, _
                    Left:=100, Top:=100, Width:=200, Height:=20)
    
    ' 콤보상자에 항목 추가
    With ComboBox.Object
        .AddItem "항목 1"
        .AddItem "항목 2"
        .AddItem "항목 3"
        ' 추가 항목 ...
    End With
    
    ' 항목에 ID 할당
    For i = 1 To ComboBox.Object.ListCount
        ComboBox.Object.List(i - 1, 1) = "ID_" & i
    Next i
End Sub

위 코드는 Sheet1에 새로운 콤보상자를 추가하고, 각 항목에 “ID_순번” 형식의 ID를 할당하는 것을 보여줍니다.

이렇게 하면 선택된 항목의 ID를 쉽게 식별하고 처리할 수 있습니다.

▶ 엑셀 매크로 VBA 목록상자 다중선택 엑셀 값 추가 방법

추가 예제

그럼 위에서 설명 드린 엑셀 매크로 VBA 콤보상자에 ID 추가 방법을 활용하는 추가 예제를 만들어서 설명 드리도록 하겠습니다.

✔ 예제: 선택된 항목의 ID 출력하기

다음 예제 코드는 콤보상자에서 항목을 선택할 때 선택된 항목의 ID를 출력하는 예제입니다.

선택된 항목의 ID를 가져오기 위해서는 콤보상자의 Value 속성을 사용합니다.

Sub ShowSelectedID()
    Dim SelectedID As String
    
    ' 콤보상자에서 선택된 항목의 ID 가져오기
    SelectedID = Sheet1.ComboBox1.Value
    
    ' 선택된 항목의 ID 출력
    MsgBox "선택된 항목의 ID는: " & SelectedID
End Sub

위 코드를 실행하면 선택된 항목의 ID가 메시지로 출력됩니다.

이렇게 함으로써 선택된 항목의 ID를 쉽게 확인할 수 있습니다.

▶파일질라 (FileZilla) 다운로드 설치 방법