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

关于如何运行简单的宏按钮，我们有一个微不足道的问题。此按钮的目的有两个：扩展行和折叠行。VBA使用相同的宏按钮展开/折叠行

上按下该VBA命令被启动的按钮：

Sub Macro7() 

Rows(7).ShowDetail = True 

End Sub

此命令扩展了再次按下按钮（同时该行被展开）行7.

，此VBA启动：

Sub Macro7() 

Rows(7).ShowDetail = False 

End Sub

这会折叠该行。

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

在此先感谢！

来源

2012-10-12 user1717622

不需要。只要调整您的宏来检查你行的当前状态（折叠或展开），并采取相应的行动：

Sub ExpandOrCollapse() 

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

End Sub

来源

2012-10-12 17:03:23 nutsch

非常感谢这 – user1717622

没问题。当你觉得你已经得到一个答案时，不要忘记接受一个答案：http://stackoverflow.com/faq#howtoask – nutsch

试试这个

Dim rowExpanded As Boolean 
rowExpanded = Rows(7).ShowDetail 

If rowExpanded = True Then 
    Rows(7).ShowDetail = False 
Else 
    Rows(7).ShowDetail = True 
End If

来源

2012-10-12 17:04:30 JMK

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

来源

2012-10-12 17:30:30

我上面的答案尝试和没有工作为了我。下面是可用的代码：

Sub rowExpanded() 

Rows("7:7").Select 
Selection.EntireRow.Hidden = IIf(Selection.EntireRow.Hidden, False, True) 

End Sub

来源

2013-09-23 18:00:32 Jill

尝试使用命令按钮（ActiveX控件）。使用按钮标题来标识切换状态。

Private Sub CommandButton1_Click() 

    If CommandButton1.Caption = "-" Then 
     ActiveSheet.Outline.ShowLevels Rowlevels:=1, ColumnLevels:=1 
     JobDescriptionToggleButton.Caption = "+" 
    Else 
     ActiveSheet.Outline.ShowLevels Rowlevels:=8, ColumnLevels:=8 
     JobDescriptionToggleButton.Caption = "-" 
    End If 

End Sub

来源

2016-06-20 01:39:55

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

回答

相关问题