Excel의 사용자 입력을 기반으로 실시간으로 열을 숨기는 방법은 무엇입니까?

Excel에서 열을 숨기는 것은 우리 대부분에게 일반적인 작업일 수 있지만 일부 특정 입력 값을 기반으로 열을 자동으로 숨기려고 시도한 적이 있습니까? 예를 들어 셀에 "AA"라는 텍스트를 입력하면 A 열이 숨겨집니다. "BB"를 입력하면 열 B와 C가 숨겨집니다. "CC"를 입력하면 열 D와 E가 숨겨집니다. "DD"를 입력하면 아래 데모와 같이 F 열이 숨겨집니다. 이 기사에서는 Excel에서 이를 해결하기 위한 VBA 코드를 작성합니다.

VBA 코드로 사용자 입력을 기반으로 실시간으로 열 숨기기 또는 숨기기 해제

VBA 코드로 사용자 입력을 기반으로 데이터를 필터링하기 위해 열 숨기기 또는 숨기기 해제

VBA 코드로 사용자 입력을 기반으로 실시간으로 열 숨기기 또는 숨기기 해제

입력 값에 따라 실시간으로 특정 열을 숨기려면 아래 VBA 코드를 적용하십시오.

1. 열을 숨기려는 워크시트에서 시트 탭을 마우스 오른쪽 버튼으로 클릭한 다음 코드보기 상황에 맞는 메뉴에서 스크린샷 참조

2. 열린 응용 프로그램 용 Microsoft Visual Basic 창에서 다음 VBA 코드를 복사하여 붙여넣습니다. 시트(코드) 창.

VBA 코드: 사용자 입력에 따라 실시간으로 열 숨기기

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby ExtendOffice
xcell = Range("K1").Value
Select Case xcell
Case "AA": Columns("A").EntireColumn.Hidden = False
Columns("A").EntireColumn.Hidden = True
Case "BB": Columns("B:C").EntireColumn.Hidden = False
Columns("B:C").EntireColumn.Hidden = True
Case "CC": Columns("D:E").EntireColumn.Hidden = False
Columns("D:E").EntireColumn.Hidden = True
Case "DD": Columns("F").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = True
Case Else
Columns("A:G").EntireColumn.Hidden = False
End Select
End Sub

주의 사항: 위 코드에서 K1 는 특정 텍스트를 입력하는 셀이며 필요에 따라 텍스트와 열 이름을 변경해야 합니다. 또한 아래 스크립트를 추가하기만 하면 다른 새 기준을 추가할 수 있습니다.

케이스 "AA": Columns("A").EntireColumn.Hidden = False
Columns("A").EntireColumn.Hidden = True

3. 그런 다음 코드 창을 닫습니다. 이제 K1 셀에 "AA"를 입력하고 엔터 버튼 키, 열 A는 숨겨져 있습니다. "BB"를 입력할 때 엔터 버튼 키, 열 B 및 C가 숨겨집니다. 다른 값을 입력하거나 내용을 삭제하면 숨겨진 열이 한 번에 표시됩니다. 아래 데모를 참조하세요.

VBA 코드로 사용자 입력을 기반으로 데이터를 필터링하기 위해 열 숨기기 또는 숨기기 해제

이 예에서는 입력한 제품 이름을 기반으로 데이터 범위를 필터링하겠습니다. "Hoodie"를 입력하면 Hoodie 정보만 표시되고 다른 열은 한 번에 숨겨집니다. "All"을 입력하면 모든 열이 아래 데모와 같이 표시됩니다.

1. 열을 숨기려는 워크시트에서 시트 탭을 마우스 오른쪽 버튼으로 클릭한 다음 코드보기 컨텍스트 메뉴에서 스크린 샷을 참조하십시오.

2. 열린 응용 프로그램 용 Microsoft Visual Basic 창에서 다음 VBA 코드를 복사하여 붙여넣습니다. 시트(코드) 창.

VBA 코드: 사용자 입력을 기반으로 데이터를 필터링하기 위해 열 숨기기 또는 숨기기 해제

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby ExtendOffice
    Dim x As Variant, y As String
     If Target.Address = "$K$1" Then
        y = Target.Value
        With Range("B1:H1")
            Application.ScreenUpdating = False
            .EntireColumn.Hidden = (y <> "All")
            If y <> "All" Then
                For Each x In .Cells
                    If x = y Then x.EntireColumn.Hidden = False
                Next
            End If
            Application.ScreenUpdating = True
        End With
    End If
End Sub

주의 사항: 위 코드에서 K1 특정 텍스트를 입력하는 셀입니다. B1 : H1 행 머리글에는 필터링할 제품 이름이 포함되어 있습니다.

3. 그런 다음 코드 창을 닫습니다. 이제 K1 셀에 제품 이름을 입력하면 해당 열만 표시되고 다른 열은 숨겨집니다. "All" 텍스트를 입력하면 모든 열이 아래 데모와 같이 나타납니다.

최고의 사무 생산성 도구

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

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