Tukaj je opisano, kako z makrom zapolniti obseg celic s formulo po vaši izbiri
Excel s kopiranjem ali uporabo funkcije samodejnega izpolnjevanja ponuja številne možnosti za prenos formul iz celice v obseg celic. Kako pa to storite z makrom?
To je še posebej uporabno, če želite samodejno ustvariti tabele ali sezname z uporabo makra. Tu potrebujete način, kako celice napolniti s formulami.
Naslednja slika prikazuje seznam poslovnih številk. V stolpec D tega seznama želite dodati vsotne funkcije, s katerimi se dodajo vrednosti iz stolpcev A, B in C.
Za to delo uporabite makro VBA. Najprej odprite delovni zvezek, v katerega želite vključiti makro. Nato pritisnite kombinacijo tipk ALT F11, da zaženete urejevalnik VBA. Nato izberite funkcijo VSTAVI - MODUL. Nato vnesite naslednji makro:
Sub SummenPerMakro ()
Dim Cell As Range
Dim Nr As Long
Za vsako celico v ActiveSheet.Range ("d2: d10")
Ne = Cell.Row
Cell.FormulaLocal = "= SUM (A" & Nr & ": C" & Nr & ")"
Naslednja celica
End Sub
Marko obdeluje obseg celic D2: D10 na aktivnem delovnem listu. Celice se prepletajo skozi celico po celico. Makro uporablja lastnost FORMULALOCAL za vnos formule vsote v vsako od teh celic.
V tej formuli se dodana območja prilagodijo v vsaki vrstici. V vrstici 2 je A2: C2, v vrstici 3 je A3: C3 itd.
Formula to stori tako, da s spremenljivko NR poizveduje o trenutni številki vrstice v zanki s pomočjo lastnosti ROW. Makro nato postopoma sestavi formulo vsote iz posameznih besedilnih komponent.
Naslednja slika prikazuje rezultat po zagonu makra. Za začetek uporabite kombinacijo tipk ALT F8 v Excelu in izberite makro SUMMENPERMAKRO.
Obstajajo tudi drugi načini, kako delo opraviti prek makra. Ena od možnosti je uporaba makra za vnos formule v samo eno celico in jo nato kopirajte, tako da lahko Excel neodvisno prilagodi reference.