求大神：合同到期提前提醒，弹窗提醒

100000y

求大神：
提前40天提醒合同到期，即合同结束日期距今天小于等于40天时，有弹窗提醒（每次打开excel都提醒），提醒内容：工号XXX合同即将到期！
感激涕零！ 人事档案.zip (36.3 KB, 下载次数: 324)

2013-8-29 17:02 上传

点击文件名下载附件

100000y

{:soso_e109:}不要秒沉啊

冰河的神话

你搜一下啊，这里面有很多啊！你可以参考一下这个！http://club.excelhome.net/thread-821315-1-1.html

100000y

冰河的神话 发表于 2013-8-30 09:26
你搜一下啊，这里面有很多啊！你可以参考一下这个！http://club.excelhome.net/thread-821315-1-1.html

昨天搜到这个帖子了，复制码过来不知道怎么修改，对VBA完全没有概念。。。。

7176386

1. Option Explicit
   
2. Sub yusa()
   
3.   Dim A
   
4.   Dim B As Integer
   
5.   Dim C As Variant
   
6.   Dim D As String
   
7.   With Sheets("信息录入")
   
8.     B = Application.CountA(Range("T:T")) + 3
   
9.     C = Val(Format(Format(Now, "YYYY/MM/DD"), "0"))
   
10.     If B > 4 Then
    
11.       A = .Range("A5:T" & B)
    
12.         For B = 1 To UBound(A)
    
13.           If A(B, 2) <> "" Then
    
14.             If Val(Format(A(B, 20), "0")) > C Then
    
15.               If Val(Format(A(B, 20), "0")) - C <= 40 Then
    
16.                 D = D & "工号：" & A(B, 4) & "合同即将到期！" & Chr(10)
    
17.               End If
    
18.             End If
    
19.           End If
    
20.         Next
    
21.       If D <> "" Then MsgBox D, 64
    
22.     Else
    
23.       MsgBox "当前工作表中无数据！", 16
    
24.     End If
    
25.   End With
    
26. End Sub

复制代码

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.   Call yusa
   
4. End Sub

复制代码

7176386

自己测试。

100000y

7176386 发表于 2013-8-30 11:25
自己测试。

小弟万谢！{:soso_e183:}{:soso_e156:}
{:soso_e192:}

7176386

100000y 发表于 2013-9-2 11:44
小弟万谢！

我只是新手。你自己多看点书就懂了。

逆风追Dreams

7176386 发表于 2013-9-2 19:22
我只是新手。你自己多看点书就懂了。

大神帮我，小于10天提醒，xx客户即将到期，和联系电话

ted1010

可以請教一下Format(A(B, 20), "0")的意思嗎?