버튼을 사용하여 열 숨기기

버튼을 사용하여 특정 열을 숨기려면이 코드를 사용할 수 있습니다. 명령 단추 텍스트를 열 숨기기로 변경 한 다음 다시 열 숨기기 해제로 변경합니다.

하위 숨기기 _C ()

Dim C_ell As Range ActiveSheet.Shapes.Range (Array ( “Button 2”)). Select If Selection.Characters.Text = “Unhide Columns”Then Columns.Hidden = False Selection.Characters.Text = “Hide Columns”

Else For Each C_ell In Range ( “B1”, Cells (1, Columns.Count) .End (xlToLeft))

If C_ell = “x”Then C_ell.Columns.Hidden = True Next Selection.Characters.Text = “Unhide Columns”

End If Range ( “A2”). End Sub 선택