Šiame straipsnyje mes sužinosime, kaip pakeisti diapazono langelių formulę į reikšmes, naudojant „Microsoft Excel“ VBA.
Neapdorotus šio pavyzdžio duomenis sudaro pardavimo duomenys. Pardavimų duomenyse yra informacija apie skirtingų miestų darbuotojų parduotų prekių skaičių. Paskutinėje eilutėje ir stulpelyje yra sumos formulė, leidžianti rasti bendrą konkretaus miesto konkretaus darbuotojo parduotų prekių skaičių.
Norėtume visas aktyviojo lapo formules paversti reikšmėmis. Norėdami konvertuoti visas formules į reikšmes, sukūrėme makrokomandą „ChangingFormulasToValue“. Šią makrokomandą galima paleisti spustelėjus mygtuką „Konvertuoti formules į reikšmes“.
Momentinėje nuotraukoje matoma, kad formulė H18 langelyje yra konvertuojama į vertę.
Kodo paaiškinimas
Nustatykite SourceRng = Diapazonas („A1“, Diapazonas („A1“). SpecialCells (xlCellTypeLastCell))
Aukščiau pateiktas kodas naudojamas visoms ląstelėms, pradedant nuo A1 langelio, iki paskutinio darbaknygės langelio priskirti kaip diapazoną.
SourceRng.Value = SourceRng.Value
Aukščiau pateiktas kodas naudojamas ląstelės vertei priskirti, praleidžiant formulę
Sekite toliau pateiktą kodą
Parinktis „Explicit Sub ChangingFormulasToValue ()“ Kintamųjų deklaravimas „Dim SourceRng As Range“ Nurodykite visas aktyvaus lapo ląsteles kaip diapazoną langelio praleidimo ląstelės formulė SourceRng.Value = SourceRng.Value End Sub
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el