麻辣家族討論版版 » Excel程式區 » 判斷時間, 跳出視窗

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

判斷時間, 跳出視窗

中學生 Rank: 2

帖子: 106
主題: 35
精華: 0
積分: 146
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2024-3-26

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2016-5-5 11:40 | 只看該作者

判斷時間, 跳出視窗

大家好,

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

先感謝各位了!

跳出視窗.rar (11.05 KB)

樓主熱帖

收藏

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2016-5-6 15:53 | 只看該作者

回復 1# yc1031
In ThisWorkbook :

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

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。

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