Excel日期提醒

zhangjiell · 發(fā)表于 2010-6-21 10:45:03

本帖最后由 zhangjiell 于 2010-6-21 11:17 編輯

用VBA代碼制作的日期提醒小程序，當(dāng)你打開這個工作簿，如果合同到期的就會彈出消息框提醒。

Private Sub Workbook_Open()　'把代碼放在Workbook級的事件中，當(dāng)工作簿打開（OPEN）就立即執(zhí)行
n = [c2].End(xlDown).Row　‘C列最后一個合同到期日數(shù)據(jù)的單元格行號，便于你可以增加記錄
For i = 1 To n　　’開始循環(huán)
If Range("c" & i).Value < Date Then MsgBox Range("c" & i).Offset(0, -2) & "的合同已經(jīng)到期"
'如果C列某單元格的值小于當(dāng)天日期，則提示到期；Range("c" & i).Offset(0, -2)　是指C列某單元格
向左數(shù)2格，即姓名，這樣就把“姓名”和“合同到期時間”相互對應(yīng)了
Next
End Sub

zhangjiell 于 2010-6-21 10:58 補充以下內(nèi)容

怎么我無法上傳附件
http://ffers.com.cn/plugin.php?identifier=download&module=download&acti=softview&softid=28492