显示/隐藏每个下拉选择的行

Question

我在网上找到了一个示例代码，我已经根据我在 Excel 文件的下拉列表中选择的选项来调整以显示或隐藏特定行。

无论我尝试什么，宏都不起作用。

我的代码如下（还附上了问题 2 (2a - 2d) 下未显示/隐藏的行的屏幕截图）

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$F$13" Then
If Range("F13").Value = "Yes" Then
Rows("14:17").EntireRow.Hidden = False
End If

If Range("F13").Value = "No" Then
Rows("14:17").EntireRow.Hidden = True
End If

If Range("F13").Value = " " Then
Rows("14:17").EntireRow.Hidden = True
End If
End Sub

Answer 1

这是一个很好的例子，说明您的代码可以帮助您识别问题。您缺少 End IF 语句。试试这个：

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$F$13" Then
    If Range("F13").Value = "Yes" Then
        Rows("14:17").EntireRow.Hidden = False
    End If

    If Range("F13").Value = "No" Then
      Rows("14:17").EntireRow.Hidden = True
    End If

    If Range("F13").Value = " " Then
        Rows("14:17").EntireRow.Hidden = True
    End If
End If
End Sub

您可能还想使用：

If Range("F13").Value = ""

而不是

If Range("F13").Value = " "

Answer 2

缺少一个End If。我假设需要测试目标单元格 (F13) 的值。如果值为“是”，则应取消隐藏第 14:17 行，如果为“”（空格键），则应隐藏它们，如果为“否”，则也应隐藏它们。其他值不会影响行的隐藏/取消隐藏。 在End Sub 之前应该有第二个End If，以便上面的所有if 语句都包含在地址检查中。

还请注意，此代码应放置在工作表本身中，因为您想挂接到 Worksheet_Change 事件。

在工作表模块中试试这个：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$13" Then 'Check if the changed value is indeed in F13

    If Target.Value = "Yes" Then
        ActiveSheet.Rows("14:17").EntireRow.Hidden = False 'Show the rows if the value is Yes
    ElseIf Target.Value = "No" Then
        ActiveSheet.Rows("14:17").EntireRow.Hidden = True 'Hide them when it's No
    ElseIf Target.Value = " " Then
        ActiveSheet.Rows("14:17").EntireRow.Hidden = True 'Or space
    End If

End If
End Sub

其他说明：

• 您也可以使用Me (Me.Rows...) 而不是ActiveSheet，在这种情况下他们可能会这样做。但是，如果您从另一个工作表更改工作表上的值（例如重新计算的公式），Me 将引用触发事件的更改工作表，而 activeworksheet 将影响当前活动的工作表。
• 使用 Target 而不是再次引用 Range。 Target 是一个已经在内存中的范围对象。因此，与再次访问工作表相比，执行速度会更快。