Excel日期提醒

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

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

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

Private Sub Workbook_Open()　'把代碼放在Workbook級(jí)的事件中，當(dāng)工作簿打開(kāi)（OPEN）就立即執(zhí)行
n = [c2].End(xlDown).Row　‘C列最后一個(gè)合同到期日數(shù)據(jù)的單元格行號(hào)，便于你可以增加記錄
For i = 1 To n　　’開(kāi)始循環(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格，即姓名，這樣就把“姓名”和“合同到期時(shí)間”相互對(duì)應(yīng)了
Next
End Sub

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

怎么我無(wú)法上傳附件
http://www.livemosquitofree.com/plugin.php?identifier=download&module=download&acti=softview&softid=28492