Office中国论坛/Access中国论坛

标题: 请问用Excel和VBA怎样实现计划表的剩余时间提示功能？ [打印本页]

作者: winse 时间: 2008-9-16 01:50
标题: 请问用Excel和VBA怎样实现计划表的剩余时间提示功能？
说明：1需要算出现在离当前任务结束时间的剩余分钟数(xx格里的值)
2需要实现跨日计算在总任务超出当日工作时间后超出当天时间的任务右边的完成时间可显示另一天的相应时间
3需要每隔10分钟刷新一次当前时间(或不断刷新 10分钟弹出1次提示)并弹出提示：离当前任务结束时间为xx分钟

具体详情在附件中
请高人多多指教啦！谢谢！

[attach]32097[/attach]

作者: ui 时间: 2008-9-16 08:54
不知道excel有没有计算两个时间差的函数, Access用datediff

作者: winse 时间: 2008-9-18 17:11
[attach]32132[/attach]顶一下希望有高人能帮我解决啊

[ 本帖最后由 winse 于 2008-9-18 17:29 编辑 ]

作者: winse 时间: 2008-9-22 23:21
顶一下

作者: winse 时间: 2008-9-29 19:22
怎么还没人回答呢或者介绍个好点的提问地方也好啊

作者: qujing888 时间: 2008-10-12 16:40
你所问的正是我的难题

作者: jychg 时间: 2009-7-11 22:06
本帖最后由 jychg 于 2009-7-11 22:07 编辑

c5输入公式然后向下复制到c8：=IF(($B$3+SUM($B$5:B5)/1440-$C$3)>0,$B$3+SUM($B$5:B5)/1440-$C$3+$B$3+1,$B$3+SUM($B$5:B5)/1440)

b10输入公式：=(OFFSET(E5,MATCH(NOW(),E5:E8,1),0)-NOW())*1440

thisworkbook中插入代码：
Private Sub Workbook_Open()
k = True
OntimeRun
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
k = False
End Sub

插入模块代码：

Option Explicit
Public k As Boolean

Sub OntimeRun()

Sheet1.Calculate
MsgBox "离当前任务结束时间" & Sheet1.Range("B10").Value

If k = True Then
Application.OnTime Now() + TimeValue("00:10:00"), "OntimeRun"
End If

VBA.DoEvents
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)