상황에 따라 드롭다운 목록에서 여러 값을 선택해야 할 수도 있습니다. 이 자습서에서는 드롭다운 목록에서 여러 항목을 선택하는 방법을 보여줍니다. 이 세션에서는 Excel 2019를 사용하고 있으므로 원하는 버전을 자유롭게 사용하세요.
세션을 시작하기 전에 예제의 기반이 되는 데이터 세트에 대해 알아보겠습니다.
여기에 몇 가지 편지지 요소가 있으며 이를 사용하여 드롭다운 목록을 만들고 여기에서 여러 항목을 선택합니다.
일을 간단하게 유지하기 위한 간단한 데이터 세트입니다. 실제 시나리오에서는 훨씬 더 크고 복잡한 데이터세트를 접할 수 있습니다.
연습 워크북
아래 링크에서 연습 워크북을 다운로드할 수 있습니다.
드롭다운 목록에서 다중 선택
우선, 편지지를 기반으로 드롭다운 목록을 만들어야 합니다. 빨리 만들어 봅시다. 드롭다운 목록 작성에 관한 기사를 주저하지 말고 방문하십시오.
데이터 유효성 검사에서 대화 상자에서 목록 선택 데이터 유형을 입력하고 항목의 셀 범위를 삽입합니다.
B4:B11 편지지 요소를 보유하는 범위입니다. 이제 드롭다운 목록이 표시됩니다.
자세히 알아보기: 선택 항목에 따른 Excel 드롭다운 목록
1. 여러 항목 선택(중복 선택 허용)
일반적인 드롭다운 목록은 항상 단일 항목을 선택합니다. 여기에서 펜을 선택했습니다. 목록(아래 이미지)에서.
이제 다른 항목을 선택하면 연필
그런 다음 이전 값을 대체합니다. 연필만 선택된 상태로 유지됩니다.
여러 항목을 선택하려면 VBA를 사용해야 합니다. 암호. 응용 프로그램용 Microsoft Visual Basic 을 엽니다. 창(ALT + F11 누르기) 열기).
이제 드롭다운 목록에서 여러 항목을 선택하려는 워크시트 이름이나 번호를 두 번 클릭합니다. 특정 시트에 대한 코드 창을 찾을 수 있습니다.
다음은 Sheet2의 코드 창입니다. (이 시트에 드롭다운 목록이 있습니다).
코드 창이 열리면 거기에 다음 코드를 삽입하십시오.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oldvalue As String
Dim Newvalue As String
On Error GoTo Exitsub
If Target.Address = "$D$4" Then
If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
GoTo Exitsub
Else: If Target.Value = "" Then GoTo Exitsub Else
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
If Oldvalue = "" Then
Target.Value = Newvalue
Else
Target.Value = Oldvalue & ", " & Newvalue
End If
End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub
코드를 저장하고 이제 드롭다운 목록에서 값을 선택하십시오.
연필을 선택한 경우 , 다른 항목을 선택하겠습니다. 노트북 . 두 항목을 모두 찾았습니다(아래 이미지).
이 코드를 사용하면 선택을 반복할 수 있습니다. 연필을 선택한다고 가정해 보겠습니다. 다시,
선택 상자에서 항목을 다시 찾습니다.
코드 설명
두 개의 문자열 Oldvalue을 선언했습니다. 및 새로운 가치 .
D4에서 드롭다운 목록을 만든 것을 볼 수 있습니다. 셀, 이것이 우리의 대상 주소가 D4인 이유입니다. . 또한 셀이 Target.SpecialCells를 사용하여 데이터 유효성 검사를 사용하는지 여부를 다시 확인했습니다. .
값이 선택되면 이벤트(Application.EnableEvents = False ) 변경 사항으로 인해 이벤트가 다시 트리거되지 않습니다. 그런 다음 선택한 항목을 Newvalue에 저장했습니다. .
변경 사항을 취소한 후 값을 Oldvalue로 설정했습니다. . 그런 다음 Oldvalue 비어 있거나 없습니다. 비어 있으면(하나의 값만 선택됨을 의미) Newvalue를 반환합니다. . 그렇지 않으면 Oldvalue를 연결합니다. 및 새로운 가치 .
재설정 이벤트를 종료하기 전에 필요한 경우 변경할 수 있습니다.
자세히 알아보기: 다중 종속 드롭다운 목록 Excel VBA
2. 드롭다운 목록에서 여러 항목 선택(고유한 선택만 해당)
이전 섹션에서 반복이 허용된 다중 선택을 보았습니다. 원하지 않으시면 이 섹션을 따르세요.
편의를 위해 이 데모에서는 별도의 시트를 사용했습니다. 이번에는 Sheet3에 있습니다. 이 시트의 코드 창에 다음 코드를 작성하십시오.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
If Target.Address = "$D$4" Then
If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
GoTo Exitsub
Else: If Target.Value = "" Then GoTo Exitsub Else
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
If Oldvalue = "" Then
Target.Value = Newvalue
Else
If InStr(1, Oldvalue, Newvalue) = 0 Then
Target.Value = Oldvalue & ", " & Newvalue
Else:
Target.Value = Oldvalue
End If
End If
End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub
이전 코드와 차이점이 있나요! 자세히 보시면 미세한 차이를 느끼실 수 있습니다.
여기에서는 VBA를 사용했습니다. INSTR이라는 함수 . INSTR 함수는 문자열에서 부분 문자열이 처음 나타나는 위치를 반환합니다. 자세한 내용은 이 INSTR 기사를 참조하십시오.
InStr(1, Oldvalue, Newvalue) =0과 함께 이 논리 연산을 사용하여 값을 찾았는지 여부를 확인했습니다. 논리 연산이 TRUE 를 반환하는 경우 (이전에 찾을 수 없음) 항목을 선택하고 이전 값과 연결할 수 있습니다.
코드를 저장하고 이제 이미 선택된 항목을 선택하십시오.
여기에서는 이미 연필을 선택했습니다. , 다시 선택하고 싶다면 할 수 없습니다. 중복 값을 허용하지 않습니다.
자세히 알아보기: Excel의 다른 시트에서 드롭다운 목록을 만드는 방법
3. 줄 바꿈에서 항목 선택
지금까지 쉼표로 구분된 항목을 찾았습니다. 이 섹션에서는 선택한 항목을 줄 바꿈으로 정렬합니다.
단순화를 위해 몇 개의 셀을 D4 셀. 그렇게 하려면 병합할 셀을 선택하고 병합 및 가운데 맞춤을 클릭합니다. 정렬에서 홈 섹션 탭.
세포의 높이가 더 높아집니다.
이제 개행을 통해 항목을 구분하는 코드를 살펴보겠습니다. 다음 코드 사용
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
If Target.Address = "$D$4" Then
If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
GoTo Exitsub
Else: If Target.Value = "" Then GoTo Exitsub Else
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
If Oldvalue = "" Then
Target.Value = Newvalue
Else
If InStr(1, Oldvalue, Newvalue) = 0 Then
Target.Value = Oldvalue & vbNewLine & Newvalue
Else:
Target.Value = Oldvalue
End If
End If
End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub
이전 코드와 유일한 차이점은 이번에는 vbNewLine을 사용했다는 것입니다. OldValue 사이 및 NewValue .
vbNewLine 항목 사이에 새 줄을 제공합니다.
이제 항목을 선택하십시오.
펜 항목을 선택합니다. 위의 이미지에서 보여주고 있는 것입니다. 이제 다른 요소를 선택하십시오.
두 항목이 다른 줄에 있음을 알 수 있습니다.
여기에 두 개의 다른 행에 있는 두 개의 값이 있습니다. 다른 값을 선택하면 해당 값이 다른 줄에 추가됩니다. 모든 값은 새 줄에 있습니다.
항목을 구분하는 다른 구분 기호를 사용하려면 vbNewline 대신 큰따옴표 안에 구분 기호를 사용하세요. .
결론
오늘은 그게 다야. 드롭다운 목록에서 여러 항목을 선택하는 몇 가지 방법을 나열했습니다. 이 정보가 도움이 되기를 바랍니다. 이해하기 어려운 점이 있으면 언제든지 의견을 말하십시오. 여기에서 놓친 다른 방법을 알려주십시오.
추가 자료
- Excel의 여러 열에 드롭다운 목록을 만드는 방법(3가지 방법)
- Excel의 드롭다운 목록과 셀 값 연결(5가지 방법)
- Excel의 조건부 드롭다운 목록(생성, 정렬 및 사용)
- Excel에서 동적 종속 드롭다운 목록 만들기
- IF 문을 사용하여 Excel에서 드롭다운 목록을 만드는 방법
- Excel의 드롭다운 목록이 있는 VLOOKUP