Įveskite formules langelių diapazone naudodami VBA makrokomandas

Turinys

Štai kaip naudojant makrokomandą užpildyti langelių diapazoną pasirinkta formule

Kopijuodami arba naudodami automatinio pildymo funkciją, „Excel“ siūlo daugybę formulių perkėlimo iš langelio į langelių diapazoną galimybių. Bet kaip tai padaryti naudojant makrokomandą?

Tai ypač naudinga, jei norite automatiškai sukurti lenteles ar sąrašus naudodami makrokomandą. Čia jums reikia būdų, kaip užpildyti langelius formulėmis.

Toliau pateiktame paveikslėlyje parodytas verslo numerių sąrašas. Šio sąrašo D stulpelyje norite pridėti sumų funkcijas, prie kurių pridedamos A, B ir C stulpelių vertės.

Norėdami atlikti šį darbą, naudokite VBA makrokomandą. Pirmiausia atidarykite darbaknygę, į kurią norite įtraukti makrokomandą. Tada paspauskite klavišų kombinaciją ALT F11, kad paleistumėte VBA redaktorių. Tada pasirinkite funkciją INSERT - MODULE. Tada įveskite šią makrokomandą:

Sub SummenPerMakro ()
„Dim Cell“ kaip diapazonas
Dim Nr Kaip ilgai
Kiekvienai langai ActiveSheet.Range ("d2: d10")
Ne = langelis. Eilutė
Cell.FormulaLocal = "= SUM (A" & Nr & ": C" & Nr & ")"
Kitas langelis
Pabaiga Sub

„Marko“ apdoroja ląstelių diapazoną D2: D10 aktyviame darbalapyje. Ląstelės yra kilpos per ląstelę. Makrokomanda naudoja ypatybę FORMULALOCAL, kad kiekvienoje iš šių langelių įvestų sumos formulę.

Šioje formulėje pridėtos sritys koreguojamos kiekvienoje eilutėje. 2 eilutėje yra A2: C2, 3 eilutėje - A3: C3 ir kt.

Formulė tai daro naudodama kintamąjį NR, kad pateiktų užklausą dabartiniam eilutės numeriui cikle, naudojant ypatybę ROW. Tada makrokomanda palaipsniui sudaro sumos formulę iš atskirų teksto komponentų.

Toliau pateiktame paveikslėlyje parodytas rezultatas paleidus makrokomandą. Norėdami pradėti, naudokite „Excel“ klavišų kombinaciją ALT F8 ir pasirinkite makrokomandą SUMMENPERMAKRO.

Yra ir kitų būdų, kaip atlikti darbą naudojant makrokomandą. Vienas variantas yra naudoti makrokomandą, kad įvestumėte formulę tik į vieną langelį ir nukopijuotumėte ją, kad „Excel“ galėtų savarankiškai koreguoti nuorodas.

Padėsite svetainės plėtrą, dalintis puslapį su draugais

wave wave wave wave wave