Excel nu este doar un instrument pentru păstrarea datelor și contabilității companiei. Puterea sa constă în faptul că este folosit pentru a clasifica și gestiona aproape orice într-un mod simplu și rapid. Putem crea agende, cadrane de lucru, agende, șabloane de facturi, înregistrări de prezență ... Cu toate acestea, Excel nu ne permite să organizăm foile de registru de lucru, lucru foarte util atunci când lucrăm cu cărți lungi. Dar putem sorta filele Excel automat cu o macro în cod Visual Basic . Vă explicăm cum să o faceți pas cu pas.
Cuvintele „macro în codul Visual Basic” pot fi intimidante, dar totul este mai ușor decât pare. O macro este un mic program care execută o serie de acțiuni pentru noi în Excel și servește la automatizarea sarcinilor repetitive . Macrocomenzile sunt scrise în cod Visual Basic pentru aplicații (sau VBA), un limbaj de programare care vă permite să accesați și să extindeți funcțiile Excel.
Editorul Visual Basic
Pentru a crea macro-ul nostru, trebuie să deschidem orice registru de lucru în Excel și, cu cât are mai multe file, cu atât mai bine.
Pentru a deschide editorul VBA, folosim comanda rapidă de la tastatură Alt + F11 . Odată ce apare fereastra editorului, căutăm un anumit registru de lucru Excel, numit Personal.xls . Acest registru de lucru are proprietatea că orice vom face în el va afecta toate registrele de lucru . Adică, dacă creăm o macro, o putem folosi oricând dorim.
Dacă nu găsiți cartea personală, nu vă faceți griji. Ieșiți din editor, deschideți fila Vizualizare Excel, trageți în jos meniul Macros și selectați Înregistrați macro . Salvați macrocomanda în cartea dvs. personală de macrocomenzi și începeți să înregistrați. Apoi, aduceți din nou meniul Macros și opriți înregistrarea. Ai deja cartea ta „specială”.
Acum avem totul pregătit pentru a crea un nou modul . Deschidem editorul VBA cu Alt + F11 , selectăm cartea Personal.xls, apoi facem clic pe Inserare> Modul . Plasăm cursorul în fereastra modulului și scriem următorul cod:
Sub SortSheets_Ascendant ()
Pentru a = 1 la foi.Cont
Pentru s = a + 1 To Sheets.Count
Dacă UCase (Sheets (a) .Name)> UCase (Sheets (a) .Name) Atunci
Foi (e). Mutați înainte: = Foi (a)
End If
Următorul s
Lângă
Sfârșitul Sub
Închidem fereastra, iar macro-ul va fi stocat automat. Rămâne doar să verificați dacă funcționează. Deschidem cartea ale cărei file dorim să le comandăm, mergem la Vizualizare și facem clic pe Macro sau apăsăm comanda rapidă de la tastatură Alt + F8 . Facem dublu clic pe SortSheets_Ascendant , iar filele cărții vor fi plasate în ordine alfabetică într-o clipă .
Când închidem Excel, programul ne va întreba dacă vrem să salvăm modificările aduse macro-urilor. Acceptăm, iar macro-ul nostru va fi stocat pentru a fi utilizat cu cartea dorită.
Sortați foile în ordine descrescătoare
Cu câteva mici modificări ale codului, putem obține efectul invers: sortați filele în ordine alfabetică descendentă . Repetăm procesul de creare a macro-ului și de data aceasta inserăm următorul cod:
Sub SortSheets_Descending ()
Pentru a = 1 la foi.Cont
Pentru s = a + 1 To Sheets.Count
Dacă UCase (Sheets (a) .Name) <UCase (Sheets (s) .Name) Atunci
Foi (e). Mutați înainte: = Foi (a)
End If
Următorul s
Lângă
Sfârșitul Sub
Există doar două variante. Primul, desigur, este numele macro-ului. A doua este schimbarea de la> la <în a patra linie de cod. Aceasta înseamnă că ordonarea foilor din carte va schimba direcția . Acum, când faceți clic pe Vizualizare> Macro (sau comanda rapidă Alt + F8 ), veți vedea cele două macrocomenzi recent create. Faceți dublu clic pe SortSheets_Descending și verificați cu satisfacție efectul acestuia.
Salvând modificările la ieșirea din Excel, vom avea aceste două macrocomenzi disponibile în orice moment . Acestea ne vor economisi mult timp și efort atunci când manipulăm filele din registrele de lucru Excel, care sunt deosebit de voluminoase.