if 문을 Excel VBA에서 숨기거나 표시하는 경우

Question

나는 C37이 비어있는 경우 일련의 행이 숨겨 지도록합니다. 내가 가지고있는 코드는 이것을 성공적으로 수행한다. D37이 비어 있지 않은 경우

그러나

,

나는 숨김 해제 할 행의 같은 시리즈를하고 싶습니다.

'Show/Hide Filter Index Columns 

If Worksheets("Req Sheet").Range("C37").Value = "" Then 
    Worksheets("Formulation").Rows("54:57").EntireRow.Hidden = True 
    Worksheets("Formulation").Rows("125:128").EntireRow.Hidden = True 
Else 
    Rows("54:57").EntireRow.Hidden = False 
    Rows("125:128").EntireRow.Hidden = False 

End If 

If Worksheets("Req Sheet").Range("C38").Value = "" Then 
    Worksheets("Formulation").Rows("54:57").EntireRow.Hidden = True 
    Worksheets("Formulation").Rows("125:128").EntireRow.Hidden = True 
Else 
    Rows("54:57").EntireRow.Hidden = False 
    Rows("125:128").EntireRow.Hidden = False 

End If 

나는 내가 잘못 코드의 구문을 알고,하지만 난 점점 오전 문제는 C38에서 코드의 두 번째 부분은 C37에서의 코드를 대체하는 것입니다.

나는 and 연산자를 사용해 보았지만 성공하지 못했습니다!

도움 주셔서 감사합니다.

Answer 1

With Worksheets("Req Sheet") 

    If .Range("C37").Value <> "" Or .Range("C38").Value <> "" Then 
     Worksheets("Formulation").Rows("54:57").EntireRow.Hidden = False 
     Worksheets("Formulation").Rows("125:128").EntireRow.Hidden = False 
    Else 
     Worksheets("Formulation").Rows("54:57").EntireRow.Hidden = True 
     Worksheets("Formulation").Rows("125:128").EntireRow.Hidden = True 

     Rows("54:57").EntireRow.Hidden = False 
     Rows("125:128").EntireRow.Hidden = False 
    End If 

End With 

Answer 2

이 코드는 C37이 비어 있고 D37에 데이터가있는 경우 행을 숨 깁니다.
C37에 데이터가 있고 D37이 비어 있으면 행을 숨김 해제합니다.
다른 조건은 행을 숨김 해제합니다.

Sub Test() 

    Dim rng As Range 

    With ThisWorkbook 
     Set rng = Union(.Worksheets("Formulation").Rows("54:57"), _ 
         .Worksheets("Formulation").Rows("128:128")) 

     With .Worksheets("Req Sheet") 
      rng.EntireRow.Hidden = (.Range("C37") <> "" And .Range("D37") = "") 
     End With 

    End With 

End Sub