標題: [發問] button跨日顯示 [打印本頁]

---

作者: cowww    時間: 2023-7-14 09:59     標題: button跨日顯示

請教論壇的大大們
因為公司最近來了很多新人，所以單位將撈取資料的工作交給老鳥處理
可能是因為老鳥對Excel的操作不熟，總是按錯button
主管詢問是否有辦法控制button的隱藏

以下是我寫的條件+語法
早班的按鈕：08:00顯示，20:00隱藏
夜班的按鈕：20:00顯示，08:00隱藏
早班的按鈕執行完後隱藏起來
因為morning button執行後隱藏，如果時間未超過20:00時再開啟檔案morning button就會再出現
所以我有寫一段判斷，如果morning button是隱藏的狀態就跳出
為了保證明天08:00 morning button能正常顯示，我又寫了一段
如果now>=DateSerial(Year(Date), Month(Date), Day(Date) + 1) + 顯示時間，morning button就顯示
到了隔天發現morning button沒有顯示，請求論壇的大神們幫忙解惑，感謝
[attach]36714[/attach]
[attach]36715[/attach]

[attach]36717[/attach]

---

作者: 准提部林    時間: 2023-7-14 12:10

Private Sub Workbook_Open()
Dim Chk%, HR
HR = Hour(Time)
If HR >= 8 And HR < 20 Then Chk = 1
Sheets("工作表1").Shapes("Button 3").Visible = (Chk = 1)
Sheets("工作表1").Shapes("Button 1").Visible = (Chk = 0)
End Sub

另外//保全做法
兩個按鈕必須依當前時間判斷...非許可時間不可執行

---

作者: 准提部林    時間: 2023-7-14 12:23

模擬情境//
[attach]36718[/attach]

---

作者: cowww    時間: 2023-7-14 16:00

回復 3# 准提部林

非常感謝准提部林大大的解惑

小弟研究一下大大的寫法
有點看不太懂

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)