아래에 행을 숨기고 숨김 해제하는이 공식이 있습니다. 동적 참조로 만들고 싶습니다. 따라서 범위 "B50"또는 범위 "51:68"을 사용하는 대신. VBA를 열지 않고도 언제든지 변경할 수 있도록 셀 값에 대한 참조를 설정하고 싶습니다.
공식:
If Not Intersect(Target, Range("B50")) Is Nothing Then Cancel = True
If (Not Intersect(Target, Range("B50")) Is Nothing) And (Target.Count = 1) Then
Set hideRows = Range("51:68")
hideRows.EntireRow.Hidden = Not hideRows.EntireRow.Hidden
End If
If Not Intersect(Target, Me.Range(Sheet1.Range("A1").Value) Is Nothing Then`
... 여기서 Sheet1
A1에는 사용할 셀 주소가 있습니다.
주소가 이벤트 핸들러가 실행중인 동일한 시트에있는 경우 :
If Not Intersect(Target, Me.Range(Me.Range("A1").Value) Is Nothing Then`
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다