Jak určit další volnou buňku ve sloupci pomocí makra
V mnoha makrech by měla být data přidávána průběžně. Poté je nutné určit další buňku ve sloupci, kde můžete zadat data. Můžete to vyřešit pomocí vzorce aplikace Excel.
Pokud však chcete určit poslední buňku v makru, potřebujete příkazy VBA. Existuje několik přístupů k řešení problému. Zde je vhodné makro:
Dílčí vyhledáváníFreeCell ()
Dim Cell jako rozsah
Dim Maxzeile jako dlouhý
Pokud Val (vlevo (verze aplikace, 2))> 11 pak
Maximální řádek = 1048576
Jiný
Maximální řádek = 65536
Konec If
Nastavit buňku = buňky (maxzeile, 1). Konec (xlUp). Offset (1, 0)
MsgBox „Další volná buňka je“ & cell.Address (False, False)
End Sub
Po spuštění makro určí další volnou, nepoužitou buňku ve sloupci A. Adresa této buňky se zobrazí v okně.
Makro adresuje poslední řádek ve sloupci A aktivní tabulky a počínaje odtud určuje poslední buňku použitou výše. Aby makro fungovalo v Excelu až do verze 2003 a také v Excelu od verze 2007, je na začátku provedeno vhodné rozlišení případu. Toto rozlišení případů je nutné, protože počet dostupných řádků se s verzí 2007 zvýšil z 65536 na 1048576.
Pokud chcete najít volnou buňku ve sloupci místo volné buňky ve sloupci A, nahraďte první číslo 1 v závorkách za příkazem Buňky číslem příslušného sloupce.
Tip: Pokud byste chtěli vědět, jak zadávat a spouštět makra v Excelu, najdete zde stručný popis: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
