Ich versuche, ein Makro jeden Tag um 9 Uhr morgens auszuführen. Ich versuche, die OnTime-Anwendung zu verwenden und habe getestet, dass das Makro zu einem bestimmten Zeitpunkt gestartet wird, aber es funktioniert nicht automatisch. Ich muss das Makro manuell ausführen, um das Popup-Fenster zu öffnen. Irgendein Rat?Tägliche Timer zum automatischen Ausführen eines Makros
Sub FinancialAlert()
Application.OnTime TimeValue("15:33:00"), "Summary of Covered Companies"
Dim i As Long
i = 5
While Workbooks("Montreal Issuers.xlsm").Sheets("Summary of Covered Companies").Cells(i, 5) <> ""
With Workbooks("Montreal Issuers.xlsm")
If .Sheets("Summary of Covered Companies").Cells(i, 5).Value = 1 Then
MsgBox Workbooks("Montreal Issuers.xlsm").Sheets("Summary of Covered Companies").Cells(i, 3).Value & " is issuing their next financial statement tomorrow (" & _
Format(Workbooks("Montreal Issuers.xlsm").Sheets("Summary of Covered Companies").Cells(i, 4).Value, "[$-409]mmmm d, yyyy;@") & ")."
End If
If .Sheets("Summary of Covered Companies").Cells(i, 5).Value = 0 Then
MsgBox Workbooks("Montreal Issuers.xlsm").Sheets("Summary of Covered Companies").Cells(i, 3).Value & " is issuing their next financial statement today (" & _
Format(Workbooks("Montreal Issuers.xlsm").Sheets("Summary of Covered Companies").Cells(i, 4).Value, "[$-409]mmmm d, yyyy;@") & ")."
End If
End With
i = i + 1
Wend
End Sub
Kann ich eine Zelle mit der Zeit erstellen und wenn es jeden Tag 9:00 Uhr auftrifft, wird das Makro ausgeführt? – Jeff
Ja, Sie können nur sicherstellen, dass die Zelle richtig formatiert ist als Stunden und versuchen Sie Application.OnTime TimeValue (Bereich ("A1"). Text), "Zusammenfassung der Covered Companies" Vergessen Sie nicht, wenn diese Antwort Sie dazu führen die Lösung, überprüfe die grüne Markierung :) – Sgdva