Note: The other languages of the website are Google-translated. Back to English

Excel에서 여러 선택 또는 값이있는 드롭 다운 목록을 만드는 방법은 무엇입니까?

기본적으로 Excel의 데이터 유효성 검사 드롭다운 목록에서 항목을 하나만 선택할 수 있습니다. 아래 gif와 같이 드롭다운 목록에서 여러 항목을 어떻게 선택할 수 있습니까? 이 문서의 방법은 문제를 해결하는 데 도움이 될 수 있습니다.

VBA 코드로 여러 선택 항목이있는 드롭 다운 목록 만들기
놀라운 도구를 사용하여 여러 선택 항목이있는 드롭 다운 목록을 쉽게 생성

드롭 다운 목록에 대한 추가 자습서 ...


VBA 코드로 여러 선택 항목이있는 드롭 다운 목록 만들기

이 섹션에서는 워크시트의 드롭다운 목록에서 여러 항목을 선택하는 데 도움이 되는 두 가지 VBA 코드를 제공합니다. 두 VBA 코드는 다음을 달성할 수 있습니다.

VBA 코드 1: 중복 없이 드롭다운 목록에서 다중 선택 허용
VBA 코드 2: 중복 없이 드롭다운 목록에서 다중 선택 허용(기존 항목을 다시 선택하여 삭제)

다음 VBA 코드 중 하나를 적용하여 Excel 워크시트의 드롭다운 목록에서 여러 항목을 선택할 수 있습니다. 다음과 같이 하십시오.

1. 여러 항목을 선택할 데이터 유효성 검사 드롭다운 목록이 포함된 워크시트를 엽니다. 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 코드보기 컨텍스트 메뉴에서.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창에서 아래 VBA 코드를 코드 창에 복사하십시오. 스크린 샷보기 :

VBA 코드 1: 중복 없이 드롭다운 목록에서 다중 선택 허용

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2019/11/13
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or _
                   InStr(1, xValue1, ", " & xValue2) Or _
                   InStr(1, xValue1, xValue2 & ",") Then
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & ", " & xValue2
                End If
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

3. 누르세요 다른 + Q 닫는 키 응용 프로그램 용 Microsoft Visual Basic 창.

이제 현재 워크시트의 드롭다운 목록에서 여러 항목을 선택할 수 있습니다.

실수로 항목을 선택했고 전체 셀을 지우고 다시 시작하지 않고 항목을 제거해야 한다고 가정합니다. 다음 VBA 코드 2는 당신에게 호의를 베풀 수 있습니다.

VBA 코드 2: 중복 없이 드롭다운 목록에서 다중 선택 허용(기존 항목을 다시 선택하여 삭제)

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2019/11/13
'Updated by Ken Gardner 2022/07/11
Dim xRng As Range
Dim xValue1 As String
Dim xValue2 As String
Dim semiColonCnt As Integer
If Target.Count > 1 Then Exit Sub
On Error Resume Next
Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
If xRng Is Nothing Then Exit Sub
Application.EnableEvents = False
'If Not Application.Intersect(Target, xRng) Is Nothing Then
If Application.Intersect(Target, xRng) Then
xValue2 = Target.Value
Application.Undo
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 <> "" Then
If xValue2 <> "" Then
If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then ' leave the value if only one in list
xValue1 = Replace(xValue1, "; ", "")
xValue1 = Replace(xValue1, ";", "")
Target.Value = xValue1
ElseIf InStr(1, xValue1, "; " & xValue2) Then
xValue1 = Replace(xValue1, xValue2, "") ' removes existing value from the list on repeat selection
Target.Value = xValue1
ElseIf InStr(1, xValue1, xValue2 & ";") Then
xValue1 = Replace(xValue1, xValue2, "")
Target.Value = xValue1
Else
Target.Value = xValue1 & "; " & xValue2
End If
Target.Value = Replace(Target.Value, ";;", ";")
Target.Value = Replace(Target.Value, "; ;", ";")
If InStr(1, Target.Value, "; ") = 1 Then ' check for ; as first character and remove it
Target.Value = Replace(Target.Value, "; ", "", 1, 1)
End If
If InStr(1, Target.Value, ";") = 1 Then
Target.Value = Replace(Target.Value, ";", "", 1, 1)
End If
semiColonCnt = 0
For i = 1 To Len(Target.Value)
If InStr(i, Target.Value, ";") Then
semiColonCnt = semiColonCnt + 1
End If
Next i
If semiColonCnt = 1 Then ' remove ; if last character
Target.Value = Replace(Target.Value, "; ", "")
Target.Value = Replace(Target.Value, ";", "")
End If
End If
End If
End If
Application.EnableEvents = True
End Sub

