返回列表 上一主題 發帖

判斷時間, 跳出視窗

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 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
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題