如何通过使用超链接在Excel中扩展组(或者可能将macros分配给超链接)

我的表格顶部有一个表格,这个表格有不同的部分名称。 我想插入一个超链接到这些部分的名称,当我点击它们时打开它的组。

请参考我的表格和部分视图默认(折叠)

我可以创build一个macros:

Expands all groups Goes to the Section that I clicked, Collapses all groups Only opens the group on active cell, 

但是将这个macros分配给〜20个不同的部分会增加文件的大小。

经过一些search后,我发现这个: Excel:将macros分配给超链接? 所以也许有办法连接这两种方法?

这怎么解决?

我build议创build一个“组”表的主表和所需的任何汇总表。 后面的表格可以包含所有的“部分”数据。 这具有更大的可扩展性。

是否有必要在同一张表上提供所有信息? 这几乎是为什么Excel有多个工作表。 使用多个工作表也可以让你使用标准的超链接。

但是,如果你想要一些VBA让你更接近,请考虑下面的代码。 这将抓取活动单元格的值,然后search具有该值的下一个单元格。 如果find的单元格的部分已折叠,则将其展开,反之亦然。

 Sub OpenSection() Dim x As String x = ActiveCell.Value Dim y As String y = Cells.Find(What:=(x), After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Address 'Range("b1").Value = y With ActiveSheet With .Range(y).EntireRow If .ShowDetail = False Then .ShowDetail = True Else .ShowDetail = False End If End With End With End Sub