在xlsm文件中执行的最后一个宏的VBA日期

Question

i want to write in 2 cells the following informations :

Sheets("Dates").Range("A1").Value = Date '(today 's date)
Sheets("Dates").Range("A2").Value= ' ??? Date of macro executed 

Is there a code that can tell us when the macro is executed ? Not the date of last modified , so i can compare the two dates ?

Thanks

Answer 1

I do something similiar on a hidden worksheet with this code on run:

Dim LastRunDate As Date
Dim LastRunTime As Date
Dim CurrentDate As Date
Dim CurrentTime As Date

CurrentDate = Format(Now, "dd/mm/yyyy")
CurrentTime = Format(Now, "hh:mm:ss")

LastRunDate = WB1.Names("LastRunDate").RefersToRange
LastRunTime = WB1.Names("LastRunTime").RefersToRange
LastRunTime = LastRunTime + TimeSerial(0, 10, 0)

If CurrentDate <= LastRunDate Then
    If CurrentTime <= LastRunTime Then
        End
    End If
End If

Range(WB1.Names("LastRunDate")) = CurrentDate
Range(WB1.Names("LastRunTime")) = CurrentTime

So this just works out if the code has been run in the last 10mins. I just force a save a little after that code

Answer 2

By last modified I'm presuming that you want the date of when the workbook was last saved? If so:

Private Sub Workbook_Open()
Sheets("Dates").Range("A1").Value = NOW()
End Sub

Sub YourMacro()
'Whatever code the macro runs
Sheets("Dates").Range("A2").Value = NOW()
End Sub

Answer 3

Excel doesn't store data like this by default, but what you can do is create a very hidden sheet to store data between instances. In your case, make the hidden sheet with a row for each macro, then add code to the routine that will store the current date into a cell in that row, which you can later recall for your purposes