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

qvtsj1bj 于 2022-11-26 发布在其他

关注(0)|答案(1)|浏览(288)

我有一个下拉列表与多个选项选择从源C9：C100。我想隐藏所有行从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

excel

来源：https://stackoverflow.com/questions/74559818/vba-how-to-hide-or-unhide-rows-based-on-drop-down-list-selection-in-excel

1条答案

按热度按时间

tjvv9vkg1#

测试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

赞(0）回复(0）举报 2022-11-26

我来回答

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

1条答案

相关问题

热门标签

最新问答