大家在使用Excel統(tǒng)計(jì)時(shí)，常常會(huì)涉及一個(gè)標(biāo)準(zhǔn)、合同等等什么時(shí)候到期，同時(shí)需要在起到期前**天修訂核準(zhǔn)。那可以用Excel來實(shí)現(xiàn)在打開該表格時(shí)，彈出提示框提示標(biāo)準(zhǔn)于***到期，避免錯(cuò)過截止日期。

1、打開Excel表格后，按Alt+F11，打開VBA編輯器

2、雙擊左側(cè)工程里面的ThisWorkbook，然后選擇代碼窗口里的workbook和open

3、然后輸入以下代碼，關(guān)鍵地方已備注，按自己要求修改即可。

1. Private Sub Workbook_Open()      
2. dim v,s,n as Date      
3. v = Application.WorksheetFunction.Max(Range("B2:B20"))  'C2:C20為要審查的單元格    
4. For Each s In Range("C2:C20")    
5. n = Date   '獲取當(dāng)前日期      
6. If s > n And s < n + 60 Then    ' 設(shè)置到期60天時(shí)提醒      
7.   If v > s Then      
8.   v = s      
9.   End If      
10. End If      
11. Next      
12.      MsgBox "有產(chǎn)品于" & v & "到期，請(qǐng)及時(shí)修訂！"     
13. End Sub  

4、確認(rèn)，保存。關(guān)閉當(dāng)前工作簿，再次打開，就會(huì)看到到期提示啦。

注意事項(xiàng)：Excel表格中日期的單元格要以日期形式設(shè)置。

相關(guān)推薦：

excel中怎么利用dateif函數(shù)計(jì)算兩個(gè)日期參數(shù)的差值?

excel理日期數(shù)據(jù)怎么計(jì)算？excel靈活處理日期數(shù)據(jù)的兩種方法