|
本帖最后由 zhangjiell 于 2010-6-21 11:17 编辑
用VBA代码制作的日期提醒小程序,当你打开这个工作簿,如果合同到期的就会弹出消息框提醒。
Private Sub Workbook_Open() '把代码放在Workbook级的事件中,当工作簿打开(OPEN)就立即执行
n = [c2].End(xlDown).Row ‘C列最后一个合同到期日数据的单元格行号,便于你可以增加记录
For i = 1 To n ’开始循环
If Range("c" & i).Value < Date Then MsgBox Range("c" & i).Offset(0, -2) & "的合同已经到期"
'如果C列某单元格的值小于当天日期,则提示到期;Range("c" & i).Offset(0, -2) 是指C列某单元格
向左数2格,即姓名,这样就把“姓名”和“合同到期时间”相互对应了
Next
End Sub
zhangjiell 于 2010-6-21 10:58 补充以下内容
怎么我无法上传附件
http://www.xumuren.com/plugin.php?identifier=download&module=download&acti=softview&softid=28492 |
评分
-
查看全部评分
版权声明:本文内容来源互联网,仅供畜牧人网友学习,文章及图片版权归原作者所有,如果有侵犯到您的权利,请及时联系我们删除(010-82893169-805)。
|