Pam wil haar werkbladtabs alfabetisch rangschikken. Dit is geen commando in Excel, maar met een korte macro kun je het toevoegen aan je Quick Access Toolbar.
Bekijk video
- Pam wil de werkbladtabbladen alfabetisch sorteren
- Een macro gaan gebruiken in de persoonlijke macrowerkmap
- Alt + T + M + S en wijzig de macrobeveiliging om macro's toe te staan
- Neem een Hello World-macro op in de persoonlijke macrowerkmap
- Typ nieuwe code in Persoonlijke macrowerkmap
- Wijs die code toe aan een QAT-knop
Videotranscriptie
Leer Excel van Podcast, aflevering 2084: werkbladtabbladen alfabetisch sorteren
Hé, welkom terug bij de netcast, ik ben Bill Jelen. De vraag van vandaag van Pam: is er een manier om de werkbladtabs te alfabetiseren? Nou, er is geen ingebouwde manier om dat te doen, maar we zouden het kunnen doen met een macro. En nu is dit een macro die echt in de persoonlijke macrowerkmap zou moeten staan, oké? Dus als je nog nooit macro's hebt gedaan, doen we Alt + T voor Tom en voor Mary, S voor Sam. En zorg ervoor dat u van Alle macro's zonder melding uitschakelen naar Macro's met melding uitschakelen gaat.
Oké, druk dan op Alt + F8 en kijk of je macro's hebt, zorg ervoor dat je Macro's kiest in: Alle geopende werkmappen. Als u niets heeft dat begint als PERSONAL.XLSB, moet u deze optionele stappen uitvoeren. Als je al iets hebt met PERSONAL.XLSB, wacht dan even, oké?
Dus gaan we naar het tabblad Weergave en gaan we een nieuwe macro opnemen. Het gaat HelloWorld heten. Geen ruimte, geen ruimte. En we gaan de macro opslaan in de persoonlijke macrowerkmap, klik op OK. En typ gewoon ergens Hallo wereld, zoals dat, en kom dan hier naar beneden naast Klaar en klik op Stop. Oké, dat zal je nu dwingen om een persoonlijk macrowerkboek te hebben. Oké, als je nog nooit macro's hebt gebruikt, heb je dat misschien niet.
Op dit punt gaan we op Alt + F11 drukken en als je nog nooit macro's hebt gebruikt, krijg je dit grijze scherm hier. We gaan naar View, Project Explorer en we gaan de nieuwe PERSONAL.XLSB zoeken. Als je daar al een module hebt die je natuurlijk, ja, modules opent en dubbelklikt op Module 1. Nu heb ik al een paar macro's in mijn persoonlijke macrowerkboek, maar ik kom hier meteen naar plaats op de laatste rij een paar spaties.
Oké, dus typ dan deze code die ik heb geplakt. En we gaan het hebben over deze macro terwijl ik hem draai. Dus ik ga het regel voor regel uitvoeren door op de F8-toets te drukken. En een ding dat ik hier heb geleerd, is dat na het voltooien van het sorteren, het een beetje verontrustend was om op een ander blad terecht te komen, dus ik herinner me op welk blad we ons bevinden, dus later kan ik het selecteren vlak voordat de macro is gedaan.
Oké, hier zijn we dan. Laten we teruggaan naar Excel en je zult zien dat het eerste blad daar Titel heet. We staan momenteel op een blad met de naam Vraag. Ik wil een nieuw blad voor Titel toevoegen, dus we doen Werkbladen. Toevoegen en dan wil ik dat hernoemen. Komt momenteel in een Sheet1 als TempSortSheet. Wees voorzichtig, dit zou een naam moeten zijn die u nooit zou gebruiken. Alsof je dit inkomstenoverzicht niet noemt, oké? Gebruik gewoon iets heel willekeurigs, dus als we- je een fout tegenkomt als je al een blad hebt met de naam TempSortSheet. En wat ik toen ontdekte, is dat ik dit werkblad steeds weer opnieuw gebruikte, dus ik ga het gewoon in een variabele plaatsen als gemakkelijker om WSC te zeggen dan werkbladen. Tellen later. We hebben dus 150 werkbladen en we hebben een lijst met die werkbladen.
Oké, dus je bent de eerste keer door de lus waar ik van 1 naar 250 ga. Bij de eerste keer door de lus naar ons gloednieuwe blad dat we hebben toegevoegd, de TempSortSheet, in rij 1, kolom 1, gaan we om een waarde die = is toe te voegen aan het eerste werkblad. Oké, en wat dat zou moeten zijn, is nou ja, TempSortSheet daar. Maar ik laat dit nog een paar keer draaien. Ik druk op F8 en je zult zien dat we alle bladtabs krijgen in de volgorde waarin ze in de werkmap verschijnen, en neem aan dat ik die tabbladen met de rekeningnummers krijg, oké. En ik ga dit laten lopen, ik wil niet 300 keer op F8 moeten drukken. Dus ik ga hier klikken en ga naar Debug, Run To Cursor, dit is Ctrl + F8, waarmee dat afgemaakt wordt. En kijk, we hebben een lijst met alle 150 bladtabbladen.Dat is geweldig.
En nu profiteren we hier van de kracht van Excel. Er zijn veel berichten online, ook op het prikbord, waar ze daadwerkelijk proberen te sorteren. Ze schrijven hun eigen soort om de bladen te verplaatsen en we gaan hier profiteren van Excel omdat Excel een soort heeft en ik de code uit Excel 2003 gebruik. Ik vind deze code leuk, gemakkelijker te onthouden. Ik ga beginnen in A1, verklein het naar 150 cellen waar ik dat sorteer. De sleutel wordt A1. Nou, dat is het enige dat het zou kunnen zijn. Bestelling wordt oplopend, en zorg ervoor dat je aangeeft dat er een koptekst is, oké? We willen niet dat onze TempSortSheet in de gegevens sorteert. Oké, dus daar. BAM! Dat doet het soort en we hoeven niet rond bellen-sorteercode te schrijven. En dan gaan we van rij 2, dat is A120,het te verplaatsen blad is A120. Waarom de ""? Ahh, voor het geval je een bladnaam hebt, zoals we die eerder deze week hadden, zoals een blad met de naam 123 dat Excel zou verwarren. En dan, waar gaan we het naartoe verplaatsen? We gaan niet naar rij 2, maar naar het eerste blad. Dus MoveAfter wordt 1. Dus, we gaan ons blad A120 nemen en het zo naar het eerste blad verplaatsen, F8, en daar werkte het. Voer die drie regels nog een keer uit. A124 komt op de juiste plek.We gaan ons blad A120 nemen en het zo naar het eerste blad verplaatsen, F8, en daar werkte het. Voer die drie regels nog een keer uit. A124 komt op de juiste plek.We gaan ons blad A120 nemen en het zo naar het eerste blad verplaatsen, F8, en daar werkte het. Voer die drie regels nog een keer uit. A124 komt op de juiste plek.
Op dit punt, nu we weten dat het werkt, kunnen we Ctrl + F8 doen die alle verplaatsingen doet - 150 zetten zijn daar net gebeurd. En nu ga ik het originele blad verwijderen dat onze verwijderde TempSortSheet is. Maar voordat ik het verwijder, wil ik niet dat ze degene die de code uitvoert, vertellen dat we het blad gaan verwijderen. Dus ik verwijder het gewoon en selecteer vervolgens het originele blad en geef het bericht weer dat de werkmappen zo zijn gesorteerd.
Oké, dus nu we de macro hebben, weten we dat de macro werkt en het staat in de persoonlijke macrowerkmap, een paar dingen die we willen doen: Alt + F11 kom hier terug en zorg ervoor dat je in de persoonlijke macro bent werkmap, klik daar en klik op Opslaan. Als u het nu niet opslaat, zal later, wanneer u Excel sluit, dit bericht verschijnen met de tekst 'Wilt u de wijzigingen opslaan in PERSONAL.XLSB?' en je zult de wijzigingen volledig vergeten en niet opslaan, toch? Dus ik zorg er altijd voor dat ik de wijzigingen opslaat en dan Alt + Tab waar ik de werkbalk Snelle toegang aanpas, kies uit macro's, zoek degene die SortSheets heet, en voeg die toe aan de werkbalk Snelle toegang. Ik hou niet van het stroomschema, dus we zullen op zoek gaan naar iets dat van A tot Z zegt of weet je, dus laat 's gebruik deze en zet daar een klein tabblad van Sort Sheets op, klik op OK, klik op OK.
Oké, hier is de test. Ik zal een nieuwe werkmap invoegen. Ik maak een paar kopieën van de bladen en we plaatsen ze in een soort rare volgorde, Z en dan Y en dan M en dan B, zo. Klik op Vellen sorteren en BAM! Ze zijn hier terug in de juiste volgorde. Hoe cool is dat.
Oké, dus de aflevering van vandaag, Pam wil de werkbladtabs alfabetisch sorteren. Wauw! We hebben de macro gebruikt. Verander eerst de macrobeveiliging en neem Hello World-macro op in de persoonlijke macrowerkmap en typ vervolgens de code in de Persoonlijke macrowerkmap en wijs die toe aan een Quick Access Toolbar-knop.
Ik wil Pam bedanken voor die vraag. Ik wil je bedanken voor het langskomen. We zien je de volgende keer voor een nieuwe netcast van.
Download bestand
Download het voorbeeldbestand hier: Podcast2084.xlsm
