Az MS Office alkalmazások nagyon intelligensek, és nem csak azért mondom ezt, mert végtelenül megkönnyítik a munkámat. Azért mondom, mert igaz. Néhány nappal ezelőtt tettünk egy bejegyzést a YouTube-videók beszúrásáról az Office 2013-ban, és megjegyeztük, hogy ez a lehetőség hiányzik az MS Excelből, egyszerűen azért, mert ott nincs rá szükség. Ez az a típusú intelligencia, amiről beszélek; tudni, hogy egy adott típusú alkalmazásban mely funkciókra van szükség. Biztosítja, hogy semmi irreleváns ne kerüljön be a végső ajánlatba. Ennek ellenére meglepődve tapasztaltam, hogy ahol az Excel lehetővé teszi több sor beszúrását egy munkalapba, ott nem választhatja ki a hozzáadni kívánt sorok számát. Van más megoldás is ennek megvalósítására, például kiválasztja a hozzáadni kívánt sorok számát a meglévő sorok közül, majd a beszúrás funkciót. Vagy megismételheti a sor beszúrási lépését annyi sorral, amennyit csak akar. Ez ismétlődő, de ha hajlandó rászánni öt percet, ez a kis makró elvégzi helyetted a munkát.
Mivel ehhez makróra van szükség, a fájlt makrókompatibilis Excel-fájlként kell mentenie. Ehhez kattintson a „Mentés másként” legördülő menüre a mentés másként ablakban, és válassza az „Excel Marco Enabled Workbook (*xlsm”) lehetőséget.
Következő, ideje megírni a Makrót. Lépjen a Nézet fülre, és kattintson a Makrók elemre egy új létrehozásához. Nevezd el tetszőlegesen, és kattints a „Létrehozás” gombra. A következő ablak automatikusan megnyílik.
Ami itt releváns, az a „Sub” és „End Sub” sorok. Az alsor tartalmazza a makró nevét, míg az End Sub sor a parancsok végét jelöli a makróban. Mivel most hozta létre, semmi sem lehet a sorok között, mint a fenti képernyőképen. Illessze be a következőket e két sor közé.
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
Ez a kód öt sort szúr be a legfelülről. A kódban A1:A5-ként hivatkozik rá. Az igényeinek megfelelő szerkesztéshez szerkesztenie kell ezt a tartományt. Az első érték hivatkozásként szolgál a sorok beszúrásának helyére. Ha A100-ra változtatja, a sorok az első kilencvenkilenc sor után kerülnek beszúrásra. A referenciapont beállítása után meg kell adnia a sorok számát.
A sorszámokat az A1:A5 cellatartomány határozza meg. Ez a tartomány 5 sort szúr be. Ahhoz, hogy megtalálja a sorok számának megfelelő tartományt, például ha 25 sort szeretne beszúrni az A99-ből, adjon hozzá 25-öt a referenciaponthoz úgy, hogy az A99 legyen, és mínusz egy cella belőle. Azaz A100 + 99 – 1 = A198. Sorokat ad hozzá és nem oszlopokat, így csak a szám változik, az oszlop betűje nem. A makrót minden alkalommal frissíteni kell, amikor sorokat kell beszúrni, de ez csak egy kis szerkesztés, és nagyon jól működik, így megéri a ráfordított időt.
Makró a Microsoft támogatáson keresztül