VBA Excel 如何根据下拉列表选择隐藏或取消隐藏行？

Question

我有一个下拉列表，其中包含来自源 C9:C100 的 select 的多个选项。 我想隐藏从 C9 开始的所有行，除了下拉列表中所选单元格对应的行。 我已经尝试了下面的代码，但是它不起作用。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("B4") = "True" Then
        Rows("9:100").EntireRow.Hidden = False
    Else
        Rows("9:100").EntireRow.Hidden = True
    End If
End Sub

Answer 1

测试B4是否有值，如果找到MATCH行号则隐藏其他行。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim row As Variant
    row = Application.Match(Range("B4").Value, Range("C9:C100"), 0)
    If Not IsError(row) Then
        Rows("9:100").Hidden = True
        Rows(8 + row).Hidden = False
    Else
        Rows("9:100").Hidden = False
    End If
End Sub