Question

我有一个文件，操作员必须在其中输入数据。

但是，有时他们会忘记这样做。

当他们登录到他们的工作站时，我已经启动了文件，但是我需要提醒他们“给它们加油”。

设法在设定的时间弹出MsgBox。

是否可以使其像Outlook提醒一样工作？

这是我到目前为止所拥有的。

Private Sub Workbook_Open()

If Weekday(Now()) = vbMonday Then
    Application.OnTime "08:30:00", "DisplayAlarm"
End If

End Sub

Sub DisplayAlarm()
    MsgBox "Don't forget to input your data!", vbOKOnly
End Sub

Answer 1

好吧，我认为我们真的不必进行太多更改就可以为您工作。如果您宁愿设置为8:30的“主要”警报，那么如果他们在此之后登录，则可以将其设置为提醒他们在一小时内添加他们的信息。

Private Sub Workbook_Open()

    If Weekday(Now()) = vbMonday Then
        If TimeValue(Now()) < TimeValue("8:30:00") Then
            Application.OnTime TimeValue("08:30:00"), "DisplayAlarm"
        Else
            Application.OnTime Now() + TimeValue("1:00:00"), "DisplayAlarm"
        End If
    End If

End Sub

Sub DisplayAlarm()
    MsgBox "Don't forget to input your data!", vbOKOnly
End Sub

如果只希望它在等待一个小时后通知所有人，则可以使用它。

Private Sub Workbook_Open()

    If Weekday(Now()) = vbMonday Then
        Application.OnTime Now() + TimeValue("1:00:00"), "DisplayAlarm"
    End If

End Sub

Sub DisplayAlarm()
    MsgBox "Don't forget to input your data!", vbOKOnly
End Sub

Excel中的通知弹出窗口

1 个答案: