Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 单击给定范围内的单元格时隐藏/取消隐藏行_Excel_Vba - Fatal编程技术网

Excel 单击给定范围内的单元格时隐藏/取消隐藏行

Excel 单击给定范围内的单元格时隐藏/取消隐藏行,excel,vba,Excel,Vba,我需要在范围内单击时隐藏和取消隐藏行 以下是范围和相应的行: 范围(“A1:L1”) 行(“2:11”) 范围(“A12:L12”) 行(“13:23”) 范围(“A24:L24”) 行(“25:34”) 我无法在代码中找到此场景。非常感谢您的帮助。对于这种情况,我可能会使用分组,而不是VBA宏。但是,请将以下代码添加到工作表类: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Rows("2:11"

我需要在范围内单击时隐藏和取消隐藏行

以下是范围和相应的行:

范围(“A1:L1”) 行(“2:11”)

范围(“A12:L12”) 行(“13:23”)

范围(“A24:L24”) 行(“25:34”)


我无法在代码中找到此场景。非常感谢您的帮助。

对于这种情况,我可能会使用分组,而不是VBA宏。但是,请将以下代码添加到工作表类:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Rows("2:11").Hidden Then Rows("2:11").Hidden = True
    If Not Rows("13:23").Hidden Then Rows("13:23").Hidden = True
    If Not Rows("25:34").Hidden Then Rows("25:34").Hidden = True

    Select Case True
        Case Not Intersect(Target, Range("A1:L1")) Is Nothing
            Rows("2:11").Hidden = False

        Case Not Intersect(Target, Range("A12:L12")) Is Nothing
            Rows("13:23").Hidden = False

        Case Not Intersect(Target, Range("A24:L24")) Is Nothing
            Rows("25:34").Hidden = False
    End Select
End Sub

Google“Worksheet_SelectionChange()Event”我需要查看至少两个范围的示例(如果选中),然后隐藏相应的行(如果已经隐藏,则取消隐藏)。Google搜索的第一个结果显示了在VBA中使用该事件的示例。StackOverflow的理念是,如果您有编程问题,我们将帮助您,但您必须展示您自己的研究和尝试。没有人会简单地为你写代码。是的,我读过它和大约15篇其他文章。我使用了SelectionChange()事件。如果Intersect ActiveCell为空,则退出sub-else隐藏行。挂起这些范围的倍数,并相应地隐藏行。不确定如何处理进一步的问题。希望它能通过像这样的建设性对话和例子来实现。谢谢,我没有想到要使用select case。