Excel nije samo alat za vođenje podataka i računovodstva poduzeća. Njegova je moć u činjenici da se koristi za klasificiranje i upravljanje gotovo bilo čime na jednostavan i brz način. Možemo stvoriti dnevni red, radne kvadrante, adresare, predloške računa, evidencije o prisutnosti ... Međutim, Excel nam ne dopušta organiziranje listova radnih knjiga, nešto vrlo korisno kada radimo s dugim knjigama. No, Excel kartice možemo automatski razvrstati pomoću makronaredbe u Visual Basic kodu . Objašnjavamo kako to učiniti korak po korak.
Riječi "makronaredba u Visual Basic kodu" mogu zastrašiti, ali sve je lakše nego što zvuči. Makronaredba je mali program koji za nas izvršava niz radnji u Excelu i služi za automatizaciju ponavljajućih zadataka . Makronaredbe su napisane u kodu Visual Basic for Applications (ili VBA), programskom jeziku koji vam omogućuje pristup i proširenje funkcija programa Excel.
Uređivač Visual Basic
Da bismo stvorili makronaredbu, moramo otvoriti bilo koju radnu knjigu u programu Excel i što više kartica ima, to bolje.
Za otvaranje VBA uređivača koristimo tipkovnu prečac Alt + F11 . Jednom kada se otvori prozor uređivača, tražimo određenu Excel radnu knjigu pod nazivom Personal.xls . Ova knjiga ima svojstvo da će sve što radimo u njoj utjecati na sve radne bilježnice . Odnosno, ako stvorimo makronaredbu, možemo je koristiti kad god želimo.
Ako ne možete pronaći Osobnu knjigu, ne brinite. Izađite iz uređivača, otvorite karticu Excel View , spustite izbornik Macros i odaberite Record Macro . Spremite makronaredbu u svoju osobnu knjigu makronaredbi i započnite snimanje. Zatim ponovo otvorite izbornik Macros i zaustavite snimanje. Već imate svoju "posebnu" knjigu.
Sad imamo sve spremno za stvaranje novog modula . Otvaramo VBA editor s Alt + F11 , odabiremo knjigu Personal.xls, a zatim kliknemo Umetni> Modul . Postavimo kursor u prozor modula i napišemo sljedeći kod:
Podrazvrstani listovi_Ascendent ()
Za a = 1 na listove.broj
Za s = a + 1 na listove.broj
Ako je UCase (Sheets (a) .Name)> UCase (Sheets (s) .Name) Tada
Listovi (i) .Premjestiti prije: = Listovi (a)
Završi ako
Sljedeća s
Pored
Kraj pod
Zatvaramo prozor i makronaredba će se automatski pohraniti. Ostaje samo provjeriti radi li. Otvaramo knjigu čije kartice želimo naručiti, idemo na Pogled i kliknemo na Makronaredbe ili pritisnemo tipkovnički prečac Alt + F8 . Dvostruko kliknemo SortSheets_Ascendant i kartice knjige bit će u trenu postavljene po abecednom redu .
Kad zatvorimo Excel, program će nas pitati želimo li spremiti promjene izvršene na makronaredbama. Prihvaćamo i naša makronaredba bit će pohranjena za upotrebu s knjigom koju želimo.
Poredajte listove silaznim redoslijedom
S nekoliko malih promjena koda možemo postići obrnuti učinak: sortiranje kartica u padajućem abecednom redu . Ponavljamo postupak stvaranja makronaredbe i ovaj put ubacujemo sljedeći kod:
Sub SortSheets_Descending ()
Za a = 1 na listove.broj
Za s = a + 1 na listove.broj
Ako je UCase (Sheets (a) .Name) <UCase (Sheets (s) .Name) Tada
Listovi (i) .Premjestiti prije: = Listovi (a)
Završi ako
Sljedeća s
Pored
Kraj pod
Postoje samo dvije varijacije. Prvo je, naravno, naziv makronaredbe. Druga je promjena iz> u <u četvrtom retku koda. To znači da će redoslijed listova u knjizi promijeniti smjer . Sada kada kliknete Pogled> Makronaredbe (ili prečac Alt + F8 ), vidjet ćete dvije novostvorene makronaredbe. Dvaput kliknite SortSheets_Descending i sa zadovoljstvom provjerite njegov učinak.
Spremajući promjene prilikom izlaska iz Excela, ove ćemo dvije makronaredbe imati na raspolaganju u bilo kojem trenutku . Uštedjet će nam puno vremena i truda pri rukovanju karticama Excel-ovih radnih knjiga koje su posebno glomazne.