求excel vba 宏代码,打开xlsm格式的文件自动运行的宏

Question

要求打开文件后先检查表p第二列最后一行有数据的单元格，单元格如果是今天的日期则跳过保存，如果不是今天的日期则激活另一个宏 p2。
最后保存工作表，关闭。

Answer 1

把下面的代码复制到工作簿的 ThisWorkbook 模块里面就可以了

Option Explicit
Private Sub Workbook_Open()
    Dim l As Long
    l = Sheets("p").Range("a60000").End(xlUp).Row
    '这里假定日期保存在A列的最后一个单元格，你可以自己修改Range("a60000")为Range("c60000")等等。
    If Sheets("p").Range("a" & l).Value = DateValue(Now) Then
        '这里也假定日期保存在A列的最后一个单元格，你可以自己修改Range("a" & l)为Range("c" & l)等等，和上面的要一致。
        p2
        ThisWorkbook.Save
    End If
End Sub

Sub p2()
    MsgBox "yes"
End Sub