如何用EXCEL制作弹出窗口

2024-11-23 09:20:58

推荐回答（5个）

回答（1）：

在表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的话，这段代码是有用的

回答（2）：

同时按alt和f11进入宏界面，在左上窗口找到本工作簿的thisworkbook，双击它，在右边粘贴如下代码：
private
sub
workbook_open()
msgbox
"我是这个工作簿的主人。"
&
chr(13)
&
"请注意以下内容："&
chr(13)
&
"blablabla"
end
sub
"
"
&
char(13)
&
不要改动，且可以继续粘贴以增加内容，里面的内容可以修改。
ok。但打开文件时，必须启用宏，否则没用。

回答（3）：

能做。用一个循环把你的数据遍历一遍就可以了。

回答（4）：

可以使用在excel里使用定时器
具体给你个联接,你自己去看一下,一点也不难.
http://blog.sina.com.cn/s/reader_56091c9301007w2e.html

回答（5）：

应最好采用visual
basic
进行编程处理，这样编制窗口非常方便，控制起来也非常方便，最后执行也是用宏来完成的，当然需要一定的vba编程知识