MS Office aplikacije dizajnirane su vrlointeligentno i ne kažem to samo zato što mi beskrajno olakšavaju rad. Kažem to jer je istina. Prije nekoliko dana objavili smo post o umetanju YouTube videozapisa u sustavu Office 2013 i primijetili 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. Pobrinite se da ništa nebitno ne učini konačnom ponudom. U skladu s tim, iznenadio sam se kad vam Excel omogućava 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 ćetespremite datoteku kao datoteku Excela s omogućenom makronaredbom. 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 "Sub" i "End Sub"linije. 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 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
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
komentari