我希望除了特定时间之外,全天隐藏工作表。
网上有这样的宏
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