如何在一天中的特定时间显示工作表?

如何在一天中的特定时间显示工作表?

我希望除了特定时间之外,全天隐藏工作表。

网上有这样的宏

Sub Auto_Open()
  Application.OnTime TimeValue("17:00"), "HideRows"
  Application.OnTime TimeValue("09:00"), "RevealRows"
End Sub

这是给细胞贴标签

但我希望它适用于整个工作表并成为工作表对象代码!

我的工作簿全天打开,中午休息一下。我在 Windows 上运行的是 Microsoft Excel 2016 的最新更新。

感谢你的协助!

答案1

您需要创建显示然后隐藏工作表的宏:

Sub ShowSheet()
    WorkSheets("SheetName").Visible = xlSheetVisible
End Sub

Sub HideSheet()
    WorkSheets("SheetName").Visible = xlSheetHidden
End Sub

您的主要子项将是:

Sub Auto_Run()
    Application.OnTime TimeValue("15:00"), "ShowSheet"
    Application.OnTime TimeValue("15:30"), "HideSheet"
End Sub

相关内容