VBA使用相同的宏按钮展开/折叠行

Question

关于如何运行简单的宏按钮,我们遇到了一个小问题.此按钮的用途是双重的:扩展行并折叠行.

1按下按钮启动此VBA命令:

Sub Macro7()

Rows(7).ShowDetail = True

End Sub

此命令扩展第7行.

2再次按下按钮(当行展开时),启动此VBA:

Sub Macro7()

Rows(7).ShowDetail = False

End Sub

这会使行崩溃.

有没有办法将按钮链接到两个宏？

提前致谢!!!

中号

Answer 1

Sub Macro7()  
    With Rows(7)
        .ShowDetail = Not .ShowDetail
    End With
End Sub 

Answer 2

没有必要.只需调整宏来检查行的当前状态(折叠或展开)并采取相应措施:

Sub ExpandOrCollapse()

Rows(7).ShowDetail=IIF(Rows(7).ShowDetail,False,true)

End Sub