Microsoft Office aplikacije su izuzetno pametno osmišljene, a to ne govorim samo zato što mi olakšavaju posao, već zato što je to istina. Nedavno smo pisali o umetanju YouTube videa u Office 2013, i primetili smo da ta opcija nedostaje u MS Excelu, jednostavno zato što nije potrebna. To je upravo ta vrsta inteligencije o kojoj govorim – prepoznavanje koje funkcije su neophodne u određenom tipu aplikacije. Time se osigurava da nepotrebne stvari ne ulaze u finalnu ponudu. S druge strane, iznenadio sam se kada sam otkrio da iako Excel omogućava umetanje više redova u radni list, ne dozvoljava da odaberete tačan broj redova koje želite dodati. Naravno, postoje alternative za postizanje ovog cilja, poput odabira željenog broja postojećih redova i zatim korišćenja funkcije „Umetni“. Takođe možete ponavljati korak umetanja reda onoliko puta koliko je potrebno. Ponavljanje je naporno, ali ako ste spremni da izdvojite pet minuta, ovaj mali makro može obaviti posao umesto vas.
Pošto za ovo koristimo makro, datoteku je potrebno sačuvati kao Excel datoteku sa omogućenim makroima. Da biste to uradili, u prozoru „Sačuvaj kao“ kliknite na padajući meni „Sačuvaj kao tip“ i odaberite „Excel radna sveska sa makroima (*.xlsm)“.
Sada je vreme za pisanje makroa. Idite na karticu „Prikaz“ i kliknite na „Makroi“ kako biste kreirali novi. Nazovite ga kako želite i kliknite na „Kreiraj“. Automatski će se otvoriti sledeći prozor.
Ovde su relevantne linije ‘Sub’ i ‘End Sub’. Linija ‘Sub’ sadrži ime vašeg makroa, dok ‘End Sub’ označava kraj komandi unutar makroa. Pošto ste ga upravo kreirali, između ove dve linije ne bi trebalo da bude ničega, kao što je prikazano na slici iznad. Zalepite sledeći kod između ove dve linije:
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 kod će umetnuti pet redova na samom vrhu. U kodu je to specificirano kao A1:A5. Da biste ga prilagodili svojim potrebama, treba da izmenite ovaj opseg. Prva vrednost predstavlja referencu na mesto gde će redovi biti umetnuti. Ako je promenite na A100, redovi će biti umetnuti nakon prvih devedeset devet redova. Nakon postavljanja referentne tačke, potrebno je uneti broj redova.
Broj redova se definiše pomoću opsega ćelija A1:A5. Ovaj opseg će umetnuti 5 redova. Da biste pronašli tačan opseg za željeni broj redova, na primer, ako želite da umetnete 25 redova od pozicije A99, dodaćete 25 na referentnu tačku, tako da bude A99, i oduzeti jednu ćeliju od nje. Dakle, A100 + 99 – 1 = A198. Dodajete redove, a ne kolone, tako da se menja samo broj, a ne slovo kolone. Makro treba ažurirati svaki put kada treba umetnuti mnogo redova, ali to je samo mala izmena koja radi zaista dobro, pa je vredna truda.
Dodatne informacije o makroima možete pronaći na Microsoft podršci