카페 회원이신 김태봉님께서 문의 하신 내용입니다.
'*****************************************************************************************************
체크 박스를 누르면 행이 펼쳐지게 하려고 하는데
체크 박스를 누르면 행이 닫치는건 할줄 알거든요.. 근데 누르면 반대로 펼쳐지게 하려면 어떻게 해야 하나요? ^^;
VBA인것 같기도 하고 걍 질의답변에 달아햐 할것 같기도 하고 애매해서 여기 올립뉘다~
'******************************************************************************************************
VBA로 접근을 해 보았습니다.
Rows_hidden_Control_By_Checkbox 라는 모듈을 하나 정의한후
각 체크박스의 매크로 지정을 하였습니다.
체크박스로행숨기기_숨기기취소_전환.xlsm
Sub Rows_hidden_Control_By_Checkbox()
Dim s As CheckBox
Set s = ActiveSheet.CheckBoxes(Application.Caller)
Select Case s.Name
Case "Check Box 1"
Rows("2:4").Hidden = (s.Value <> 1)
Case "Check Box 3"
Rows("6:7").Hidden = (s.Value <> 1)
End Select
End Sub
