如何在不旋转或使用组数据选项的情况下展开和折叠单元格

Question

如何在没有数据透视表或组数据的情况下在excel中添加展开和折叠按钮，与附图相同？

expand and collapse button

Answer 1

几年前，我为一位客户写过这样的文章。下面的代码演示了附加到按钮的宏，该按钮展开/折叠预定义的命名范围 ("pRngPurchaseOrders")。

这个范围有“保护行”，它们只是范围开始和结束处的空行，因此如果范围内有

' Expand or collapse the PurchaseOrder display region
Sub ExpandPurchaseOrders()
  Debug.Print Format(Now, "HH:mm:SS  "), "ExpandPurchaseOrders begin"
    ' get the PurchaseOrders range
    Dim nPurchaseOrders As Name, rPurchaseOrders As Range, lenPurchaseOrders As Long
    Set nPurchaseOrders = ws.Names("pRngPurchaseOrders")
    Set rPurchaseOrders = nPurchaseOrders.RefersToRange
    lenPurchaseOrders = rPurchaseOrders.Rows.Count
    
    ' if len=2 then assume we are expanding/expanded and updatePurchaseOrders
    ' if len > 2 and row(2) is invisible then we are collapsed, so expand and then updatePurchaseOrders
    ' if len > 2 and row(2) is visible then collapse
    
    If lenPurchaseOrders = 2 Then
        ' no rows, so we are expanding, but effectively already expanded
        PurchaseOrdersUpdate
        
    ElseIf lenPurchaseOrders > 2 Then
        Dim i As Long
        If rPurchaseOrders.Rows(2).Hidden = True Then
            'EXPAND: unhide all of the PurchaseOrder rows
            For i = 2 To lenPurchaseOrders - 1
                'first and last rows are hidden and used as anchors, so skip them
                rPurchaseOrders.Rows(i).Hidden = False
            Next i
            ' and update
            PurchaseOrdersUpdate
            
        Else
            'COLLAPSE: hide all of the PurchaseOrder rows
            For i = 2 To lenPurchaseOrders - 1
                'first and last rows are hidden and used as anchors, so skip them
                rPurchaseOrders.Rows(i).Hidden = True
            Next i
        
        End If
    
    End If
    
  Debug.Print Format(Now, "HH:mm:SS  "), "ExpandPurchaseOrders Done"
End Sub

为了使用它，我只是在工作表上创建了一个按钮，在命名范围旁边的文本中带有 "+"，并将此宏分配给它。