In diesem Artikel erfahren Sie, wie Sie die Formel in den Zellen in einem Bereich mit VBA in Microsoft Excel in Werte ändern.
Rohdaten für dieses Beispiel bestehen aus Verkaufsdaten. Verkaufsdaten enthalten Informationen zur Anzahl der von Mitarbeitern in verschiedenen Städten verkauften Artikel. Die letzte Zeile und Spalte enthält die Summenformel zum Ermitteln der Gesamtzahl der von einem bestimmten Mitarbeiter in einer bestimmten Stadt verkauften Artikel.
Wir möchten alle Formeln im aktiven Blatt in Werte umwandeln. Um alle Formeln in Werte umzuwandeln, haben wir ein Makro „ChangingFormulasToValue“ erstellt. Dieses Makro kann durch Klicken auf die Schaltfläche "Formeln in Werte umwandeln" ausgeführt werden.
In der Momentaufnahme kann man sehen, dass die Formel in der H18-Zelle in einen Wert umgewandelt wird.
Codeerklärung
Set SourceRng = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell))
Der obige Code wird verwendet, um alle Zellen ab Zelle A1 bis zur letzten Zelle in der Arbeitsmappe als Bereich zuzuweisen.
SourceRng.Value = SourceRng.Value
Der obige Code wird verwendet, um den Zellenwert zuzuweisen, wobei die Formel übersprungen wird
Bitte folgen Sie unten für den Code
Option Explicit Sub ChangingFormulasToValue() 'Variablen deklarieren Dim SourceRng As Range 'Alle Zellen im aktiven Blatt als Bereich angeben Set SourceRng = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell)) 'Nur den Wert der Formel zum Überspringen von Zellen der Zelle SourceRng.Value = SourceRng.Value End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site