노트:

1). 드롭다운 목록에서 중복 값은 허용되지 않습니다.
2). 위의 VBA 코드 2는 2022/07/11에 열성적인 사용자 Ken Gardner가 제공했습니다.
삼). 통합 문서를 다른 이름으로 저장하십시오. Excel 매크로 사용 통합 문서 코드가 계속 작동하도록하기 위해서입니다.
4). VBA 코드 2를 추가한 후 드롭다운 목록에서 다시 선택하여 기존 항목을 제거할 수 있습니다. 아래 gif를 참조하십시오.


놀라운 도구를 사용하여 여러 선택 항목이있는 드롭 다운 목록을 쉽게 생성

여기에서 우리는 강력히 추천합니다 다중 선택 드롭 다운 목록 특징 Excel 용 Kutools 당신을 위해. 이 기능을 사용하면 필요에 따라 지정된 범위, 현재 워크 시트, 현재 통합 문서 또는 열려있는 모든 통합 문서의 드롭 다운 목록에서 여러 항목을 쉽게 선택할 수 있습니다.

신청하기 전에 Excel 용 Kutools, 제발 먼저 다운로드하여 설치하십시오..

1. 클릭 쿠툴 > 드롭 다운 목록 > 다중 선택 드롭 다운 목록 > 설정. 스크린 샷을 참조하십시오 :

2. 에서 다중 선택 드롭 다운 목록 설정 대화 상자에서 다음과 같이 구성하십시오.

  • 2.1) 적용 범위를 적용하다 부분. 이 경우에는 현재 워크 시트 인사말 지정된 범위 드롭 다운 목록;
  • 2.2)에서 텍스트 방향 섹션에서 필요에 따라 텍스트 방향을 선택하십시오.
  • 2.3)에서 분리 기호 상자에 여러 값을 구분하는 데 사용할 구분 기호를 입력합니다.
  • 2.4) 확인 중복을 추가하지 마십시오 상자에 옵션 중 드롭 다운 목록 셀에서 중복을 원하지 않는 경우 섹션;
  • 2.5) 클릭 OK 단추. 스크린 샷보기 :

3. 클릭하십시오 쿠툴 > 드롭 다운 목록 > 다중 선택 드롭 다운 목록 이 기능을 사용하려면

이제 현재 워크 시트의 드롭 다운 목록 또는 2 단계에서 지정한 범위에서 여러 항목을 선택할 수 있습니다.

  무료 체험을 원하시면(

30
-일) 이 유틸리티의 그것을 다운로드하려면 클릭하십시오을 클릭 한 다음 위 단계에 따라 작업 적용으로 이동합니다.

관련 기사 :

Excel 드롭 다운 목록에 입력 할 때 자동 완성
큰 값이있는 데이터 유효성 검사 드롭 다운 목록이있는 경우 적절한 항목을 찾기 위해 목록에서 아래로 스크롤하거나 전체 단어를 목록 상자에 직접 입력해야합니다. 드롭 다운 목록에 첫 글자를 입력 할 때 자동 완성을 허용하는 방법이 있다면 모든 것이 더 쉬워 질 것입니다. 이 튜토리얼은 문제를 해결하는 방법을 제공합니다.

Excel의 다른 통합 문서에서 드롭 다운 목록 만들기
통합 문서 내의 워크 시트간에 데이터 유효성 검사 드롭 다운 목록을 만드는 것은 매우 쉽습니다. 그러나 데이터 유효성 검사에 필요한 목록 데이터가 다른 통합 문서에있는 경우 어떻게 하시겠습니까? 이 자습서에서는 Excel의 다른 통합 문서에서 드롭 fown 목록을 만드는 방법에 대해 자세히 알아 봅니다.

