In dit artikel zullen we leren hoe u de formule in de cellen in een bereik kunt wijzigen in waarden met VBA in Microsoft Excel.
Ruwe gegevens voor dit voorbeeld bestaan uit verkoopgegevens. Verkoopgegevens bevatten informatie over het aantal artikelen dat door werknemers in verschillende steden is verkocht. De laatste rij en kolom bevat de somformule voor het vinden van het totale aantal artikelen dat door een bepaalde werknemer in een bepaalde stad is verkocht.
We willen alle formules in het actieve blad naar waarden converteren. Om alle formules naar waarden om te zetten, hebben we een macro "ChangingFormulasToValue" gemaakt. Deze macro kan worden uitgevoerd door op de knop "Formules converteren naar waarden" te klikken.
In de momentopname kan men zien dat de formule in de H18-cel is geconverteerd naar waarde.
Code uitleg
Stel SourceRng = Range ("A1", Range ("A1") in.SpecialCells(xlCellTypeLastCell))
Bovenstaande code wordt gebruikt om alle cellen vanaf cel A1 tot de laatste cel in de werkmap als bereik toe te wijzen.
SourceRng.Value = SourceRng.Value
Bovenstaande code wordt gebruikt om de celwaarde toe te wijzen die de formule overslaat
Volg hieronder voor de code:
Optie Explicit Sub ChangingFormulasToValue() 'Variabelen Dim SourceRng As Range declareren 'Specificeer alle cellen in het actieve blad als bereik Set SourceRng = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell)) 'Alleen de waarde van de cel overslaan formule van de cel SourceRng.Value = SourceRng.Value End Sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite