如何用EXCEL制作弹出窗口

来源：百度知道 编辑：UC知道 时间：2024/06/20 16:44:39
我有一张EXCEL表，想添加一个弹出窗口的功能，同时这个弹出的窗口具备时间到了自动提醒的功能

比如说：有一宗业务今天受理的，到了第三天自动弹出一个窗口，提醒业务编号、受理人、接受时间等提示

请教各位大侠用EXCEL能不能实现，如何制作，谢谢！！比较急

在表1的ABCD列分别填写
编号、受理人、日期、时间
在ThisWorkbook的代码页复制下面的代码

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:002"), "s"
End Sub

在模块区复制下面的代码

Dim Ar(1 To 100, 1 To 10), Xn
Public Sub s() 's()和sss()和ThisWorkbook的代码，组成定时报警系统
Sheets(1).Activate
For i = 1 To 100
For j = 1 To 10
Ar(i, j) = Cells(i, j).Text
Next j
Next i
dn = 3 '延迟 3 天
Xn = 0
For i = 1 To 10 '需要提示的记录
Application.OnTime DateValue(Ar(i, 3)) + dn + TimeValue("00:00:20") + _
TimeValue(Ar(i, 4)), "sss"
Next
End Sub
Public Sub sss()
Xn = Xn + 1
MsgBox Ar(Xn, 1) & "号业务，受理人：" & Ar(Xn, 2) & " 接受时间：" _
& Ar(Xn, 3) & " " & Ar(Xn, 4)

End Sub

如果你了解一点VBA的话，这段代码是有用的

<