通过单击上方的单元格来隐藏和取消隐藏行（循环）

Question

我是excel VBA的新手，我正在尝试一些代码以自行使用Internet学习。

我想通过单击隐藏单元格正上方的单元格来隐藏/取消隐藏行。假设：

Cell D6 - Project title 1
Cell D7 - First row of Project1 contents
.
.
.
.
Cell D26 - Last row of Project1 contents
Cell D27 - Project title 2
Cell D28 - First row of Project2 contents
.
.
.
.
Cell D47 - Last row of Project2 contents

我希望能够通过单击单元格D6隐藏/取消隐藏第7至26行。然后单击D27隐藏/取消隐藏第28至47行。我在同一张纸上有50个项目标题和内容。

我尝试使用工作表选择更改，但是我的代码不起作用。谁能告诉我该怎么做？

谢谢！

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim A As Range
Dim B As Range

B = A.Rows + 1 & ":" & A.Rows + 20

If A = Target.Address Then

    Rows(B).EntireRow.Hidden = Not Rows(B).EntireRow.Hidden

End If

Application.ScreenUpdating = True
End Sub

Answer 1

您需要进行一些细化，但是这一行会完成大部分工作。

filesystem