Një nga automatizimet më të thjeshta të lidhura me fletën e punës që mund të aplikoni me një makro në Excel është shtimi dhe emërtimi i një flete të re pune. Ja se si funksionon ajo makro dhe si të përdoret.
Si funksionon makroja
Kur lexoni rreshtat e kodit, do të shihni se kjo makro është relativisht intuitive:
Nën makro1()
'Hapi 1: Tregojuni Excel-it se çfarë të bëjë nëse gabon
Në gabim Shkoni në MyError
'Hapi 2: Shtoni një fletë dhe emërtojeni
Fletët.Shto
ActiveSheet.Emri = _
Fletë puneFunction.Text(Tani(), "md-vvv h_mm_ss
paradite / pasdite")
Dilni Nën
'Hapi 3: Nëse këtu, ka ndodhur një gabim; tregoni përdoruesit
Gabimi im:
MsgBox "Ka tashmë një fletë të quajtur kështu."
Fundi Nën
Duhet të parashikoni që nëse i jepni fletës së re një emër që tashmë ekziston, do të ndodhte një gabim. Pra, në Hapin 1, makro i thotë Excel që menjëherë të kalojë në rreshtin që thotë MyError (në Hapin 3) nëse ka një gabim.
Hapi 2 përdor metodën Shto për të shtuar një fletë të re. Si parazgjedhje, fleta quhet Sheet xx, ku xx përfaqëson numrin e fletës. Ju i jepni fletës një emër të ri duke ndryshuar vetinë Name të objektit ActiveSheet. Në këtë rast, ju po e emërtoni fletën e punës me datën dhe orën aktuale.
Ashtu si me librat e punës, sa herë që përdorni VBA për të shtuar një fletë të re, fleta e shtuar rishtazi bëhet automatikisht fleta aktive. Së fundi, në hapin 2, vini re se makroja del nga procedura. Duhet ta bëjë këtë në mënyrë që të mos hyjë aksidentalisht në Hapin 3 (i cili hyn në lojë vetëm nëse ndodh një gabim).
Hapi 3 njofton përdoruesin se emri i fletës ekziston tashmë. Përsëri, ky hap duhet të aktivizohet vetëm nëse ndodh një gabim.
Si të përdorni makro
Për të zbatuar këtë makro, mund ta kopjoni dhe ngjisni në një modul standard:
Aktivizoni Visual Basic Editor duke shtypur Alt+F11.
Klikoni me të djathtën mbi emrin e projektit/librit të punës në dritaren e projektit.
Zgjidhni Fut → Modul.
Shkruani ose ngjisni kodin në modulin e krijuar rishtazi.