国产探花免费观看_亚洲丰满少妇自慰呻吟_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靈活處理日期數據的兩種方法

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 巧家县| 项城市| 枣庄市| 泸水县| 汝城县| 五峰| 平顶山市| 定兴县| 太仆寺旗| 全南县| 漳平市| 新巴尔虎右旗| 威宁| 安远县| 平果县| 闽清县| 亚东县| 庐江县| 炉霍县| 深泽县| 苏尼特右旗| 壤塘县| 会理县| 祁东县| 汶川县| 江安县| 同江市| 九台市| 洮南市| 石楼县| 泾川县| 武功县| 万州区| 泰兴市| 喀喇| 巍山| 麻栗坡县| 哈密市| 禄丰县| 翁源县| 锦屏县|