Aktivieren Sie Automatische Berechnungen

Ich bin mit Excel 2013-und wir kommen über zufällige Excel-Dateien eingestellt, um manuelle Berechnungen und Sie scheinen nicht zu gehen Weg nach dem zurücksetzen auf die automatische.

Diese Dateien scheinen so zu bleiben, wie Automatik, aber an einem zufälligen Tag eine andere Excel-Datei oder der gleichen Excel-kehrt zurück auf manuell. Ich möchte automatisch ein makro ausführen, beim laden eine beliebige Excel-Datei oder nur das Programm Excel zur automatischen Berechnungen.

Habe ich versucht, das folgende makro:

Private Sub Auto_Open()
Application.Calculation = xlCalculationAutomatic

Erhielt ich folgende Fehlermeldung beim laden von Excel:

"Run-time error '1004': die Methode 'Berechnung' des Objekts'_Application'failed

Beheben:
Ein Auto_Open-makro wird ausgeführt, bevor eine andere Arbeitsmappen öffnen. Deshalb, wenn Sie Aktionen aufzeichnen, die Sie möchten Excel, um auf die Standard-Arbeitsmappe Mappe1 oder auf eine Arbeitsmappe geladen wird, aus dem XLStart-Ordner, die Auto_Open-makro fehl, wenn Sie Excel neu starten, weil das makro ausgeführt wird, bevor der Standard-und startup-Arbeitsmappen öffnen.

Wenn Sie Begegnung diese Einschränkungen, anstelle der Aufnahme eines Auto_Open-makro verwenden, müssen Sie erstellen Sie eine VBA-Prozedur für das Open-Ereignis, wie beschrieben im nächsten Abschnitt dieses Artikels.

Frage: gibt es eine Möglichkeit ein makro zu erstellen, zurücksetzen eine beliebige Excel-Datei wieder auf automatisch? Ich gespeichert, das makro in meine persönliche Arbeitsmappe, wie ich bin, in der Hoffnung, dass das makro ausgeführt wird, auf eine beliebige Excel-Datei, die ich laden.

  • Wenn Sie auf makro aufzeichnen, und führen Sie dann die Schritte zum aktivieren der automatischen Berechnungen, so wird der Befehl für Sie. Es ist dies: Application.Calculation = xlAutomatic.
  • Hi. Ja, das ist genau das, was ich getan habe, und erhielt die obige Fehlermeldung.
  • Dein code ist nicht der gleiche. xlCalculationAutomatic vs xlAutomatic
InformationsquelleAutor NPark | 2016-01-21
  1. 2

    Ich habe versucht, was du geschrieben hast und es funktioniert.

    Nur für den Fall, hier ist mein code 🙂

    Private Sub auto_open()

    Application.Calculation = xlAutomatic

End Sub
    InformationsquelleAutor Tomislav Paj
Schreibe einen Kommentar