Excel 드롭 다운 목록에 입력 할 때 자동 완성하는 방법은 무엇입니까?

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

VBA 코드로 드롭 다운 목록에 입력 할 때 자동 완성
드롭 다운 목록에 대한 추가 자습서 ...

VBA 코드로 드롭 다운 목록에 입력 할 때 자동 완성

셀에 해당 문자를 입력 한 후 드롭 다운 목록이 자동 완성되도록하려면 다음과 같이하십시오.

먼저 워크 시트에 콤보 상자를 삽입하고 속성을 변경해야합니다.

1. 자동 완성 할 드롭 다운 목록 셀이 ​​포함 된 워크 시트를 엽니 다.

2. 콤보 상자를 삽입하기 전에 Excel 리본에 개발 도구 탭을 추가해야합니다. 개발자 탭이 리본에 표시되면 3 단계로 이동. 그렇지 않으면 다음을 수행하십시오. 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 옵션 를 열려면 옵션 창문. 이것에 Excel 옵션 창을 클릭합니다 리본 맞춤 설정 왼쪽 창에서 개발자 상자를 클릭 한 다음 OK 단추. 스크린 샷보기 :

3. 클릭 개발자 > 끼워 넣다 > 콤보 상자 (ActiveX 컨트롤).

4. 현재 워크 시트에 콤보 상자를 그립니다. 마우스 오른쪽 버튼으로 클릭 한 다음 등록 오른쪽 클릭 메뉴에서.

5. 에서 등록 대화 상자의 원본 텍스트를 바꾸십시오. (이름) 필드 TempCombo.

6. 전원 끄기 디자인 모드 클릭하여 개발자 > 디자인 모드.

그런 다음 아래 VBA 코드를 적용하십시오

7. 현재 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 코드보기 상황에 맞는 메뉴에서. 스크린 샷보기 :

8. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 아래의 VBA 코드를 복사하여 워크 시트의 코드 창에 붙여 넣으십시오.

VBA 코드 : 드롭 다운 목록 입력시 자동 완성

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update by Extendoffice: 2020/01/16
    Dim xCombox As OLEObject
    Dim xStr As String
    Dim xWs As Worksheet
    Dim xArr
    
    Set xWs = Application.ActiveSheet
    On Error Resume Next
    Set xCombox = xWs.OLEObjects("TempCombo")
    With xCombox
        .ListFillRange = ""
        .LinkedCell = ""
        .Visible = False
    End With
    If Target.Validation.Type = 3 Then
        Target.Validation.InCellDropdown = False
        Cancel = True
        xStr = Target.Validation.Formula1
        xStr = Right(xStr, Len(xStr) - 1)
        If xStr = "" Then Exit Sub
        With xCombox
            .Visible = True
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.Width + 5
            .Height = Target.Height + 5
            .ListFillRange = xStr
            If .ListFillRange = "" Then
                xArr = Split(xStr, ",")
                Me.TempCombo.List = xArr
            End If
            .LinkedCell = Target.Address
        End With
        xCombox.Activate
        Me.TempCombo.DropDown
    End If
End Sub
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 9
            Application.ActiveCell.Offset(0, 1).Activate
        Case 13
            Application.ActiveCell.Offset(1, 0).Activate
    End Select
End Sub

9. 프레스 다른 + Q 키를 동시에 닫아 Microsoft Visual Basic 애플리케이션 창.

이제부터 드롭 다운 목록 셀을 클릭하면 드롭 다운 목록이 자동으로 프롬프트됩니다. 선택한 셀에서 해당 항목이 자동으로 완성되도록 문자를 입력하기 시작할 수 있습니다. 스크린 샷보기 :

참고 : 이 코드는 병합 된 셀에는 작동하지 않습니다.

관련 기사 :

최고의 사무 생산성 도구

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

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

자세히보기 ... 무료 다운로드... 매수... 

---

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

• Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
• 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
• 생산성을 50 % 향상시키고 매일 수백 번의 마우스 클릭을 줄입니다!

자세히보기 ... 무료 다운로드... 매수...