打开工作簿时运行宏

Question

我已经搜索了。最相关的建议是宏名称“ workbook_open”，但是我仍然必须手动调用该模块。这是我编写的代码。（欢迎提出任何其他建议，因为这是我的第一个vba脚本-73岁）

Sub Workbook_Open()  
  Dim lastRow As Long     'last row with data  
  Dim thisDate As Double  'start timestamp  
  thisDate = Now()  
  With Sheets("Pressure Log")  
    lastRow = .Range("B" & .Rows.Count).End(xlUp).Row 'populate next row with date/time  
    Range("B" & lastRow).Offset(1) = Format(thisDate, "dddd")  
    Range("B" & lastRow).Offset(1, 1) = Format(thisDate, "mm/dd/yyyy")  
    Range("B" & lastRow).Offset(1, 2) = Format(thisDate, "hh:mm AM/PM")  
    Range("B" & lastRow).Offset(1, 3).Select 'position for user data  
  End With  
End Sub  

Answer 1

在Visual Basic编辑器（VBE）中，打开项目资源管理器（Ctrl + R），然后双击该ThisWorkbook模块（或右键单击它并选择“查看代码”）：

这将调出ThisWorkbook模块的后台代码。ThisWorkbook表示托管您的VBA项目的工作簿；这是一种特殊的模块类型，它继承了Excel.Workbook该类的所有成员，可以代表任何 Excel工作簿。

在代码窗格的顶部，您会注意到两个下拉列表：

选择Workbook从左侧的下拉菜单; VBE 自动为事件生成事件处理程序过程Open：

请注意，右侧的下拉菜单现在显示Open-如果单击该下拉列表，您会发现它列出了可以处理的每个事件Workbook；选择一个将自动生成具有正确签名/原型的方法。

现在，将您的代码放入事件处理程序中，保存-一切就绪！下次在启用宏的情况下打开该工作簿时，将调用该事件处理程序，并且您的宏将运行。

玩得开心！学习永远不会太晚！