Excel VBA中的Open事件

Excel VBA中的Open事件

一个最常见的被监控事件是工作簿的Open事件。当工作簿(或加载项)打开时，该事件被触发，执行Workbook_Open过程。Workbook_Open过程功能非常多，通常用于完成以下任务：　　●显示欢迎信息。　　●打开其他工作簿。　　●激活特定的工作表。　　●确保符合一定的条件。例如，一个工作簿也许需要安装特殊的加载项。

下面是关于Workbook_Open过程的一个简单示例。它使用VBA的Weekday函数确定星期几。如果是星期五，将显示一个信息框提醒用户执行文件备份。如果不是星期五，不显示任何信息。

private Sub Workbook_Open()　　　If Weekday(Now)=6 ThenMsg="请执行文件备份"MsgBox Msg, vbInformationEnd IfEnd Sub

Private Sub Workbook_open()Application.SendKeys ("%h(F6)")End Sub

下面的例子是当工作簿打开时，执行一系列的动作。它最大化Excel窗口，最大化工作簿窗口，激活命名为DataEntry的表，并选中A列第一个空的单元格。如果不存在DataEntry工作表，则代码产生错误信息。

private Sub Workbook_Open()Application.WindowState = xlMaximizedActiveWindow.windowState = xlMaximizedWorksheets("DataEntry").ActivateRange("A1").End(xlDown).offset(1,O).SelectEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。