一、如何在excel中实现弹出窗口提醒
我的办法有点笨，希望你能看懂
1、在现有工作表最前新建一张工作表，表格设计为每对应一张工作表设列数据，假设：原工作表名称为：表一、表二、……，表一中有手机号码，到期日等等数据，下面以对表一统计到期为例
2、首先，在表一中，要使数据列的排列顺序为，到期日在手机号码前面，假设A列为到期日，B列为手机号码；
3、新建工作表，在A列输入：=TODAY()+7，向下复制公式到一个尽可能大的区域，在B列输入：=IFERROR(VLOOKUP(A1,表一!A:B,2,FALSE),"")，向下复制公式，这样每天打开汇总表，就可以看到一周后到期的手机号码
注：IFERROR是EXCEL2007的函数，在2003中，可以用=IF(ISERROR(VLOOKUP(A1,表一!A:B,2,FALSE),"",VLOOKUP(A1,表一!A:B,2,FALSE))
4、依此类推，CD列对应表二，EF列对应表三
二、怎样做excel打开窗口
方法/步骤
1
打开两个excel文件。
请点击输入图片描述
2
在上方工具栏点击“视图”，然后点击“并排查看”；
请点击输入图片描述
3
如图所示，此时excel就会呈现上下两个窗口，我们可以里面进行编辑，不需要来回切换；
请点击输入图片描述
4
如果想要取消，那么在其中一个窗口中再点击“视图”，然后再次点击“并排查看”；
请点击输入图片描述
5
此时窗口就会回到一个。我们也可以用“视图”中的“切换窗口”来选择我们想要查看的窗口；
请点击输入图片描述
6
选择其中一个之后的效果如图，我们选择的窗口就会切换出来。
请点击输入图片描述
三、如何用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的话，这段代码是有用的
