如果范围包含某些值，则隐藏特定行

Question

我希望在自动执行数据表方面有所帮助。

在E7：V7（以下为r）的范围内，我具有相同的下拉列表，每个下拉列表均具有四个不同的值（“-”；“打开”；“关闭”；“两者”）。

当r仅包含"-" ，我想隐藏21:50行。

• "open"显示第21:30行
• "close"显示第31:50行
• "both"显示第21:50行

例如：

• 如果E7 =“-”，F7 =“ open”，则显示21:30行，而31:50隐藏。
• 如果E7 =“-”，F7 =“ both”，则显示所有行。

我希望它足够清楚。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("E7").Value = "-" Then
        Rows("21:50").EntireRow.Hidden = True
    ElseIf Range("E7").Value = "open" Then
        Rows("21:30").EntireRow.Hidden = False
        Rows("31:50").EntireRow.Hidden = True
    ElseIf Range("E7").Value = "close" Then
        Rows("31:50").EntireRow.Hidden = False
        Rows("21:30").EntireRow.Hidden = True
    ElseIf Range("E7").Value = "both" Then
        Rows("21:50").EntireRow.Hidden = False
    End If
End Sub

该代码仅适用于一个条件，但我希望它有助于弄清情况。

Answer 1

如我的注释中所建议：使用Application.Intersect方法以及Select Case语句 。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim AffectedCells As Range
    Set AffectedCells = Intersect(Target, Target.Parent.Range("E7:V7"))

    If Not AffectedCells Is Nothing Then
        Dim Cell As Range
        For Each Cell In AffectedCells
            Select Case Cell.Value
                Case "-"
                    Target.Parent.Rows("21:50").Hidden = True
                Case "open"
                    Target.Parent.Rows("21:30").Hidden = False
                    Target.Parent.Rows("31:50").Hidden = True
                Case "close"
                    Target.Parent.Rows("31:50").Hidden = False
                    Target.Parent.Rows("21:30").Hidden = True
                Case "both"
                    Target.Parent.Rows("21:50").Hidden = False
            End Select
        Next Cell
    End If
End Sub