I denne artikkelen lærer vi hvordan du endrer formelen i cellene i et område til verdier ved hjelp av VBA i Microsoft Excel.
Rådata for dette eksemplet består av salgsdata. Salgsdata inneholder informasjon om antall varer som selges av ansatte i forskjellige byer. Siste rad og kolonne inneholder sumformelen for å finne det totale antallet varer som er solgt i en bestemt by av en bestemt ansatt.
Vi ønsker å konvertere alle formlene i det aktive arket til verdier. For å konvertere alle formlene til verdier, har vi laget en makro “ChangingFormulasToValue”. Denne makroen kan kjøres ved å klikke på knappen "Konverter formler til verdier".
I øyeblikksbildet kan man se formelen i H18 -cellen konverteres til verdi.
Kode forklaring
Angi SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell))
Koden ovenfor brukes til å tildele alle celler som starter fra celle A1 til den siste cellen i arbeidsboken som område.
SourceRng.Value = SourceRng.Value
Koden ovenfor brukes til å tildele celleverdien som hopper over formelen
Følg koden nedenfor
Option Explicit Sub ChangingFormulasToValue () 'Declaring variables Dim SourceRng As Range' Spesifiser alle celler i det aktive arket som område Angi SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell)) 'Tilordner bare verdien til cellehoppingsformel for cellen SourceRng.Value = SourceRng.Value End Sub
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post