Az MS Office alkalmazásokat nagyon megterveztékintelligensen, és ezt nem mondom csak azért, mert végtelenül megkönnyítik a munkámat. Azért mondom, mert igaz. Néhány nappal ezelőtt közzétettünk egy bejegyzést a YouTube-videók beillesztéséről az Office 2013-ban, és megállapítottuk, hogy az opció hiányzik az MS Excel programban, csak mert ott nincs rá szükség. Ez az a fajta intelligencia, amiről beszélek; annak ismerete, mely funkciók szükségesek egy adott típusú alkalmazáshoz. Biztosítja, hogy semmi irreleváns ne tegye bele 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 a munkalapba, az nem engedi, hogy kiválassza a hozzáadandó sorok számát. Más feladatokkal is rendelkezik ennek végrehajtásához, például kiválaszthatja a meglévőkhöz hozzáadni kívánt sorok számát, majd használja a beszúrás funkciót. Vagy megismételheti a sor beszúrási lépését annyi sornál, amennyit csak akar. Ismétlődő, de ha hajlandó öt percet szabadon fárasztani, ez a kis makró gondoskodhat az ön feladatáról.
Mivel ehhez makró szükséges, akkor ezt is meg kell tenniementse el a fájlt makrokompatibilis Excel fájlként. Ehhez kattintson a „Mentés típusa” legördülő menüre a Mentés másként ablakban, és válassza az „Excel Marco Enabled Workbook (* xlsm) lehetőséget.
Ezután itt az ideje, hogy írja a makrót. Lépjen a Nézet fülre, és kattintson a Makró elemre egy új létrehozásához. Nevezze el, amit szeret, és kattintson a „Létrehozás” gombra. A következő ablak automatikusan megnyílik.
Itt relevánsak a 'Sub' és 'End Sub'vonalak. Az Sub sor tartalmazza a makró nevét, míg a End Sub jelöli az adott makróban található commnads végét. Mivel csak létrehozta, a sorok között nem lehet semmi, mint a fenti képernyőképen. Illessze be a következő sort 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 fog beilleszteni a fentről. A kódban A1: A5-re hivatkoznak. Az igényeinek megfelelő szerkesztéshez ezt a tartományt kell módosítania. Az első érték arra utal, hogy a sorok beillesztésre kerülnek. Ha A100-ra változtatja, a sorok az első kilencvenkilenc sor után kerülnek beillesztésre. A referenciapont beállítása után be kell írnia a sorok számát.
A sorok számát az A1: A5 cellatartomány határozza meg. Ez a tartomány 5 sort fog beilleszteni. Ahhoz, hogy megtalálhassa a sorok számának megfelelő tartományát, például, ha 25 sort akar beszúrni az A99-től, a referenciaponthoz 25-et kell hozzáadni, hogy az A99 legyen, és mínusz egy cellát belőle. Azaz. A100 + 99 - 1 = A198. Sorokat ad hozzá, nem oszlopokat, így csak a szám fog megváltozni, és nem az oszlop betűje. A makrót minden egyes alkalommal frissíteni kell, ha sorokat kell beszúrni, de ez csak egy apró szerkesztés és nagyon jól működik, tehát megéri az eltöltött időt.
Makró a Microsoft támogatáson keresztül
Hozzászólások