Kako automatski sortirati Excel listove i kartice

Kako automatski sortirati Excel listove i kartice

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.

Poredaj kartice Excel

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.

Urednik makronaredbi

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.

Stvorite makronaredbu u programu Excel

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 .

Razvrstajte Excel kartice po abecedi

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.

Poredaj Excel listove silazno

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.