標題: 判斷時間, 跳出視窗 [打印本頁]

---

作者: yc1031    時間: 2016-5-5 11:40     標題: 判斷時間, 跳出視窗

大家好,

想請教判斷條件的跳出視窗, 該怎麼弄~
有二個作法, 如下
設1:  一開文件, 若如果現在時間超過訂購時間, 跳出對話窗
設2:  一開文件, 若是狀態是已截止, 則跳出視窗


先感謝各位了!


[attach]24167[/attach]

---

作者: stillfish00    時間: 2016-5-6 15:53

回復 1# yc1031
In ThisWorkbook :

1. Private Sub Workbook_Open()
   
2.   With Sheets(1)
   
3.     If Now - Fix(Now) > CDate(.[B7]) Then MsgBox "超過訂購時間": Exit Sub
   
4.     If .[H7] = "已截止" Then MsgBox "已截止": Exit Sub
   
5.   End With
   
6. End Sub

複製代碼

---

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