使用Excel工作表来安排工作——OnTime事件

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《使用Excel工作表来安排工作——OnTime事件》，欢迎阅读！

使用Excel工作表来安排工作——OnTime事

件



前不久，有位朋友问：由于工作太多太杂，导致经常常忘记要做的事情，希望利用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”。

本文来源：https://www.dy1993.cn/AqPx.html