欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Excel表格怎么設(shè)置標準/合同到期自動彈出提醒?

  發(fā)布時間:2016-01-27 13:08:38   作者:佚名   我要評論
合同的日期報關(guān)很重要,有些合同到期了就需要續(xù)簽合同,如果錯過日期就會出現(xiàn)問題,這時候我們就可以在excel中設(shè)置彈出提示框提示標準、合同將到期,下面分享這個功能的實現(xiàn)方法

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

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

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

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

復制內(nèi)容到剪貼板
  1. Private Sub Workbook_Open()   
  2.   
  3. dim v,s,n as Date   
  4.   
  5. v = Application.WorksheetFunction.Max(Range("B2:B20"))  'C2:C20為要審查的單元格  
  6.  
  7. For Each s In Range("C2:C20")  
  8.  
  9. n = Date   '獲取當前日期   
  10.   
  11. If s > n And s < n + 60 Then    ' 設(shè)置到期60天時提醒   
  12.   
  13.   If v > s Then   
  14.   
  15.   v = s   
  16.   
  17.   End If   
  18.   
  19. End If   
  20.   
  21. Next   
  22.   
  23.      MsgBox "有產(chǎn)品于" & v & "到期,請及時修訂!"  
  24.   
  25. End Sub  

4、確認,保存。關(guān)閉當前工作簿,再次打開,就會看到到期提示啦。

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

相關(guān)推薦:

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

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

相關(guān)文章

最新評論