În acest articol, vom învăța cum să schimbăm formula din celulele dintr-un interval în valori folosind VBA în Microsoft Excel.
Datele brute pentru acest exemplu constau în date despre vânzări. Datele privind vânzările conțin informații cu privire la numărul de articole vândute de angajați în diferite orașe. Ultimul rând și coloană conține formula sumă pentru găsirea numărului total de articole vândute într-un anumit oraș de către un anumit angajat.
Am dori să convertim toate formulele din foaia activă în valori. Pentru a converti toate formulele în valori, am creat o macro „ChangingFormulasToValue”. Această macrocomandă poate fi rulată făcând clic pe butonul „Conversia formulelor în valori”.
În instantaneu, se poate vedea formula în celula H18 convertită în valoare.
Explicarea codului
Setați SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell))
Codul de mai sus este utilizat pentru a aloca ca celule toate celulele care încep de la celula A1 la ultima celulă din registrul de lucru.
SourceRng.Value = SourceRng.Value
Codul de mai sus este utilizat pentru a atribui valoarea celulei sărind formula
Vă rugăm să urmați codul de mai jos
Opțiune Explicit Sub ChangingFormulasToValue () 'Declararea variabilelor Dim SourceRng Ca Range' Specificați toate celulele din foaia activă ca interval Set SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell)) 'Atribuind numai valoarea formula de omitere a celulei celulei SourceRng.Value = SourceRng.Value End Sub
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail