最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

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

復(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天時提醒   
  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)閉當(dāng)前工作簿,再次打開,就會看到到期提示啦。

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

相關(guān)推薦:

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

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

相關(guān)文章

最新評論

伊金霍洛旗| 辽阳县| 赤水市| 凌源市| 石渠县| 翁牛特旗| 荃湾区| 阿坝县| 新河县| 桂平市| 锡林郭勒盟| 涟源市| 天峻县| 伊川县| 白银市| 吕梁市| 临洮县| 芦山县| 监利县| 华容县| 门源| 台北县| 澜沧| 沙洋县| 大理市| 太仓市| 库尔勒市| 小金县| 台东市| 翁牛特旗| 大同县| 华阴市| 蒙自县| 宾川县| 邮箱| 都昌县| 河南省| 惠水县| 大冶市| 得荣县| 长春市|