亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

Excel表格怎么設(shè)置標(biāo)準(zhǔn)/合同到期自動(dòng)彈出提醒?

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

大家在使用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)鍵地方已備注,按自己要求修改即可。

復(fù)制內(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   '獲取當(dāng)前日期   
  10.   
  11. If s > n And s < n + 60 Then    ' 設(shè)置到期60天時(shí)提醒   
  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 & "到期,請(qǐng)及時(shí)修訂!"  
  24.   
  25. 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ù)的兩種方法

相關(guān)文章

最新評(píng)論