切换命令按钮

我想知道如果你们能帮助我解决这个问题。所以我想要一个可以以ms字显示/隐藏表格的按钮。但是，我只能使用按钮来显示或隐藏我的代码。目前，该代码会显示我的表：切换命令按钮

Sub Loan1() 
'Hides Sections Not Used in Expanded Form 
    Dim CollapseRange1 As Range 
    'Set Which Range/Cell to Associate with Button 
    With ActiveDocument.Tables(3) 
    Set CollapseRange1 = .Rows(1).Range 
     CollapseRange1.End = .Rows(25).Range.End 
    End With 
'If button is pressed then Hide/show CollapseRanges 
    If CommandButton1 = False And CollapseRange1.Font.Hidden = False Then 
    CollapseRange1.Font.Hidden = True 
    Else 
    CollapseRange1.Font.Hidden = False 

End If 

End Sub

我希望能够用一个按钮来显示和隐藏我的表将取决于我的表的状态（隐藏或取消隐藏）

任何帮助不胜感激！

来源

2017-05-24 Peter Nguyen

OH我设法弄清楚了我的问题。取而代之的

If CommandButton1 = False And CollapseRange1.Font.Hidden = False Then

我用

If CommandButton1 = False And ActiveDocument.Tables(3).Cell(1, 1).Range.Font.Hidden = False Then

我希望这可以帮助别人！

来源

2017-05-24 21:40:18

切换命令按钮

回答

相关问题