
我希望除特定時間外,該表全天隱藏。
網路上有一個這樣的宏
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