查看: 3337|回复: 7

Excel日期提醒

  [复制链接]
发表于 2010-6-21 10:45:03 | 显示全部楼层 |阅读模式
本帖最后由 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
中国畜牧人网站微信公众号

评分

参与人数 1论坛币 +20 收起 理由
nety + 20

查看全部评分

版权声明:本文内容来源互联网,仅供畜牧人网友学习,文章及图片版权归原作者所有,如果有侵犯到您的权利,请及时联系我们删除(010-82893169-805)。
发表于 2010-6-21 11:10:04 | 显示全部楼层
路过,学习!

评分

参与人数 1论坛币 +10 收起 理由
system + 10 第一个回复系统自动奖励

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2010-6-21 13:35:47 | 显示全部楼层
谢谢
回复 支持 反对

使用道具 举报

发表于 2010-6-21 20:48:07 | 显示全部楼层
下了怎么用啊!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-6-22 08:21:35 | 显示全部楼层
回复 4# liao7lin2
这是一个宏 点工具   宏    编辑器 就可以看到了
回复 支持 反对

使用道具 举报

发表于 2010-6-22 12:32:15 | 显示全部楼层
搞了好久没用来,请告知步骤。
谢谢
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-6-23 09:34:24 | 显示全部楼层
回复 6# liao7lin2


   你想用它搞什么 把你的文件传上来  我看看帮你搞
回复 支持 反对

使用道具 举报

发表于 2010-7-30 16:38:15 | 显示全部楼层
VBA不好弄呀,需要一定的基础呀
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

发布主题 快速回复 返回列表 联系我们

关于社区|广告合作|联系我们|帮助中心|小黑屋|手机版| 京公网安备 11010802025824号

北京宏牧伟业网络科技有限公司 版权所有(京ICP备11016518号-1

Powered by Discuz! X3.5  © 2001-2021 Comsenz Inc. GMT+8, 2024-11-15 01:12, 技术支持:温州诸葛云网络科技有限公司