国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

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

2019-12-13 12:07:47
字體：大 中 小
來源：轉載
供稿：網友

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

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

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

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

復制內容到剪貼板
  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    ' 設置到期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 "有產品于" & v & "到期，請及時修訂！"  
  24.   
  25. End Sub  

4、確認，保存。關閉當前工作簿，再次打開，就會看到到期提示啦。

注意事項：Excel表格中日期的單元格要以日期形式設置。

相關推薦：

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

excel理日期數據怎么計算？excel靈活處理日期數據的兩種方法

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 晋中市| 寿光市| 龙川县| 桂阳县| 锦屏县| 达拉特旗| 曲阜市| 社会| 临泉县| 全椒县| 阿勒泰市| 鲜城| 余江县| 博爱县| 荆门市| 准格尔旗| 株洲县| 和顺县| 华池县| 湖州市| 和田市| 历史| 安宁市| 确山县| 时尚| 岳普湖县| 连南| 班玛县| 郎溪县| 西平县| 嵩明县| 监利县| 屏边| 边坝县| 福州市| 漯河市| 同江市| 锡林浩特市| 阜新| 封开县| 金门县|