VBA根据单元格的值是否为零显示/隐藏行

Question

我有一个 Excel 工作表，我想根据另一个单元格中的值隐藏或取消隐藏某些行。

简而言之:
整个事情应该取决于单元格 C2、D2、E2 中的值。

如果C2为空白，我希望隐藏第31至40行(如果它非空白) ，它们需要可见。

其他三个单元格也是如此，始终隐藏/取消隐藏以下 10 行:

D2 --> rows 41 to 50
E2 --> rows 51 to 60

我尝试了这段代码，但它不起作用，而且我也没有收到任何错误:

Sub Hide_rows()
    If Range("LS!C2") = 0 Then
        Rows("31:40").EntireRow.Hidden = True
    Else
        If Range("LS!D2") = 0 Then
            Rows("41:50").EntireRow.Hidden = True
        Else
            If Range("LS!E2") = 0 Then
                Rows("51:60").EntireRow.Hidden = True
            Else
                If Range("LS!C2") > 0 Then
                    Rows("31:40").EntireRow.Hidden = False
                Else
                    If Range("LS!D2") > 0 Then
                        Rows("41:50").EntireRow.Hidden = False
                    Else
                        If Range("LS!E2") > 0 Then
                            Rows("51:60").EntireRow.Hidden = False
                        Else

                        End If
                    End If
                End If
            End If
        End If
    End If
End Sub

谢谢!

Answer 1

在我看来，您只需要以下几行:

With Sheets("LS")
        .Rows("31:40").EntireRow.Hidden = (.Range("C2") = 0)
        .Rows("41:50").EntireRow.Hidden = (.Range("D2") = 0)
        .Rows("51:60").EntireRow.Hidden = (.Range("E2") = 0)
End With

编辑根据克里斯的观点 - 以下内容就足够了:

With Sheets("LS")
        .Rows("31:40").Hidden = (.Range("C2") = 0)
        .Rows("41:50").Hidden = (.Range("D2") = 0)
        .Rows("51:60").Hidden = (.Range("E2") = 0)
End With