728x90
반응형
  1. Excel을 열고 VBA 편집기 접근: Excel에서 Alt + F11을 눌러 VBA 편집기를 엽니다.
  2. 새 모듈 추가: 메뉴에서 삽입 > 모듈을 선택하여 새 모듈을 추가합니다.
  3. 코드 입력: 아래의 코드를 모듈 창에 붙여넣습니다.
Sub HideRowsBasedOnCellValue()
    Dim ws As Worksheet
    Dim checkRange As Range
    Dim cell As Range

    ' 작업할 워크시트 설정, "Sheet1"을 워크시트 이름에 맞게 변경하세요
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 검사할 셀 범위 설정, 예를 들어 A1:A10
    Set checkRange = ws.Range("A1:A10")

    ' 모든 셀을 검사하고 조건에 따라 행 숨기기
    For Each cell In checkRange
        If cell.Value = "O" Then
            cell.EntireRow.Hidden = True
        Else
            cell.EntireRow.Hidden = False
        End If
    Next cell
End Sub

 

이 코드는 "Sheet1"의 A1:A10 범위를 검사하여, 해당 셀의 값이 "O"이면 그 셀의 행을 숨깁니다. 워크시트 이름과 셀 범위는 코드에서 필요에 따라 수정하세요.

  1. 매크로 실행: VBA 편집기를 닫고 Excel로 돌아가서 Alt + F8을 눌러 매크로를 실행합니다. "HideRowsBasedOnCellValue" 매크로를 선택하고 '실행'을 클릭하세요.

이 스크립트를 사용하면 지정된 범위 내에서 "O" 값이 있는 셀의 행을 자동으로 숨길 수 있습니다. 필요에 따라 셀 범위나 조건을 변경하여 다양한 상황에 맞게 조정할 수 있습니다.

728x90
Posted by Mr. Slumber
,