Az egyik legegyszerűbb, a munkalapokhoz kapcsolódó automatizálás, amelyet makróval alkalmazhat az Excelben, egy új munkalap hozzáadása és elnevezése. Íme, hogyan működik ez a makró és hogyan kell használni.
Hogyan működik a makró
Ha végigolvassa a kód sorait, látni fogja, hogy ez a makró viszonylag intuitív:
Almakró1()
„1. lépés: Mondja el az Excelnek, mit tegyen hiba esetén
Hiba esetén GoTo MyError
'2. lépés: Adjon hozzá egy lapot, és nevezze el
Lapok.Hozzáadás
ActiveSheet.Name = _
WorksheetFunction.Text(Now(), "hh-yyyy h_mm_ss
délelőtt délután")
Exit Sub
'3. lépés: Ha itt van, hiba történt; mondd el a felhasználónak
Saját hiba:
MsgBox "Már van egy ilyen nevű lap."
Vége Sub
Számítania kell arra, hogy ha az új munkalapnak már létező nevet ad, hiba lép fel. Tehát az 1. lépésben a makró azt mondja az Excelnek, hogy hiba esetén azonnal ugorjon a MyError (a 3. lépésben) feliratú sorra.
A 2. lépés a Hozzáadás módszert használja új munkalap hozzáadásához. Alapértelmezés szerint a lap neve Sheet xx, ahol xx a lap számát jelöli. A munkalap új nevet ad az ActiveSheet objektum Name tulajdonságának megváltoztatásával. Ebben az esetben a munkalapot az aktuális dátummal és időponttal nevezi el.
A munkafüzetekhez hasonlóan minden alkalommal, amikor VBA-t használ új munkalap hozzáadásához, az újonnan hozzáadott munkalap automatikusan aktív lap lesz. Végül a 2. lépésben vegye figyelembe, hogy a makró kilép az eljárásból. Ezt azért kell megtennie, hogy véletlenül se kerüljön a 3. lépésbe (ami csak hiba esetén lép működésbe).
A 3. lépés értesíti a felhasználót, hogy a lapnév már létezik. Ezt a lépést ismét csak akkor kell aktiválni, ha hiba történik.
Hogyan kell használni a makrót
A makró megvalósításához másolja és illessze be egy szabványos modulba:
Aktiválja a Visual Basic Editort az Alt+F11 megnyomásával.
Kattintson a jobb gombbal a projekt/munkafüzet nevére a projekt ablakában.
Válassza a Beszúrás → Modul menüpontot.
Írja be vagy illessze be a kódot az újonnan létrehozott modulba.