【发布时间】:2018-11-30 03:10:28
【问题描述】:
我已经搜索过了。最相关的建议“workbook_open”的宏名称 但我仍然必须手动调用该模块。这是我编码的内容。 (欢迎提出任何其他建议,因为这是我 73 岁时的第一个 vba 脚本)
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
【问题讨论】:
-
你需要把这个放在Workbook的代码后面(ThisWorkbook是默认的)。
-
嗨 gpNadpa,欢迎来到 Stack Overflow。你能澄清一下你看到了什么问题吗?文件打开时宏不执行吗?
-
感谢您的及时反馈 -- Eliot K。是的,问题是当我打开工作簿时宏没有执行。共产国际:我不理解“代码背后”的含义。
-
对不起。我应该在哪里寻找“ThisWorkbook”?我在开发人员选项卡中。到目前为止,我使用的两个选项是“Visual Basic”,它显示了上面的代码(作为“Module1”)和“Macros”,它列出了“Workbook_Open”并为我提供了运行、编辑等选项。人。