返回列表下一主題上一主題發帖

[發問] button跨日顯示

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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沒有顯示，請求論壇的大神們幫忙解惑，感謝

button狀態改變.zip (48.65 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

2^#

發表於 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

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

TOP

准提部林