| Lösung |
Das gewünschte Makro muss im Excel-grundlegenden sichtlichherausgeber bearbeitet werden, der die Folgenden Jobstepps verwendet:
0. Das Ihr Backup übertreffen Bogen, gerade falls…
1. Verwenden Sie Tools->Macro->Macros->Edit, um Ihr Makro im grundlegenden sichtlichherausgeber zu bearbeiten
2. Vor der „Ende Vor“ Zeile in Ihrem Makro, fügen Sie die Folgende Zeile hinzu:
Application.OnTime jetzt + TimeValue („00:00:05“), „Save_Exit“
3. Fügen Sie die Funktion Save_Exit () von unterhalb, gleich nachdem die „Ende Vor“ Zeile Ihres Makros hinzu.Beispiel 1: Das Folgende Beispiel sichert u. beendet Excel, 5 Sekunden nachdem das Makro beendet zu laufen.
VorMacro1 ()
'Folgende Zeile ist das tatsächliche Makro
ActiveCell.FormulaR1C1 = „dieses Beispiel bearbeitet!“
'Folgende Zeile ist der Aufruf zum Save_ Ausgang Makro
Application.OnTime jetzt + TimeValue („00:00:05“), „Save_Exit“
Ende Unterseeboot
VorSave_Exit ()
Application.Quit
ThisWorkbook.Close SaveChanges:=True
Ende Unterseeboot
Beispiel 2: Das Folgende Beispiel sichert u. beendet Excel, 5 Minuten nachdem das Makro anfängt zu laufen. Auf diese Weise, die übertreffendatei schließt immer, selbst wenn das Makro hängt
VorMacro1 ()
'Folgende Zeile ist der Aufruf zum Save_ Ausgang Makro
Application.OnTime jetzt + TimeValue („00:05:00“), „Save_Exit“
'Folgende Zeile ist das tatsächliche Makro
ActiveCell.FormulaR1C1 = „dieses Beispiel bearbeitet!“
Ende Unterseeboot
VorSave_Exit ()
Application.Quit
ThisWorkbook.Close SaveChanges:=True
Ende Unterseeboot
|
