摘要： 一个最常见的被监控事件是工作簿的Open事件。当工作簿(或加载项)打开时，该事件被触发，执行Workbook_Open过程。Workbook_Open过程功能非常多，通常用于完成以下任务：
●显示欢迎信息。
●打开其他工作簿。
●激活特定的工作表。
●确保符合一定的条件。例如，一个工作簿也许需要安装特殊的加载项。
下面是关于Workbook_Open过程的一个简单示例。它使用VBA的Weekday函数确定星期几。如果是星期五，将显示一个信息框提醒用户执行文件备份。如果不是星期五，不显示任何信息。
private Sub Workbook_Open()
If Weekday(Now)=6 Then
Msg="请执行文件备份"
MsgBox Msg, vbInformation
End If
End Sub
实现从excle单元格是提取数字教程
方法一：=LOOKUP(9E 307,–MID(A1,MIN(FIND({0;1;2;3;4;5;6;7;8;9},A1&1234567890)),ROW(INDIRECT("1:"&LEN(A1)))))方法二：自定义函数：qushu(x)Function qushu(
遗憾的是，VBA对于Excel2007的功能区束手无策。例如，甚至没有一种直接的方法去激活一个特定的功能区选项卡。下面的例子使用SendKeys声明模拟“按键”。在该例子中，它发送了快捷键Alt H，该键是Excel2007的“键提示”，相当于激活功能区的“开始”选项卡。按时键从功能区中移出键提示字母。
Private Sub Workbook_open()
Application.SendKeys ("%h(F6)")
End Sub
下面的例子是当工作簿打开时，执行一系列的动作。它最大化Excel窗口，最大化工作簿窗口，激活命名为DataEntry的表，并选中A列第一个空的单元格。如果不存在DataEntry工作表，则代码产生错误信息。
private Sub Workbook_Open()
Application.WindowState = xlMaximized
ActiveWindow.windowState = xlMaximized
Worksheets("DataEntry").Activate
Range("A1").End(xlDown).offset(1,O).Select
End Sub
VBA调用Excel函数公式的代码 Excel教程
在Excel中使用函数公式，有两种使用方法，一是直接通过鼠标或手工输入的方法使用，称为直接使用；二是通过VBA间接调用。称为间接法。 通过VBA调用Excel中的函数，具有相当的灵活性，当我们在处理未知区域即不确定有多少行和多少列的时候，如果使用VBA调用函数，那么，将是一种稍有智能性的数据处理方法。 下面，给大家详细
