U ovom ćemo članku naučiti kako promijeniti formulu u ćelijama u rasponu na vrijednosti pomoću VBA u programu Microsoft Excel.
Sirovi podaci za ovaj primjer sastoje se od podataka o prodaji. Podaci o prodaji sadrže podatke o broju artikala koje zaposlenici prodaju u različitim gradovima. Zadnji redak i stupac sadrže formulu zbroja za pronalaženje ukupnog broja artikala koje je određeni zaposlenik prodao u određenom gradu.
Željeli bismo sve formule u aktivnom listu pretvoriti u vrijednosti. Za pretvaranje svih formula u vrijednosti stvorili smo makronaredbu “ChangingFormulasToValue”. Ovu makronaredbu možete pokrenuti klikom na gumb "Pretvori formule u vrijednosti".
Na snimci se može vidjeti da je formula u ćeliji H18 pretvorena u vrijednost.
Objašnjenje koda
Postavi SourceRng = Raspon ("A1", Raspon ("A1"). Posebne ćelije (xlCellTypeLastCell))
Gornji kôd koristi se za dodjeljivanje svih ćelija počevši od ćelije A1 do posljednje ćelije u radnoj knjizi kao raspon.
SourceRng.Value = Izvorna rng.vrijednost
Gornji kôd koristi se za dodjeljivanje vrijednosti ćelije preskačući formulu
Molimo slijedite dolje za kôd
Opcija Eksplicitna podizmjenaFormulasToValue () 'Deklariranje varijabli Dim SourceRng kao raspon' Navedite sve ćelije u aktivnom listu kao raspon Postavi SourceRng = Raspon ("A1", Raspon ("A1"). SpecialCells (xlCellTypeLastCell)) 'Dodjeljivanje samo vrijednosti formula za preskakanje ćelije ćelije SourceRng.Value = SourceRng.Value End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte
