Excel取消隐藏代号表

Question

我使用带有命令按钮的Userform，取消隐藏的页面，然后通过工作表的代号选择它们，这样我就可以对工作表进行编辑，然后在完成更改后用另一个命令按钮隐藏它们到表格。

但是当我有（2）个工作簿同时打开不同的文件名时，我会收到错误。

Sub Show_Sheet()

BlankOptionSheet.Visible = -xlSheetVisible
BlankOptionSheet.Select

End Sub

Answer 1

如果Userform位于当前未处于活动状态的工作簿中，则代码将失败，因为您无法选择不在ActiveWorkbook中的工作表。您应该激活工作表而不是选择它：

Sub Show_Sheet()

    BlankOptionSheet.Visible = -xlSheetVisible
    BlankOptionSheet.Activate

End Sub

Answer 2

您可以使用以下命令引用activeworkbook和要隐藏的特定工作表：

ActiveWorkbook.Worksheets("nameOfSheet").Visible = False

然后通过以下方式将其重新打开：

ActiveWorkbook.Worksheets("nameOfSheet").Visible = True

或者，您也可以使用工作表的代码名称。

ActiveWorkbook.BlankOptionSheet.Visible = True
ActiveWorkbook.BlankOptionSheet.Visible = False

Answer 3

见这句话：

  

只有当您将不同工作簿中的工作表引用到代码所在的工作表时，才能使用工作表CodeName。

来自ozgrid.com