Záznam maker aplikace Excel s relativními odkazy

Relativní reference v Excel makro prostředky vzhledem k aktuálně aktivní buňky. Buďte tedy opatrní při výběru aktivní buňky – jak při záznamu relativního referenčního makra, tak při jeho spouštění.

Nejprve otevřete Sample File.xlsx dostupný online . Poté pomocí následujících kroků zaznamenejte relativní referenční makro:

Na kartě Vývojář vyberte možnost Použít relativní odkazy.

Záznam makra s relativními odkazy.

Ujistěte se, že je vybrána buňka A1.

Na kartě Vývojář vyberte Zaznamenat makro.

Makro pojmenujte AddTotalRelative.

Jako místo uložení zvolte Tento sešit.

Klepnutím na OK zahájíte nahrávání.

Vyberte buňku A16 a do buňky zadejte Celkem.

Vyberte první prázdnou buňku ve sloupci D (D16) a zadejte = COUNTA(D2:D15).

Na kartě Vývojář kliknutím na tlačítko Zastavit záznam zastavíte záznam makra.

V tomto okamžiku jste zaznamenali dvě makra. Udělejte si chvilku a prozkoumejte kód pro nově vytvořené makro výběrem možnosti Makra na kartě Vývojář a otevřete dialogové okno Makro. Zvolte makro AddTotalRelative a klikněte na Upravit.

Znovu se otevře Editor jazyka Visual Basic a zobrazí kód, který byl napsán při záznamu makra. Tentokrát váš kód vypadá asi takto:

Sub AddTotalRelative()
  ActiveCell.Offset(15, 0).Range("A1").Vybrat
  ActiveCell.FormulaR1C1 = "Celkem"
  ActiveCell.Offset(0, 3).Range("A1").Vybrat
  ActiveCell.FormulaR1C1 = "=COUNTA(R[-14]C:R[-1]C)"
End Sub