[已解决]自动到期提醒

qian123 · 发表于 2012-10-5 13:54

hwc2ycy 发表于 2012-10-5 13:45

有多个到期时好像会出错？

hwc2ycy · 发表于 2012-10-5 13:57

哦，你截上图看看。

hwc2ycy · 发表于 2012-10-5 13:59

Private Sub Workbook_Open()
Dim arrName, arrDate
Dim iRow As Long, i As Long
Dim sName As String
Dim dDate As Date
iRow = [a2].End(xlDown).Row
If Cells(iRow, 1) = "" Then Exit Sub
arrName = Range("h2:h" & iRow).Value
arrDate = Range("w2:w" & iRow).Value
For i = 1 To UBound(arrName)
dDate = arrDate(i, 1)
If Date < dDate And dDate - Date <= 15 Then
sName = IIf(sName = "", arrName(i, 1) & " " & arrDate(i, 1), sName & vbCr & arrName(i, 1) & " " & arrDate(i, 1))
Else
If Date > dDate Then sName = IIf(sName = "", arrName(i, 1) & " " & arrDate(i, 1), sName & vbCr & arrName(i, 1) & " " & arrDate(i, 1))
End If
Next
If Len(sName) > 0 Then
MsgBox "合同马上到期人员名单:" & vbCr & sName
End If
End Sub

复制代码

qian123 · 发表于 2012-10-5 14:00

hwc2ycy 发表于 2012-10-5 13:57
哦，你截上图看看。

老师！！哪个已经过期的要怎么弄也让他提示出来呢？

qian123 · 发表于 2012-10-5 14:25

hwc2ycy 发表于 2012-10-5 13:59

怎么我再添加些下面的就不行了！！

hwc2ycy · 发表于 2012-10-5 14:44

把原来的代码删掉，换新发的就成了。

lovesheeps · 发表于 2013-7-23 14:23

hwc2ycy 发表于 2012-10-5 13:59

老师，为什么你发的管理人员名单【到期】文件夹内两个文件都能打得开显示到期人员框啊~

hwc2ycy · 发表于 2013-7-23 14:32

lovesheeps 发表于 2013-7-23 14:23
老师，为什么你发的管理人员名单【到期】文件夹内两个文件都能打得开显示到期人员框啊~

应该不会，这个只能针对单个的工作簿才起作用。

maicao1986 · 发表于 2013-7-24 00:49

使用了

ww176185299 · 发表于 2014-4-11 17:30

hwc2ycy 发表于 2012-10-5 13:59

老师你好，使用了这个VBA感觉很不错，请问假如X列为正式合同到期时间、Y列为试用期到期时间，如何实现在同一个MsgBox对两者都进行提醒？

		自动登录	找回密码
密码			注册