欧美成年人视频_国产一区欧美二区_色悠久久久久综合先锋影音下载_欧美日韩精品在线

畜牧人

標題: Excel日期提醒 [打印本頁]

作者: zhangjiell 時間: 2010-6-21 10:45
標題: Excel日期提醒
本帖最后由 zhangjiell 于 2010-6-21 11:17 編輯

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

Private Sub Workbook_Open()　'把代碼放在Workbook級的事件中，當工作簿打開（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列某單元格的值小于當天日期，則提示到期；Range("c" & i).Offset(0, -2)　是指C列某單元格
向左數(shù)2格，即姓名，這樣就把“姓名”和“合同到期時間”相互對應了
Next
End Sub

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

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

作者: yangchengban 時間: 2010-6-21 11:10
路過，學習！

作者: chengying 時間: 2010-6-21 13:35
謝謝

作者: liao7lin2 時間: 2010-6-21 20:48
下了怎么用啊!

作者: zhangjiell 時間: 2010-6-22 08:21
回復 4# liao7lin2
這是一個宏點工具宏編輯器就可以看到了

作者: liao7lin2 時間: 2010-6-22 12:32
搞了好久沒用來,請告知步驟。
謝謝

作者: zhangjiell 時間: 2010-6-23 09:34
回復 6# liao7lin2

你想用它搞什么把你的文件傳上來我看看幫你搞

作者: lengyifu 時間: 2010-7-30 16:38
VBA不好弄呀，需要一定的基礎呀

歡迎光臨畜牧人 (http://www.gzdxslyou.com/)