목록 값에 따라 일부 행을 숨기거나 숨김 해제하려고하는데, 숨겨져 있으면 셀을 0으로 설정합니다. 1을 선택하면 코드가 행을 숨기지 만 다른 값을 선택하면 숨김을 해제하지 않습니다. 사용 가능한 값은 1에서 5입니다.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180822
If Target.Address = "$F$16" Then
If Target.Value <= 2 Then
Application.Rows("22:25").Select
Application.Selection.EntireRow.Hidden = True
Range("F22").Value = "0"
Range("F23").Value = "0"
Range("F24").Value = "0"
Range("F25").Value = "0"
ElseIf Target.Value <= 3 Then
Application.Rows("23:25").Select
Application.Selection.EntireRow.Hidden = True
Range("F23").Value = "0"
Range("F24").Value = "0"
Range("F25").Value = "0"
ElseIf Target.Value <= 4 Then
Application.Rows("24:25").Select
Application.Selection.EntireRow.Hidden = True
Range("F24").Value = "0"
Range("F25").Value = "0"
ElseIf Target.Value <= 5 Then
Application.Rows("25:25").Select
Application.Selection.EntireRow.Hidden = True
Range("F25").Value = "0"
ElseIf Target.Value <= 6 Then
Application.Rows("22:25").Select
Application.Selection.EntireRow.Hidden = False
End If
End If
End Sub
1을 선택하면 첫 번째 IF 문을 누르고 22:25를 숨 깁니다. 모든 값이 <= 6이기 때문에 "ElseIf Target.Value <= 6 Then"이 실행되지 않기 때문에 값을 변경하려고하면 아무 작업도 수행되지 않습니다. 이벤트가 시작되면 값을 "재설정"해야합니다. > If Thens 전에 Sub 상단에 이것을 추가하십시오.
If Target.Address = "$F$16" Then Application.Rows("22:25").Select Application.Selection.EntireRow.Hidden = False Range("F22").Value = "[whatever default value should be]" Range("F23").Value = "[whatever default value should be]" Range("F24").Value = "[whatever default value should be]" Range("F25").Value = "[whatever default value should be]"
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다