我怎样才能让我的宏切换工作表的可见性/隐藏性?

我怎样才能让我的宏切换工作表的可见性/隐藏性?

我有以下代码,我想切换工作表的可见或隐藏:

Sub toggle()
If Sheets("Navigation (2)").Visible = True Then
    ActiveWindow.SelectedSheets.Visible = False
Else
    Sheets("Navigation (2)").Visible
End If
End Sub

但是在其他表可见语句中出现错误。我做错了什么?

答案1

讽刺的是,你把 a 放在了=True不需要的地方,然后忘记了它需要。

Sub toggle()
    If Sheets("Navigation (2)").Visible Then
        ActiveWindow.SelectedSheets.Visible = False
    Else: Sheets("Navigation (2)").Visible = True
    End If
End Sub

正如你所看到的可见方法,其计算结果为TRUEFALSE。这就是为什么你不需要它,if但也是为什么你需要它Else:

答案2

这有效:

Sub toggle()
If Sheets("Navigation (2)").Visible = True Then
    ActiveWindow.SelectedSheets.Visible = False
Else
    Sheets("Navigation (2)").Visible = True
End If
End Sub

相关内容