I den här artikeln lär vi oss hur man ändrar formeln i cellerna i ett intervall till värden med hjälp av VBA i Microsoft Excel.
Rådata för detta exempel består av försäljningsdata. Försäljningsdata innehåller information om antalet objekt som säljs av anställda i olika städer. Sista raden och kolumnen innehåller summan formeln för att hitta det totala antalet objekt som säljs i en viss stad av en viss anställd.
Vi skulle vilja konvertera alla formler i det aktiva arket till värden. För att konvertera alla formler till värden har vi skapat ett makro “ChangingFormulasToValue”. Detta makro kan köras genom att klicka på knappen "Konvertera formler till värden".
I ögonblicksbilden kan man se formeln i H18 -cell konverteras till värde.
Kodförklaring
Ange SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell))
Ovanstående kod används för att tilldela alla celler från cell A1 till den sista cellen i arbetsboken som intervall.
SourceRng.Value = SourceRng.Value
Ovanstående kod används för att tilldela cellvärdet som hoppar över formeln
Följ koden nedan
Alternativ Explicit Sub ChangingFormulasToValue () 'Declaring variables Dim SourceRng As Range' Ange alla celler i det aktiva arket som intervall Set SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell)) 'Tilldelar endast värdet på cellhoppningsformel för cellen SourceRng.Value = SourceRng.Value End Sub
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen