Zadejte vzorce do oblasti buněk pomocí maker VBA

Anonim

Zde je návod, jak použít makro k vyplnění řady buněk vzorcem podle vašeho výběru

Zkopírováním nebo použitím funkce Automatické vyplňování vám Excel nabízí mnoho možností pro přenos vzorců z buňky do oblasti buněk. Ale jak to udělat pomocí makra?

To je zvláště užitečné, pokud chcete automaticky vytvářet tabulky nebo seznamy pomocí makra. Zde potřebujete způsob, jak vyplnit buňky vzorci.

Následující obrázek ukazuje seznam obchodních čísel. Chcete přidat součtové funkce do sloupce D tohoto seznamu, pomocí kterého se přidají hodnoty ze sloupců A, B a C.

K provedení této úlohy použijte makro VBA. Nejprve otevřete sešit, do kterého chcete makro zahrnout. Poté stisknutím kombinace kláves ALT F11 spusťte editor VBA. Poté vyberte funkci VLOŽIT - MODUL. Poté zadejte následující makro:

Sub SummenPerMakro ()
Dim Cell jako rozsah
Dim Nr As Long
Pro každou buňku v ActiveSheet.Range ("d2: d10")
No = Cell.Row
Cell.FormulaLocal = "= SUM (A" & Nr & ": C" & Nr & ")"
Další buňka
End Sub

Marko zpracovává rozsah buněk D2: D10 v aktivním listu. Buňky jsou smyčkovány buňkou po buňce. Makro používá vlastnost FORMULALOCAL k zadání vzorce součtu do každé z těchto buněk.

V tomto vzorci se přidané oblasti upraví v každém řádku. V řádku 2 je A2: C2, v řádku 3 je A3: C3 atd.

Vzorec to dělá pomocí proměnné NR k dotazu na aktuální číslo řádku ve smyčce pomocí vlastnosti ROW. Makro pak postupně skládá součtový vzorec z jednotlivých složek textu.

Následující obrázek ukazuje výsledek po spuštění makra. Chcete -li začít, použijte kombinaci kláves ALT F8 v aplikaci Excel a vyberte makro SUMMENPERMAKRO.

Existují i jiné způsoby, jak práci provést také prostřednictvím makra. Jednou z variant je použít makro k zadání vzorce pouze do jedné buňky a poté jej zkopírovat, aby aplikace Excel mohla nezávisle upravovat odkazy.