嘻皮客娱乐学习网

标题: 使用Excel的Open事件及MsgBox函数制作提示对话框 [打印本页]

作者: aiwomuyi 时间: 2017-1-16 17:27
标题: 使用Excel的Open事件及MsgBox函数制作提示对话框

对于某些具有特殊功能的Excel表格，有时需要在打开Excel工作表时能够出现提示对话框，对表格的功能、操作以及制作的有关信息等进行说明。本文介绍使用Excel工作簿的Open事件以及MsgBox函数来实现提示对话框功能的方法。
1、启动Excel并打开工作表，打开Visual Basic编辑器，在工程资源管理器中双击"ThisWorkbook"选项打开当前工作簿的“代码”窗口，如图1所示。具体程序代码如下所示：
Private Sub workbook_open()
Dim msg As String '声明变量
msg="欢迎使用小小公积金查询系统!"&vbCrLf
msg=msg&"请在单元格中输入身份证号进行查询!"&vbCrLf '赋值变量
msg=msg&"作者：郭刚"&vbCrLf
msg=msg&"制作日期：2013年1月"&vbCrLf
MsgBox msg,,"欢迎" '显示欢迎对话框
End Sub

(, 下载次数: 86)

图1　在“代码”窗口中输入代码

2、切换到Excel工作表，保存当前文档后关闭文档。当再次打开该文档时，将自动打开提示对话框，如图2所示。

(, 下载次数: 91)

图2　打开文档时显示提示欢迎对话框

欢迎光临嘻皮客娱乐学习网 (http://www.xipick.com/)