Excel 单击给定范围内的单元格时隐藏/取消隐藏行
我需要在范围内单击时隐藏和取消隐藏行 以下是范围和相应的行: 范围(“A1:L1”) 行(“2:11”) 范围(“A12:L12”) 行(“13:23”) 范围(“A24:L24”) 行(“25:34”)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"
我无法在代码中找到此场景。非常感谢您的帮助。对于这种情况,我可能会使用分组,而不是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。