I denne artikel lærer vi, hvordan du ændrer formlen i cellerne i et område til værdier ved hjælp af VBA i Microsoft Excel.
Rådata for dette eksempel består af salgsdata. Salgsdata indeholder oplysninger om antallet af varer, der sælges af medarbejdere i forskellige byer. Sidste række og kolonne indeholder sumformlen til at finde det samlede antal varer, der sælges i en bestemt by af en bestemt medarbejder.
Vi vil gerne konvertere alle formlerne i det aktive ark til værdier. For at konvertere alle formlerne til værdier har vi oprettet en makro “ChangingFormulasToValue”. Denne makro kan køres ved at klikke på knappen "Konverter formler til værdier".
I øjebliksbilledet kan man se formlen i H18 -celle konverteres til værdi.
Kode forklaring
Angiv SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell))
Ovenstående kode bruges til at tildele alle celler fra celle A1 til den sidste celle i projektmappen som område.
SourceRng.Value = SourceRng.Value
Ovenstående kode bruges til at tildele celleværdien ved at springe formlen over
Følg venligst nedenstående for koden
Option Eksplicit sub ChangingFormulasToValue () 'Deklarerende variabler Dim SourceRng som område' Angiv alle celler i det aktive ark som område Angiv SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell)) 'Tildeler kun værdien af den celleoverspringsformel for cellen SourceRng.Value = SourceRng.Value End Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet
