Tässä artikkelissa opimme muuttamaan alueen solujen kaavan arvoiksi käyttämällä VBA: ta Microsoft Excelissä.
Tämän esimerkin raakatiedot koostuvat myyntitiedoista. Myyntitiedot sisältävät tietoja työntekijöiden myymien tuotteiden määrästä eri kaupungeissa. Viimeisellä rivillä ja sarakkeessa on summakaava, jolla löydetään tietyn kaupungin tietyn työntekijän myymien tavaroiden kokonaismäärä.
Haluamme muuntaa kaikki aktiivisen taulukon kaavat arvoiksi. Muuttaaksemme kaikki kaavat arvoiksi olemme luoneet makron "ChangingFormulasToValue". Tämä makro voidaan suorittaa napsauttamalla Muunna kaavat arvoiksi -painiketta.
Tilannekuvassa H18 -solun kaava on muunnettu arvoksi.
Koodin selitys
Aseta SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell))
Yllä olevaa koodia käytetään määrittämään kaikki solut alkaen solusta A1 viimeiseen soluun työkirjassa alueeksi.
SourceRng.Value = SourceRng.Value
Yllä olevaa koodia käytetään solun arvon määrittämiseen ohittamatta kaava
Seuraa koodia alla
Option Explicit Sub ChangingFormulasToValue () 'Muuttujien ilmoittaminen Dim SourceRng as Range' Määritä kaikki aktiivisen taulukon solut alueeksi Aseta SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell)) 'Vain arvon määrittäminen solun ohituskaava solusta SourceRng.Value = SourceRng.Value End Sub
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse
