在VBA（excel）中组合隐藏和显示分组数据的makros-解网

问：

刚在Excel中启动VBA，我想创建一个结合两个功能的Makro，这些是在单击链接的 Button 时折叠和展开分组的数据行。我让 makros 单独运行，但现在我想将它们组合成一个 Makro，我可以将其签名给一个按钮，单击该按钮时会检查 ShowDetail 属性的 True/False 状态并分别覆盖状态。

Sub Expand1()

   Rows(2).EntireRow.ShowDetail = True
         
End Sub

Sub Collapse1()

   Rows(2).EntireRow.ShowDetail = False
    
End Sub

我尝试使用 If Then Logic，但是当我执行以下代码时，Excel 会吐出运行时错误 1004：“ showDetail 属性无法更改。

Sub Colland()

    If Rows(2).EntireRow.ShowDetail = True Then
        Rows(2).EntireRow.ShowDetail = False
    Else: Rows(2).EntireRow.ShowDetail = True
    End If
    
End Sub

我猜我无法更改属性状态，因为它是正在检查的属性。但实际上，我相当无知。任何帮助将不胜感激

Excel VBA

Sub Colland()

If ActiveCell.EntireRow.ShowDetail = True Then
    ActiveCell.EntireRow.ShowDetail = False
Else: ActiveCell.EntireRow.ShowDetail = True
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
    If Not Intersect(Target, Range("A4:A85")) Is Nothing Then
        Call Colland
    End If
End If

End Sub

这非常适合我的预期目的，因为我正在处理 A4 和 A85 之间的多组数据。谢谢@Paul

上一个：收集在一个单元格中组合的列范围值，后跟逗号，并以 & 分隔符结尾

下一个：Excel - 创建 Marlett 复选框组功能

在VBA（excel）中组合隐藏和显示分组数据的makros

Combining hide and show makros for grouped Data in VBA( excel)

评论