畜牧人

標(biāo)題: Excel日期提醒 [打印本頁(yè)]
作者: zhangjiell    時(shí)間: 2010-6-21 10:45
標(biāo)題: Excel日期提醒
本帖最后由 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

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

怎么我無(wú)法上傳附件
http://www.ffers.com.cn/plugin.php?identifier=download&module=download&acti=softview&softid=28492
作者: yangchengban    時(shí)間: 2010-6-21 11:10
路過(guò)，學(xué)習(xí)！
作者: chengying    時(shí)間: 2010-6-21 13:35
謝謝
作者: liao7lin2    時(shí)間: 2010-6-21 20:48
下了怎么用啊!
作者: zhangjiell    時(shí)間: 2010-6-22 08:21
回復(fù) 4# liao7lin2
這是一個(gè)宏 點(diǎn)工具   宏    編輯器 就可以看到了
作者: liao7lin2    時(shí)間: 2010-6-22 12:32
搞了好久沒(méi)用來(lái),請(qǐng)告知步驟。
謝謝
作者: zhangjiell    時(shí)間: 2010-6-23 09:34
回復(fù) 6# liao7lin2


   你想用它搞什么 把你的文件傳上來(lái)  我看看幫你搞
作者: lengyifu    時(shí)間: 2010-7-30 16:38
VBA不好弄呀，需要一定的基礎(chǔ)呀



歡迎光臨 畜牧人 (http://www.ffers.com.cn/) Powered by Discuz! X3.5