excel到期弹窗提醒桌面弹_打开Excel自动弹出提示框提示标准、合同将到期

然后输入以下代码，关键地方已备注，按自己要求修改即可。

Private Sub Workbook_Open()

Dim v, s, n As Date

v = Application.WorksheetFunction.Max(Range("C2:C15")) 'C2:C15为要审查的单元格

For Each s In Range("C2:C15")

n = Date '获取当前日期

If s > n And s < n + 60 Then ' 设置到期60天时提醒

If v > s Then

v = s

End If

If v < Application.WorksheetFunction.Max(Range("C2:C15")) Then

Dim T As String

Dim R As Integer

Set C = Range("C2:C15").Find(v)

If Not C Is Nothing Then

R = C.Row '返回行

End If

T = Sheet1.Cells(R, 2).Value

MsgBox T & "将于" & v & "到期，请及时核定！"

End If

End Sub

excel到期弹窗提醒桌面弹_打开Excel自动弹出提示框提示标准、合同将到期相关推荐

excel到期弹窗提醒桌面弹_求助Excel到期自动弹窗提醒
来这个城市之前,先翻看了一下他的号码,继而留言,问他的具体位置,末了说我大概九点左右到. 他回复不见不散. 天朦胧亮,我收拾好一切,开始出发.车外冷风飕飕,车内却温暖如春,这得以使我的心情极佳.行至县 ...
excel到期弹窗提醒桌面弹_excle中自动提醒安排【EXCEL自动弹窗提醒】
Excel如何实现自动提醒功能! 假设日期是E列,F列为列,你在F1中输入: =IF(E1=TODAY(),"通知张三.李四.评委参加下午评标",""),用柄向 ...
excel到期弹窗提醒桌面弹_excel中某列日期到期提前弹窗提醒()
excel中某列日期到期提前弹窗提醒解个问题的方法如下: 1.Excel,在所示的B1,A1单元格中输入"2018-5-17""2018-6-17"两个日期, ...
右键excel 文件后文件夹卡死,或打开Excel后文件所在的文件夹卡死
右键excel 文件后文件夹卡死,或打开Excel后文件所在的文件夹卡死! 关闭资源管理器中的详细信息窗格,解决问题! 1.右键卡主效果: 2.解决方法打开资源管理器: 3.关闭资源管理器中的详细信 ...
打开网页自动弹出QQ对话框的实现办法
Ian今天偶然进入一个公司的企业网站,然后QQ聊天窗口这里马上就弹出与那个公司客服聊天的窗口.怀着好奇的心态,Ian分析了该公司的网站源码,发现了实现网页弹出qq对话框的原理与实现方法,相信此时此刻你 ...
打开网页自动下载php,打开网页自动弹出下载aidclient.php窗口解决方法
在使用浏览器打开网页的时刻,有时会自动弹出aidclient.php的下载窗口或者是aidclient.js的下载窗口,下载地址是w.cnzz.com/aidclient.php,不管是360浏览器. ...
excel两个表格数据对比_用Excel一键抓取网页表格数据
无需插件或编程,Excel自带一键抓取网页表格数据,你会用吗?省去从网页复制甚至手工抄写的麻烦,极大提高工作效率! 首先在浏览器打开想要抓取表格的网页(例如:中国银行外汇牌价),复制地址栏网址,然后打 ...
excel日期相减去除周末_在Excel中突出显示周末日期
excel日期相减去除周末 Yes, the weekend is over, but another one is just five days away! To make it easier to ...
excel按条件选择工作表_在Excel工作表中选择“实际使用范围”
excel按条件选择工作表 It's easy to select the current range in Excel – just press Ctrl + A. That shortcut se ...

excel到期弹窗提醒桌面弹_打开Excel自动弹出提示框提示标准、合同将到期

excel到期弹窗提醒桌面弹_打开Excel自动弹出提示框提示标准、合同将到期相关推荐

最新文章

热门文章