excel - 打开工作簿时运行宏

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 工作簿。

在代码 Pane 的顶部，您会注意到两个下拉菜单:

选择Workbook从左侧下拉菜单中； VBE 为 Open 生成一个事件处理程序过程事件，自动:

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

现在将您的代码放入该事件处理程序过程中，保存 - 然后就完成了!下次在启用宏的情况下打开该工作簿时，将调用该事件处理程序，并且您的宏将运行。

玩得开心!学习什么时候都不晚!