V tem članku se bomo naučili, kako spremeniti formulo v celicah v razponu na vrednosti z uporabo VBA v programu Microsoft Excel.
Neobdelane podatke za ta primer sestavljajo podatki o prodaji. Podatki o prodaji vsebujejo podatke o številu artiklov, ki jih prodajajo zaposleni v različnih mestih. Zadnja vrstica in stolpec vsebuje formulo za vsoto za iskanje skupnega števila predmetov, ki jih je določen zaposleni prodal v določenem mestu.
Vse formule v aktivnem listu želimo pretvoriti v vrednosti. Za pretvorbo vseh formul v vrednosti smo ustvarili makro »ChangingFormulasToValue«. Ta makro lahko zaženete s klikom na gumb »Pretvori formule v vrednosti«.
Na posnetku je prikazana formula v celici H18 pretvorjena v vrednost.
Razlaga kode
Nastavi SourceRng = obseg ("A1", obseg ("A1"). Posebne celice (xlCellTypeLastCell))
Zgornja koda se uporablja za dodelitev vseh celic od celice A1 do zadnje celice v delovnem zvezku kot obseg.
SourceRng.Value = VirRng.Value
Zgornja koda se uporablja za dodelitev vrednosti celice, ki preskoči formulo
Za kodo sledite spodaj
Možnost Eksplicitna podremenitev ChangingFormulasToValue () 'Deklariranje spremenljivk Dim SourceRng As Range' Določite vse celice v aktivnem listu kot obseg Set SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell)) "Dodelite samo vrednost formula za preskakovanje celice celice SourceRng.Value = SourceRng.Value End Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte
