返回列表 上一主題 發帖

[發問] button跨日顯示

cowww

帖子
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)
收藏 分享

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
4#
發表於 2023-7-14 16:00 | 只看該作者
回復 3# 准提部林

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

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

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-21 
3#
發表於 2023-7-14 12:23 | 只看該作者
模擬情境//
Xl0000090.rar (19.19 KB)

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-21 
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

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題