Umetnite prilagođeni broj redaka u Excel s ovom jednostavnom makronaredbom

Aplikacije za MS Office dizajnirane su vrlo inteligentno i ne kažem to samo zato što moj posao beskrajno olakšavaju. Kažem to jer je istina. Prije nekoliko dana objavili smo post o umetanju videozapisa s YouTubea u Office 2013 i primijetili smo da u MS Excel-u nedostaje opcija samo zato što joj tamo nije bila potrebna. O toj vrsti inteligencije govorim; znajući koje su značajke potrebne za određenu vrstu aplikacije. Osigurava da ništa nebitno ne čini konačnom ponudom. U skladu s tim, iznenadio sam se kad vam Excel dopušta da umetnete više redaka u radni list, to ne dopušta da odaberete broj redaka koje želite dodati. Za ovo vam je omogućeno i drugo radno okruženje, poput odabira broja redaka koje želite dodati iz postojećih, a zatim pomoću funkcije umetanja. Ili možete ponoviti korak reda za umetanje za onoliko redaka koliko želite. Ponavlja se, ali ako ste voljni izdvojiti pet minuta, ovaj mali Makronarednik može se pobrinuti za posao umjesto vas.

Budući da za to treba makronaredba, morat ćete je spremiti u obliku Excel datoteke s makronaredbama. Da biste to učinili, kliknite padajući prozor "Spremi kao vrstu" u prozoru spremi kao i odaberite "Radna knjiga s omogućenim programom Excel Marco (* xlsm).

Zatim je vrijeme za pisanje Makronaredbe. Otvorite karticu Prikaz i kliknite Makronaredbe da biste stvorili novu. Dajte mu ime po želji i kliknite "Stvori". Sljedeći se prozor automatski otvara.

Ovdje su relevantni redovi "Sub" i "End Sub". Podvrsta će sadržavati ime makronaredbe, dok Krajnji potknjig označava kraj obrtaja u tom Makronaredbi. Budući da ste ga upravo stvorili, između tih linija ne bi trebalo biti ničega kao na gornjoj snimci zaslona. Zalijepite sljedeće između ova dva retka.

Dim CurrentSheet kao objekt 'Petljajte kroz sve odabrane listove. Za svaki trenutni list u ActiveWindowsu. SelectedSheets "Na vrh svakog lista umetnite 5 redaka. CurrentSheet. Raspon ( "A1: A5") EntireRow.. Umetni sljedeći trenutni list. 

Ovaj će kôd umetnuti pet redaka s samog vrha. U kodu je naveden kao A1: A5. Da biste ga uredili prema vlastitim potrebama, morate urediti ovaj raspon. Prva vrijednost služi kao referenca na mjesto na kojem će biti umetnuti redovi. Ako ga promijenite u A100, redovi će se umetnuti nakon prvih devedeset i devet redaka. Nakon postavljanja referentne točke, trebate unijeti broj redaka.

Brojevi redaka definirani su rasponom ćelija A1: A5. Ovaj raspon će umetnuti 5 redaka. Da biste pronašli ispravan raspon za svoj broj redaka, na primjer, želite umetnuti 25 redaka iz A99, dodaćete 25 u referentnu točku tako da je A99 i minus jedna ćelija od nje. Tj A100 + 99 - 1 = A198. Dodajete redove, a ne stupce, tako da će se mijenjati samo broj, a ne i slovo. Makronaredba se mora ažurirati svaki put kada morate umetnuti regrame, ali to je samo malo uređivanje i stvarno dobro radi pa vrijedi potrošiti vrijeme.

Makro putem Microsoftove podrške