Excel is niet alleen een hulpmiddel voor het bijhouden van bedrijfsgegevens en boekhouding. Zijn kracht ligt in het feit dat het wordt gebruikt om bijna alles op een eenvoudige en snelle manier te classificeren en te beheren. We kunnen agenda's maken, werkkwadranten, adresboeken, factuursjablonen, aanwezigheidsregistraties ... Excel staat ons echter niet toe om werkboekbladen te organiseren, iets wat erg handig is bij het werken met lange boeken. Maar we kunnen Excel-tabbladen automatisch sorteren met een macro in Visual Basic-code . We leggen u stap voor stap uit hoe u dit moet doen.
De woorden "macro in Visual Basic-code" kunnen intimiderend zijn, maar alles is eenvoudiger dan het klinkt. Een macro is een klein programma dat een reeks acties voor ons uitvoert in Excel en dient om repetitieve taken te automatiseren . Macro's zijn geschreven in Visual Basic for Applications (of VBA) -code, een programmeertaal waarmee u de functies van Excel kunt openen en uitbreiden.
De Visual Basic-editor
Om onze macro te maken, moeten we een werkmap openen in Excel, en hoe meer tabbladen het heeft, hoe beter.
Om de VBA-editor te openen, gebruiken we de sneltoets Alt + F11 . Zodra het editorvenster verschijnt, zoeken we naar een bepaalde Excel-werkmap, genaamd Personal.xls . Deze werkmap heeft de eigenschap dat alles wat we erin doen van invloed is op alle werkmappen . Dat wil zeggen, als we een macro maken, kunnen we deze gebruiken wanneer we maar willen.
Maak u geen zorgen als u het persoonlijke boek niet kunt vinden. Verlaat de editor, open het tabblad Excel- weergave , open het menu Macro's en selecteer Macro opnemen . Sla de macro op in uw persoonlijk macroboek en begin met opnemen. Open vervolgens het menu Macro's opnieuw en stop met opnemen. Je hebt al je "speciale" boek.
Nu hebben we alles klaar om een nieuwe module te maken . We openen de VBA-editor met Alt + F11 , selecteren het Personal.xls-boek en klikken vervolgens op Invoegen> Module . We plaatsen de cursor in het modulevenster en schrijven de volgende code:
Sub SortSheets_Ascendant ()
Voor a = 1 naar bladen. Tel
Voor s = a + 1 naar bladen. Tel
Als UCase (Sheets (a) .Name)> UCase (Sheets (s) .Name) Then
Sheets (s). Move Before: = Sheets (a)
Stop als
Volgende s
Naast
Einde Sub
We sluiten het venster en de macro is automatisch opgeslagen. Het blijft alleen om te controleren of het werkt. We openen het boek waarvan we de tabbladen willen ordenen, we gaan naar View en klikken op Macro's , of we drukken op de sneltoets Alt + F8 . We dubbelklikken op SortSheets_Ascendant , en de boektabs worden in een oogwenk in alfabetische volgorde geplaatst .
Wanneer we Excel sluiten, zal het programma ons vragen of we de wijzigingen in de macro's willen opslaan. We accepteren het en onze macro wordt opgeslagen voor gebruik met het boek dat we willen.
Sorteer de bladen in aflopende volgorde
Met een paar kleine wijzigingen in de code kunnen we het omgekeerde effect bereiken: sorteer de tabbladen in aflopende alfabetische volgorde . We herhalen het proces voor het maken van de macro en deze keer voegen we de volgende code in:
Sub SortSheets_Descending ()
Voor a = 1 naar bladen. Tel
Voor s = a + 1 naar bladen. Tel
Als UCase (Sheets (a) .Name) <UCase (Sheets (s) .Name) Then
Sheets (s). Move Before: = Sheets (a)
Stop als
Volgende s
Naast
Einde Sub
Er zijn slechts twee varianten. De eerste is natuurlijk de naam van de macro. De tweede is de verandering van> naar <in de vierde regel code. Dit betekent dat de volgorde van de vellen in het boek van richting zal veranderen . Als u nu op Beeld> Macro's klikt (of de sneltoets Alt + F8 ), ziet u de twee nieuw gemaakte macro's. Dubbelklik op SortSheets_Descending en controleer met tevredenheid het effect ervan.
Als u de wijzigingen bij het afsluiten van Excel opslaat, hebben we deze twee macro's altijd beschikbaar . Ze zullen ons veel tijd en moeite besparen bij het omgaan met tabbladen van Excel-werkmappen die bijzonder omvangrijk zijn.