[특정 행 제외하고 숨기기]

[특정 행 제외하고 숨기기]

Sub Macro()

Dim rng As Range

Set btnButton = ActiveSheet.Buttons(Application.Caller) '프로서저를 호출한 단추 컨트롤 확인

strCaption = btnButton.Caption '버튼의 캡션을 변수에 할당

Application.ScreenUpdating = False

Select Case strCaption '버튼의 캡션에 따라 동작 결정

Case "Open"

Cells.EntireRow.Hidden = False '숨긴 열 보이기

btnButton.Caption = "Hiden" '버튼 캡션 바꾸기

Case "Hiden"

With Range("B4:B" & Cells(Rows.Count, 2).End(3).Row)

Set rng = .Find(Range("H3").Value, , , 1)

If Not rng Is Nothing Then

.EntireRow.Hidden = True '전체 열숨기기

.ColumnDifferences(rng).EntireRow.Hidden = False 'rng에 해당하는 행 보이기

End If

End With

btnButton.Caption = "Open" '버튼 캡션 바꾸기

End Select

End Sub