请问用Excel和VBA怎样实现计划表的剩余时间提示功能？

winse

说明：1需要算出现在离当前任务结束时间的剩余分钟数(xx格里的值)
2需要实现跨日计算 在总任务超出当日工作时间后 超出当天时间的任务右边的完成时间可显示另一天的相应时间
3需要每隔10分钟刷新一次当前时间(或不断刷新 10分钟弹出1次提示)并弹出提示：离当前任务结束时间为xx分钟

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

ui

不知道excel有没有计算两个时间差的函数, Access用datediff

winse

顶一下 希望有高人能帮我解决啊

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

winse

顶一 下

winse

怎么还没人回答呢  或者介绍个好点的提问地方也好啊

qujing888

你所问的正是我的难题

jychg

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