Wie Sie Makros in Excel berechnen

Wissen, wie man Excel Makros verwenden, um Neuberechnung eines Arbeitsblatts zu erzwingen wird sichergestellt, dass die Formeln in Ihre Arbeitsmappen genaue Werte produzieren. Excel berechnet Formeln automatisch standardmäßig die lange Bearbeitungszeiten für Arbeitsmappen mit vielen Formeln zur Folge haben kann. Wechsel auf die manuelle Berechnung löst dieses Problem, aber das Problem der ungenauen Formeln erstellt. Excel VBA-Makros können vorübergehend oder dauerhaft, automatischen Berechnung wiederherstellen. Ein Vorteil der Verwendung von Makros zum Neuberechnen im Gegensatz zur Reaktivierung der Option automatische Berechnung ist, dass Sie genau welche Zellen zu berechnen, können die verhindert der Zeitverzögerungen durch Berechnung de gesamte Arbeitsblatt erstellt.

Anweisungen

1 Das "File" Menü "Optionen" Button Klicken Sie den Link "Formeln". Klicken Sie auf die Option "Manuell", dann "OK", um das Dialogfeld "Optionen" zu schließen. Dieser Schritt deaktiviert die automatische Berechnung, die das Makro wiederherstellen wird.

2 Geben Sie Folgendes in die Zellen A1 bis C1 des aktuellen Arbeitsblatts: 5, 10, "= a1 * a2." Beachten Sie, dass die Formel in C1, aufgrund Ihrer Auswahl die manuelle Option in Schritt 1 nicht zutrifft. Das Makro wird automatischen Berechnung wiederherstellen.

3 Klicken Sie auf die Registerkarte "Entwicklertools" "Visual Basic"-Schaltfläche, um die Visual Basic-Programmierumgebung einzugeben. Fügen Sie das folgende Programm in dem, das daraufhin angezeigten Fenster. Dieses Programm verwendet das "Range"-Objekt Werte in zwei verschiedene Zellen und eine Formel in eine andere Zelle eingeben. Das Programm hat zwei Anweisungen, die das aktuelle Arbeitsblatt seine Berechnung aktualisieren erzwingen. Die erste ist "Application.Calculation = XlCalculationAutomatic." Diese Erklärung legt die Eigenschaft "Berechnung" der Excel-Anwendung selbst. Die zweite ist der Aufruf der Funktion "Berechnung" des Objekts "ActiveSheet". Diese Aussage sagt nur das aktive Blatt berechnen, nicht die gesamte Arbeitsmappe.

Public Sub recalc()

"Geben Sie die Zahlen in einer Zelle

' Geben Sie eine Calulation, von denen diese Zahlen abhängig

"Neuberechnung

Application.Calculation = XlCalculationAutomatic

Range("a1") = 5

Range("a2") = 10

Range("a3"). Formel = "= a1 * a2"

ActiveSheet.Calculate

EndSub

4 Mit "F5" um das Programm auszuführen.

5 Klicken Sie auf das Symbol "Excel" auf der Windows-Taskleiste, um zu Excel zurückzukehren. Beachten Sie, dass die Zelle A3 eine Funktion besitzt, die aktualisierte Berechnung erfordert, und das Ergebnis der Berechnung, das Produkt aus dem Arbeitsblatt obersten beiden Zellen, ist.