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

2024-11-18 14:54:27

推荐回答（1个）

回答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