使用Excel工作表来安排工作——OnTime事件
(您认为本文值几颗星)
Loading ...前不久，有位朋友问：由于工作太多太杂，导致经常常忘记要做的事情，希望利用Excel工作表来定时提醒要进行的工作。也就是说，在到达某个时刻后，工作表中的文本框会自动显示该时刻应该做的工作。如下面的图1和图2所示，图1为工作安排表，A列为工作安排，B列为开始该工作的时间；图2为用于显示当前应进行的工作。
图1：工作安排表，在A列中是工作安排，B列中是工作开始的时间。可根据需要修改和添加
图2：显示当前工作的界面。单击“显示”按钮后程序开始工作，当达到某时刻后，文本框中会显示当前应进行的工作
（注：这只是示例，可以根据自已的实际需要在图1的工作表中增加工作安排及相应的时间）
程序代码如下：
Option Explicit
Sub DisplayData()
Application.OnTime Now + TimeSerial(0, 0, 1), “ChangeText”
End Sub
Sub ChangeText()
Dim rng As Range, rngFind As Range, rngValue As Range
Dim rngStart As Range
Dim dTime As Date
Dim lLastRow As Long
On Error Resume Next
lLastRow = Sheet3.Range(”B65536″).End(xlUp).Row
Set rng = Sheet3.Range(”B1:B” & lLastRow)
dTime = Time
Set rngFind = rng.Find(dTime)
Sheet5.TextBox1.Value = rngFind.Offset(0, -1).Value
DisplayData
End Sub
工作表中的“显示”按钮关联的子过程为“DisplayData”。
生是做网站的人。死是做网站的鬼。我的网站什么时候才有你网站的那么成功啊。羡慕中~~~不嫌弃的来个友情链接如何啊