Excel에서 명명된 범위의 데이터로 콤보 박스를 채우는 방법은 무엇입니까?

콤보 박스(ActiveX 컨트롤)에 특정 범위의 데이터를 지정하려면 해당 범위를 콤보 박스의 ListFillRange 속성에 추가하면 됩니다. 하지만 Excel에서 명명된 범위의 데이터로 콤보 박스를 채우는 방법을 알고 있습니까? 예를 들어, 워크시트에서 셀 범위에 이름을 지정한 후 이 범위 이름을 콤보 박스에 지정해야 한다고 가정해 봅시다. 한 콤보 박스에서 범위 이름을 선택하면 이 명명된 범위의 모든 셀 값이 다른 콤보 박스에 자동으로 채워집니다. 이 문서에서는 VBA 방법을 통해 이 문제를 해결하는 방법을 소개합니다.

VBA 코드를 사용하여 명명된 범위의 데이터로 콤보 박스 채우기

VBA 코드를 사용하여 명명된 범위의 데이터로 콤보 박스 채우기

Excel에서 명명된 범위의 데이터로 콤보 박스를 채우려면 다음 단계를 따르세요.

1. 워크시트에서 전체 헤더를 선택하세요 (이 경우 A1:E1을 선택함). 그런 다음 아래 스크린샷에 표시된 대로 이름 상자에 이름을 입력하세요.

2. 각 열 데이터의 헤더를 제외하고 선택한 후, 이름 상자를 사용하여 각 열에 별도로 이름을 지정하세요. 스크린샷 참조:

이 경우 A2:A8, B2:B8, C2:C8, D2:D8 및 E2:E8 범위를 각각 날짜, 상점, 항목, 판매, 평일로 명명했습니다.

3. 개발 도구 > 삽입 > 콤보 박스 (ActiveX 컨트롤)을 클릭하여 콤보 박스를 삽입합니다. 스크린샷 참조:

4. 3단계를 반복하여 워크시트에 다른 콤보 박스를 삽입합니다.

5. 시트 탭을 마우스 오른쪽 버튼으로 클릭한 다음 컨텍스트 메뉴에서 코드 보기 옵션을 클릭합니다. 스크린샷 참조:

6. 열리는 Microsoft Visual Basic for Applications 창에서 아래 VBA 코드를 복사하여 코드 창에 붙여넣으세요.

VBA 코드: 명명된 범위의 데이터로 콤보 박스 채우기

Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
    Dim xRg As Range
    Set xRg = Range(Me.ComboBox1.Text)
    Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Set xRg = Range("Headers")
    Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

참고: 코드에서 ComboBox1은 모든 범위 이름이 나열될 콤보 박스의 이름이며, ComboBox2는 지정된 명명된 범위의 데이터가 채워질 콤보 박스의 이름입니다. 'Headers'는 1단계에서 생성한 범위 이름입니다.

7. 개발 도구 > 디자인 모드를 클릭하여 디자인 모드를 비활성화합니다.

8. 워크시트의 아무 셀이나 클릭하여 코드를 활성화합니다. 첫 번째 콤보 박스의 화살표 버튼을 클릭하면 모든 명명된 범위가 안에 나열된 것을 확인할 수 있습니다. 스크린샷 참조:

첫 번째 콤보 박스에서 명명된 범위를 선택하면 해당 셀 데이터가 두 번째 콤보 박스에 아래 스크린샷과 같이 채워집니다:

관련 기사:

• Excel에서 콤보 박스 값을 활성 셀에 복사하는 방법은 무엇입니까?
• Excel에서 콤보 박스 출력에 날짜 형식을 표시하려면 어떻게 해야 합니까?
• Excel에서 콤보 박스에 입력하는 것을 방지하거나 비활성화하려면 어떻게 해야 합니까?
• 통합 문서가 열릴 때 지정된 데이터로 콤보 박스를 채우려면 어떻게 해야 합니까?
• Excel 드롭다운 목록에서 값을 선택할 때 다른 셀을 자동으로 채우려면 어떻게 해야 합니까?