if文をExcel VBAで表示/非表示にする

Question

私は一連のコードを持っています.C37が空白の場合は、2つの一連の行を非表示にします。私が持っているコードはこれでうまくいく。しかし

、

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からのコードの第2の部分が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