1979年农历十月初五10月2日下晚上6点出生

来源：蜘蛛抓取(WebSpider) 时间：2017-11-29 14:20 标签： 1979年11月11日农历
查看:17294|回复：3
自己搞了一个租房管理，交租金提醒功能不会弄，于是在网上找了一个别人做的范例，觉得很适合自己的这个表格。 但是那个范例有VBA编程，我对这一窍不通，原本复制过来后，我的表格根本不起作用，而且一启用宏就失去响应，想请各位高人看看。
这是别人的表格和代码。可以根据租房日期，提前几天用颜色提醒。
(138.22 KB)
这个是我的表格，提醒那个单元框的参数和别人那个差不多，代码复制过去，可是没提醒，还无响应。
(129.44 KB)
我的表格针对租客和房东各一个表，希望都能实现提醒功能，半年和年付提前一个月，用***。季度付提前15天提醒，用橙色。月付提前5天，用红色。
下载次数: 1700
(12.46 KB)
(12.46 KB)
下载次数: 439
我的邮箱&&谢谢各位高人！&&@号替换#
本帖最后由 摄影师Toni 于
13:21 编辑
然后条件筛选就行。
(182.72 KB)
初级工程师
引用:原帖由 wcxsky 于
13:40 发表
然后条件筛选就行。 学习了，这个功能没用过的。
引用:原帖由 guanli360 于
15:24 发表
学习了，这个功能没用过的。 可以试下~~简单的功能应该能够完成求高手帮忙:EXCEL中用VBA写(用声音如何设置时间提醒并语音提醒)急!!_vba吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：6,924贴子：
求高手帮忙:EXCEL中用VBA写(用声音如何设置时间提醒并语音提醒)急!!收藏
举例:部件名称 上线时间
提示时间2底座
8:251.当达到上线时间,提前10分钟提示并语音提示2.当达到上线时间,提前5分钟提示并语音提示
马尔代夫、泰国、中国、马来西亚多国酒店全部订一晚送一晚，3天限时优惠
思路:到达系统里的表格中的时间就自动提醒?提醒的时候就运行一个声音文件就好了
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或[转载]VBA实现定时提醒功能
在Excel中VBA的应用很多，今天我们将利用VBA设置提醒。
　　1．在Excel中新建一个文档，并将它命名为“提醒.xls”。
　　2．执行菜单栏中的“工具”→“宏”→“Visual
Basic编辑器”命令，进入VBA编辑状态。
　　3．在“工程资源管理器”窗口中，选中“VBAProject（提醒.xls）”选项，然后执行菜单栏中的“插入”→“模块”命令，插入一个名为“模块1”的新模块。
　　4．选中“模块1”，执行菜单栏中的“视图”→“属性窗口”命令，在打开的“属性”窗口中将它更改为“提醒”。
　　5．在“提醒”模块的代码窗口中输入如下所示的代码：
　　Sub auto_open()
　　●设置一个自动运行的宏--auto_open
　　Application.OnTime
TimeValue("09:30:00"),
"tx"'设置提醒时间为09:30:00（可以根据实际需要进行修改），设置调用提醒宏
　　Application.OnTime
TimeValue("010:00:00"), "tx"　'再设置提醒一次。
　　End Sub
　　Sub tx()
　　●设置一个显示提醒消息的宏。
MsgBox("订购一张日北京——海南的机票！", vbInformation,
"赶快订机票")
　　End Sub
　　提示：
　　可以设置多个提醒宏（tx1、tx2……），只需要在自动运行宏中分别设置调用的时间，即可实现多个消息的定时提醒。
　　6．保存代码，并退出VBA编辑状态。
　　7．当设定的时间到来时，系统将弹出提示框进行提醒。
在使用电子表格的时候，此功能有效（无论使用的是不是此文件，只要是电子表格即可）。
设置两个提醒事件如下：代码都一样，只有两个地方更改一下，设置两个提醒时间（不同的时间），调协两个提醒消息即可。去试一下吧
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。查看: 1963|回复: 15
求自动弹窗日期提醒
阅读权限10
在线时间 小时
哥哥些大神些，看论坛学了两天没搞定呀！&&
刚开的小店汽车保养，做了个客户系统，会提前在表里写好下一次的保养日期，目的：每天打开这个表，如果到保养日期的前七天以内都会收到弹窗列表提示！！！过了这个日期以后就不再提示！&&求大神帮忙！
12:15 上传
点击文件名下载附件
10.31 KB, 下载次数: 61
阅读权限30
在线时间 小时
这个下午上班后帮你写一下
阅读权限95
在线时间 小时
Private Sub Workbook_Open()
& & Dim arr, i, j, k
& & arr = Range(&A1&).CurrentRegion
& & i = UBound(arr)
& & For j = 3 To i
& && &If Date - arr(j, 14) &= 7 And Date - arr(j, 14) & 0 Then
& && && &MsgBox &客户姓名： & & arr(j, 2) & && &的爱车快到保养期限，请通知客户前来保养！&
& && &End If
& & Next
End Sub
复制代码
阅读权限95
在线时间 小时
附件供参考
(16.06 KB, 下载次数: 197)
12:35 上传
点击文件名下载附件
阅读权限10
在线时间 小时
附件供参考
真是太谢谢了，神啊，今天520还来干这呀
阅读权限10
在线时间 小时
真是太谢谢了，神啊，今天520还来干这呀
我设了个5月25怎么没有反应呀？
阅读权限10
在线时间 小时
我设了个5月25怎么没有反应呀？
哦，没问题的，我刚才禁用了宏，能好用列表显示吗？不过这样已经很满意了，之前用的条件格式。
阅读权限95
在线时间 小时
哦，没问题的，我刚才禁用了宏，能好用列表显示吗？不过这样已经很满意了，之前用的条件格式。
不好意思，写反了，代码改成这样
Private Sub Workbook_Open()
& & Dim arr, i, j, k
& & arr = Range(&A1&).CurrentRegion
& & i = UBound(arr)
& & For j = 3 To i
& && &If arr(j, 14) - Date &= 7 And arr(j, 14) - Date &= 0 Then
& && && &MsgBox &客户姓名： & & arr(j, 2) & && &的爱车快到保养期限，请通知客户前来保养！&
& && &End If
& & Next
& && &
End Sub
复制代码
阅读权限95
在线时间 小时
(16.37 KB, 下载次数: 215)
12:58 上传
点击文件名下载附件
阅读权限10
在线时间 小时
对的对的，我刚刚按你写的程序然后把符号改了也可以，但和你第二次发的程序不一样。。谢谢了，
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 2329|回复: 5
如何用vba来实现时间提醒
阅读权限20
在线时间 小时
& & & & & & & &
我打算做一个表，来实现时间提醒，比如：在J列里是不同的时间，当时间到了时，能自动的弹出一个窗口，告诉你时间到了，我用如下代码，但不能实现此功能，请各位大侠指教。
dim aa as range
for each aa in range("a1",range("a65536').end(xlup))
if aa=now(),then
application.ontime timevalue(aa),"tx"
msgbox("时间到了“)
阅读权限20
在线时间 小时
请版主和各位大侠帮帮忙，告诉我如何实现时间提醒功能。急，在线等。
阅读权限20
在线时间 小时
不行呀，看不到VBA程序，而且我需要的是到了几点钟
（如11:00）就能弹出窗口来提示你。
阅读权限100
在线时间 小时
& & & & & & & &
代码是录入而不是粘贴的吧?
阅读权限95
在线时间 小时
我认为这个做的不错，有生日提醒功能。可以找作者要VBA密码
阅读权限95
在线时间 小时
请参考http://club.excelhome.net/viewthread.php?tid=79391
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 1979年11月11日农历 的文章

 

随机推荐