- - Pomocí tohoto jednoduchého makra vložte vlastní počet řádků v aplikaci Excel

Vložte vlastní počet řádků v Excelu pomocí tohoto jednoduchého makra

Aplikace MS Office jsou navrženy velmi dobřeinteligentně a neříkám to jen proto, že dělají moji práci nekonečně snadnější. Říkám to proto, že je to pravda. Před pár dny jsme udělali příspěvek o vkládání videí YouTube v Office 2013 a poznamenali jsme, že tato možnost v MS Excel chyběla jednoduše proto, že tam nebyla potřeba. To je typ inteligence, o které mluvím; vědět, jaké funkce jsou potřebné pro konkrétní typ aplikace. Zajišťuje, aby nic irelevantní nevedlo k finální nabídce. To mě ale překvapilo, když jsem zjistil, že pokud vám Excel umožňuje vložit do listu více řádků, nedovolí vám vybrat počet řádků, které chcete přidat. Pro splnění tohoto úkolu máte jiné pracovní kroky, jako je výběr počtu řádků, které chcete přidat ze stávajících, a poté pomocí funkce vložení. Nebo můžete opakovat krok vložení řádku pro tolik řádků, kolik chcete. Je to opakující se, ale pokud jste ochotni ušetřit pět minut, toto malé makro se o práci postará za vás.

Protože to vyžaduje makro, budete musetuložte soubor jako soubor Excel s podporou makra. Chcete-li tak učinit, klikněte v rozevíracím seznamu „Uložit jako typ“ na rozevírací nabídku „Uložit jako typ“ a vyberte „Sešit Excel Marco Enabled Workbook (* xlsm).

Dále je čas napsat makro. Přejděte na kartu Zobrazit a kliknutím na Makra vytvořte nové. Pojmenujte ji podle svých představ a klikněte na „Vytvořit“. Následující okno se otevře automaticky.

macro_excel

Relevantní jsou zde „Sub“ a „End Sub“.linky. Řádek Sub bude obsahovat název vašeho makra, zatímco End Sub označuje konec Commnads v tomto makru. Protože jste ji právě vytvořili, mezi těmito řádky by nemělo být nic jako na obrázku výše. Mezi tyto dva řádky vložte následující.

Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet

Tento kód vloží pět řádků od samého vrcholu. V kódu se označuje jako A1: A5. Chcete-li jej upravit, aby vyhovoval vašim potřebám, musíte upravit tento rozsah. První hodnota slouží jako odkaz na místo, kde budou řádky vloženy. Pokud jej změníte na A100, řádky se vloží za prvních devadesát devět řádků. Po nastavení referenčního bodu musíte zadat počet řádků.

Čísla řádků jsou definována rozsahem buněk A1: A5. Tento rozsah vloží 5 řádků. Chcete-li najít správný rozsah pro počet řádků, například byste chtěli vložit 25 řádků z A99, přidáte 25 k referenčnímu bodu tak, že je A99 a od něj se odebere jedna buňka. Tj. A100 + 99 - 1 = A198. Přidáváte řádky a ne sloupce, takže se změní pouze číslo a ne písmeno sloupce. Makro je třeba aktualizovat pokaždé, když musíte vložit řádky enmass, ale je to jen malá úprava a funguje to opravdu dobře, takže to stojí za čas strávený.

Makro prostřednictvím podpory společnosti Microsoft

Komentáře