Excel에서 검색 가능한 드롭 다운 목록 만들기
값이 많은 드롭 다운 목록의 경우 적절한 값을 찾는 것은 쉬운 일이 아닙니다. 이전에는 드롭 다운 상자에 첫 글자를 입력 할 때 드롭 다운 목록을 자동 완성하는 방법을 도입했습니다. 자동 완성 기능 외에도 드롭 다운 목록에서 적절한 값을 찾을 때 작업 효율성을 높이기 위해 드롭 다운 목록을 검색 가능하게 만들 수도 있습니다. 드롭 다운 목록을 검색 가능하게 만들려면이 자습서의 방법을 시도하십시오.

Excel 드롭 다운 목록에서 값을 선택할 때 다른 셀 자동 채우기
셀 범위 B8 : B14의 값을 기반으로 드롭 다운 목록을 만들었다 고 가정 해 보겠습니다. 드롭 다운 목록에서 값을 선택할 때 셀 범위 C8 : C14의 해당 값이 선택한 셀에 자동으로 채워지기를 원합니다. 문제를 해결하기 위해이 튜토리얼의 방법이 도움이 될 것입니다.

드롭 다운 목록에 대한 추가 자습서 ...


최고의 사무 생산성 도구

Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 향상시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성이 50% 증가하고 매일 수백 번의 마우스 클릭이 줄어듭니다!
officetab 하단
코멘트 (50)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 솔루션과 코드에 감사드립니다. 그러나 다음 단계는 사용자가 드롭다운 목록에서 "중복" 값을 선택하지 않도록 하는 방법입니다. 예를 들어 목록에 주황색, 사과, 바나나, 복숭아의 4개 항목이 있고 사용자가 이미 "주황색"을 선택한 경우 Excel은 사용자가 "주황색"을 선택하도록 허용하지 않거나 나머지 항목에서 해당 옵션을 제거해야 합니다. 목록. 이 기능을 수행하기 위해 코드를 게시할 수 있습니까? 감사해요. 예즈디
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 Yezdi, 귀하의 의견을 보내 주셔서 감사합니다. 코드가 업데이트되었으며 이제 드롭다운 목록에 중복 값이 ​​허용되지 않습니다. 감사해요. 햇빛
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것이 다중 선택을 허용하는 것은 훌륭하지만 @Yezdi가 언급한 것처럼 선택하지 않더라도 하나 또는 여러 개의 중복을 추가한다는 것을 발견했습니다. 따라서 현재 이것은 80% 솔루션입니다... 완벽함에서 한 번만 조정하면 됩니다. 저는 VB 코더가 아니거나 솔루션을 제공할 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
다음 줄에서 코드를 변경하여 중복을 방지할 수 있습니다. If xValue2 "" Then Target.Value = xValue1 & ", " & xValue2 End If To: If xValue2 "" Then If CheckIfAlreadyAdded(xValue1, xValue2) = False Then Target .Value = xValue1 & ", " & xValue2 Else Target.Value = xValue1 End If End If And 그리고 다음 함수를 추가합니다. Private Function CheckIfAlreadyAdded(ByVal sText As String, sNewValue As String) As Boolean CheckIfAlreadyAdded = False Dim WrdArray() As String WrdArray() = Split(sText, ",") For i = LBound(WrdArray) To UBound(WrdArray) If Trim(WrdArray(i)) = Trim(sNewValue) then CheckIfAlreadyAdded = True Next i End Function -- 아마도 더 나은 코딩 방법이지만 지금은 작동합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
조건이 설정된 경우 새 함수에서 루프를 종료하지 않았으므로 다른 항목을 확인할 필요가 없다는 것을 방금 깨달았습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕. 중복을 제한하는 코드와 추가에 감사드립니다. 한 번 더 요청 - 하나 또는 두 개의 특정 열에서만 다중 선택을 허용하려면 어떤 추가/변경이 이루어져야 합니까? 이 코드는 '정상적으로' 행동하고 변경 사항을 수락하는 것과는 반대로 오타를 수정하거나 셀의 텍스트를 변경하거나 추가하는 경우 '일반' 셀에 텍스트 줄을 다시 추가합니다. (전체 텍스트를 다시 추가하지 않고). 예를 들어, 열 A는 '일반' 열입니다. "가장 갖고 싶은 세 가지 아이템이 뭐예요?"라는 문장을 씁니다. B 열은 하나의 값만 선택할 수 있기를 원하는 '목록' 열입니다(이 경우 어린이 이름을 가정해 봅시다). C 열은 사용자가 여러 항목을 선택할 수 있어야 하는 또 다른 '목록' 열입니다(이 코드를 통해 완벽하게 수행할 수 있음). 진행하면서 A 열에 오타가 있다는 것을 깨닫고 수정하고 싶습니다. 이 코드가 의미하는 대로 내가 들어가서(더블 클릭, F2) "items"라는 단어를 수정하면 내 셀에 다음과 같은 결과가 나타납니다. "가장 원하는 세 가지 항목은 무엇입니까? 세 가지는 무엇입니까? 가장 갖고 싶은 아이템은?" 도움을 주셔서 미리 감사드립니다(VBA를 정말 좋아하지만 아직 학습 초기 단계인 사용자로부터!)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
코드가 작동하도록 할 수 있었지만 문서를 저장하고(매크로 사용 가능) 문서를 닫고 반환했을 때 코드가 더 이상 작동하지 않았습니다(여전히 거기에 있음). 내가 무엇을 잘못했는지 알 수 없습니다. 어떤 아이디어?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 Cynthia님, 원저자가 답장을 하지 않으면 답장을 드리겠지만 29월 XNUMX일에 다시 컴퓨터 앞에 있을 뿐입니다. 나는 또한 VBA 프로그래머가 아닙니다. 그동안 할 수 있는 일은 열 번호를 식별하는 방법을 Google에서 검색하고 해당 특정 열에서 데이터가 편집된 경우에만 코드가 실행되도록 하는 것입니다. 나는 그것을했지만 코드가 내 작업 PC에 있고 지금은 그것을 기억할 수 없습니다. 아마도 target.column에 debug.print를 넣거나 그 효과에 무언가를 넣어 편집중인 열 번호를 제공하는지 확인하십시오. . 죄송합니다. Jennifer, 발생한 문제에 대해 잘 모르겠습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
@Cynthia, 여전히 필요한 경우 코드가 특정 열(내 경우에는 34열 및 35열)에서만 실행되도록 다음과 같이 할 수 있어야 합니다. If (Target.Column 34 And Target.Column 35) then Exit Sub '이 코드를 당신의 희미한 문장 뒤에 시작 부분에 놓으십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용]@Cynthia, 여전히 필요한 경우 코드가 특정 열(내 경우에는 34열 및 35열)에서만 실행되도록 하기 위해 이와 같은 작업을 수행할 수 있어야 합니다. If (Target.Column 34 And Target.Column 35) 그런 다음 Exit Sub '이 코드를 희미한 문 뒤의 시작 부분에 놓으십시오.머빈으로[/인용] 안녕하세요 @Mervyn, 스레드 추적을 완전히 잃어버렸지만 응답해 주셔서 감사합니다. If (Target.Column 34 And Target.Column 35) then Exit Sub(내 버전은 If (Target.Column4 And Target.Column5) Then Exit Sub를 제공한 대로 적용했지만 "런타임 오류 '438': 개체가 이 새 줄에서 이 속성 또는 메서드를 지원하지 않습니다. "" 오류입니다. 다음은 내 코드의 처음 몇 줄입니다. Private Sub Worksheet_Change(ByVal Target As Range) Dim xRng As Range Dim xValue1 As String Dim xValue2 As String If (Target.Column4 And Target.Column5) then Exit Sub If Target.Count > 1 then Exit Sub On Error Resume Next 내 워크시트에는 6개의 열만 있습니다: 질문 | 답변 | 범주 | 하위 범주 | 태그 | 사진 링크 Sub-Category 및 Tags(열 4 및 5)에서 여러 값 드롭다운만 필요합니다. 12/23에 제안한 대로 정보를 계속 찾고 자선이 제공한 링크를 살펴보겠습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Target.Column <> 34인 경우 Sub를 종료합니다.

'이 코드를 당신의 희미한 문장 뒤에 시작 부분에 놓으십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 저는 현재 이 수식을 사용하고 있으며 데이터 유효성 검사가 있는 모든 열에 다중 선택 옵션이 있지만 다중 선택을 하나의 열로만 제한하고 싶습니다. 다중 선택이 Column4에만 적용될 수 있도록 누군가 이 수식을 편집할 수 있습니까? 감사합니다 :) Private Sub Worksheet_Change(ByVal Target As Range) '업데이트됨: 2016/4/12 Dim xRng As Range Dim xValue1 As String Dim xValue2 As String If Target.Count > 1 then Exit Sub On Error Resume Next Set xRng = Cells. SpecialCells(xlCellTypeAllValidation) xRng가 아무것도 아닌 경우 하위 종료 Application.EnableEvents = False가 아닌 경우 Application.Intersect(Target, xRng)가 없는 경우 xValue2 = Target.Value Application.Undo xValue1 = Target.Value Target.Value = xValue2 If xValue1 " " then If xValue2 "" then If xValue1 = xValue2 Or _ InStr(1, xValue1, ", " & xValue2) Or _ InStr(1, xValue1, xValue2 & ",") then Target.Value = xValue1 Else Target.Value = xValue1 & ", " & xValue2 End If End If End If End If Application.EnableEvents = True End Sub 도움을 주시면 감사하겠습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 잘 작동하지만 한 번 선택한 항목을 제거할 수 없습니다. 실수로 무언가를 클릭하고 전체 셀을 지우고 다시 시작하지 않고 제거해야 하는 경우에 대한 제안 사항이 있습니까? 또한 열 또는 열을 정의하려는 사람들을 위해 Contextures는 이를 수행할 수 있는 여기에 제공된 코드에 대한 훌륭한 추가 기능을 제공합니다. http://www.contextures.com/excel-data-validation-multiple.html#column
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용] 잘 작동하지만 한 번 선택한 항목을 제거할 수 없습니다. 실수로 무언가를 클릭하고 전체 셀을 지우고 다시 시작하지 않고 제거해야 하는 경우에 대한 제안 사항이 있습니까? 또한 열 또는 열을 정의하려는 사람들을 위해 Contextures는 이를 수행할 수 있는 여기에 제공된 코드에 대한 훌륭한 추가 기능을 제공합니다. http://www.contextures.com/excel-data-validation-multiple.html#column자선으로[/인용] 코드가 잘 작동합니다. 그러나 항목을 선택 해제할 수 없는 것 같습니다. 선택 항목에서 항목을 제거하려는 경우 제거되지 않을 뿐입니다. 다른 사람도 이 문제를 경험합니까?[/인용] 안녕하세요 여러분, 이 문제에 대한 해결책을 찾았습니다. 공유해 주세요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 코드는 잘 작동합니다. 그러나 항목을 선택 해제할 수 없는 것 같습니다. 선택 항목에서 항목을 제거하려는 경우 제거되지 않을 뿐입니다. 다른 사람도 이 문제를 경험합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 문제에 대한 응답이 있었습니까? 내가 겪고있는 것과 같은 문제입니다. 선택한 항목을 제거할 방법이 없는 것 같습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
셀의 내용을 삭제한 다음 다시 선택
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 저는 이 코드를 엑셀 시트에 가지고 있으며 셀이 선택될 때 드롭다운 목록에서 내용을 정리합니다. 위의 일부를 사용하여 성공적으로 수정하려고 시도했습니다 ... 저는 VBA 프로그래밍 등을 처음 사용합니다. 셀을 선택하면 지우지 않고 항목이 표시되지 않도록 변경하는 방법에 대한 도움을 줄 수 있습니까? 복제해주세요?? 옵션 명시적 Dim fillRng As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim 한정자 As MSForms.ListBox Dim LBobj As OLEObject Dim i As Long Set LBobj = Me.OLEObjects("ListBox1") 한정자 = LBobj.Object 설정 If Target.Row > 3 및 Target.Column = 3 그런 다음 설정 fillRng = Target With LBobj .Left = fillRng.Left .Top = fillRng.Top .Width = fillRng.Width .Height = 155 .Visible = True End With Else LBobj.Visible = False If not fillRng is nothing then fillRng.ClearContents With Qualifiers If .ListCount 0 then For i = 0 To .ListCount - 1 If fillRng.Value = "" Then If .Selected(i) then fillRng.Value = .List(i) Else If .Selected(i) then fillRng.Value = _ fillRng.Value & ", " & .List(i) End If Next End If For i = 0 To .ListCount - 1 .Selected(i) = False Next End With Set fillRng = 없음 End If End If End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 저는 드롭다운 목록을 완벽하게 작성할 수 있지만 제 질문은 다음과 같습니다. 네디드된 모든 항목을 선택하면 노란색, 녹색, 검은색, 빨간색과 같이 셀을 통해 가로 방향으로 하나씩 차례로 이동합니다. 그러나 세로 방향으로 보이게 하려면 어떻게 해야 하나요? 예를 들어: 주황색 공백 노란색 빨간색 가로로 선택하면 많은 항목을 선택할 때 셀이 꽤 길어지기 때문입니다. 이 작업을 수행할 수 있는 방법이 있는지 알려주세요. 고마워요, Desiree
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드를 사용하여 여러 선택 드롭다운 상자를 성공적으로 만들었습니다. 다른 요일에 닫고 다시 열었을 때 작동했습니다. 그러나 이제 원래 선택한 모든 셀에서 다중 선택이 허용되지 않습니다. 전체 스프레드시트에 코드를 사용했음에도 불구하고 이전에 수행한 작업만 수행됩니다. 도울 수 있니?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 똑같은 문제를 겪고있다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
셀이 잠겼을 가능성이 큽니다. 모든 셀을 마우스 오른쪽 버튼으로 클릭하고 셀 서식, 보호로 이동한 다음 잠긴 셀 옵션을 선택 취소합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
각 발신자의 전화 이유에 대해 "영양", "체중" 및 "일"과 같은 여러 텍스트 선택 항목을 선택할 수 있는 드롭다운 목록을 만들었습니다. 각 이유가 몇 개인지 확인하고 싶은 요약 페이지가 있습니다. 특정 월에 표시됩니다. Excel에서 주어진 달에 이러한 각 항목을 따로따로 집계하도록 지시하려면 어떤 수식을 사용해야 합니까? 현재 내가 설정한 방법은 각 호출자에 대해 셀에 하나의 이유가 있는 경우에만 올바르게 계산됩니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
죄송합니다. 이 문제를 해결하는 데 도움을 드릴 수 없습니다. 답을 찾으면 알려주세요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
여러 값을 선택할 수 있는 드롭다운 목록이 있는 4개의 열을 만들려고 합니다. 이미 입력된 값을 클릭하면 셀에서 제거되도록 "다중 선택이 있는 드롭다운 목록" VBA 코드를 어떻게 수정합니까? 미리 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 랜디,
"이미 입력된 값을 클릭하면 셀에서 제거됩니다"은(는) 무슨 뜻인가요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
같은 질문이 있습니다. 내 드롭다운 목록은 선택한 값을 기억하지 않습니다. 누군가가 이미 채워진 셀을 클릭하면(자신이 아닌 다른 사람이) 선택한 값이 지워지고 셀이 다시 비어 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
아래 코드를 사용하여 여러 워크시트에서 다중 선택을 허용하지만 통합 문서의 다른 워크시트로 이동하면 다중 선택이 사라집니다. 파일을 저장하고 다시 들어가면 코드가 있는 한 탭에서 작동하지만 코드가 있는 다른 탭을 다시 클릭하면 더 이상 작동하지 않습니다. VBA 코드가 있는 워크시트를 클릭하면 항상 다중 선택이 허용되도록 수정하는 방법에 대한 아이디어가 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, ich bin totaler VBA Laie입니다. Ich versuche den Code so zu modifizieren, dass
a) Die Mehrfachauswahl nicht in allen, sondern nur ein zwei Spalten aktiv ist
b) ich Items auch wieder rausnehmen kann, zB in dem ich in der Listenauswahl das Item noch einmal anklicke (Beispiel: ich habe über die Mehrfachauswahl ausgewählt: A, D, X, Y... nun fälltdazu Duf Beim aktuellen Code müsste ich Eingaben entfernen und neu auswählen).
사전에 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
드롭다운 목록의 다중 선택 생성을 진행할 수 없습니다. 튜토리얼을 듣고 자료를 읽었지만 여전히 만들 수 없습니다. 누군가 나를 도울 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 이것이 완전히 무작위 일 수 있다는 것을 알고 있지만 문제없이 VBA의 변형을 사용합니다. 한 페이지를 제외하고 처음 세 가지 옵션을 선택하면 네 번째 옵션을 선택할 수 없습니다. 5번째 옵션이 아닌 6번째, 4번째 등을 선택할 수 있습니다. 생각?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 로버트,
코드를 테스트했지만 언급한 대로 문제를 찾지 못했습니다. 사용 중인 Excel 버전을 알려주실 수 있습니까? 당신의 의견에 감사드립니다.
아직 코멘트가 없습니다
더보기
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호