Je hebt een kolom met tekst. Voor elke tekst in de kolom wilt u een nieuw werkblad invoegen en dat werkblad een naam geven voor de waarde in de cel.
Bekijk video
- Pam wil voor elk rekeningnummer een werkblad maken
- Momenteel gebruikt ze de rapportfilterpagina's weergeven
- Op zoek naar een snellere manier
- Sla de werkmap op als XLSM
- Controleer Macrobeveiliging met alt = "" + TMS & stel in op het tweede niveau
- Alt + F11
- Module invoegen
- Typ de code zoals weergegeven
- Alt + Q om terug te keren naar Excel
- Alt + F8
- Selecteer de macro en klik op Opties
- Toewijzen aan Ctrl + Shift + W
Videotranscriptie
Leer Excel van Podcast, aflevering 2082: maak werkbladenmacro
Hé, welkom terug bij de netcast, ik ben Bill Jelen. Nou, vorige week was ik in Bloomington en Indianapolis, Indiana om daar twee seminars te doen en Pam van het Indy-seminar zei dat ze dit werkblad heeft, en voor elke cel in kolom A wil ze een nieuw werkblad maken en daarna heb ik dit deel bedacht. , zet de corresponderende cel uit kolom B in cel B1.
Ik bedoel, op dit moment merkte Pam op dat ze dit op een heel slimme manier doet, hoe ze al die werkbladen moet maken, maar het is nog steeds een gedoe. Ze gaat naar Invoegen, Draaitabel, OK en vervolgens plaatst ze vanuit die nieuwe draaitabel het account in het gebied Filters en vervolgens Gegevens in het waardengebied zoals dat. En dan gaat ze naar Opties, Rapportfilterpagina's weergeven, Alle pagina's van account weergeven en BAM! Ze krijgt de doelen van de lakens zoals ze wil. Nu de gegevens op de verkeerde plek staan, zegt ze eigenlijk dat ze op dit punt gewoon alles door groepen gaat en dan die draaitabellen zo verwijdert, oké? Dus dat is de methode die ze nu gebruikt en ik wil zien of ik iets sneller kan doen met dat werkblad.
Dus de manier waarop we dit gaan doen, is dat je de bladen vooraf moet selecteren, de bladen vooraf moeten selecteren. Ook hey, als je nog nooit macro's hebt gedaan, doe dan Alt + T voor Tom, M voor Mary, S voor Sam en verander van de eerste keuze naar de tweede keuze. Ook heel, heel belangrijk, je bestand dat ik garandeer wordt opgeslagen als .xlsx. Het zal niet werken als je het zo laat, je moet Bestand, Opslaan als doen en deze Excel-werkmap met macro's kiezen. Die bovenste is de standaard en die bovenste is het vreselijke bestandsformaat dat geen macro's mag gebruiken.
Oké, dus we gaan die gegevens selecteren Alt + F11, opent de VBA-editor. Als je nog nooit VBA hebt gedaan, krijg je hier dit lelijke scherm. Zal invoegen, module zeggen en er is onze nieuwe module en je gaat deze code typen: het woord Sub CreateSheets (). Zodra je typt, gaan ze een End Sub plaatsen, maar tussen de twee gaan we For Each cell in Selection zeggen. We gaan naar Set Worksheet en eigenlijk zouden we dit Dim WS waarschijnlijk als Worksheet moeten doen. Wil je werkblad instellen = werkbladen. Toevoegen. Nu, werkbladen. Toevoegen moet weten waar we het willen toevoegen en wat ik wil doen is dat ik dit werkblad alleen wil toevoegen na het laatste werk dat ze in de werkmap heeft. Dus ik ga zeggen hoeveel werkbladen we nu hebben. En laten we hier eens proberen, laten we zeggen: Debug.Print worksheets.Count.Oké, er staat dat we er 4 hebben, laten we teruggaan naar Excel en dat bekijken. 1 2 3 4 dus we gaan het toevoegen na het 4e blad. Dus na de afronding zouden we een nieuw werkblad moeten zien en dat werkblad is waar we de gegevens voor account 100 gaan plaatsen.
Oké, WS.Name = cell.Value en toen besloten we dat we alles rechts van het account zouden nemen: de gegevens. En we gaan die gegevens nemen en plaatsen in cel B1 van het gloednieuwe werkblad dat we zojuist hebben gemaakt. Dus vanuit de cel gaan we voor elke cel naar Offset 0 rijen 1 kolom over en pakken die waarde, oké? Dus we hebben onze macro: Bestand, Sluiten en Terug naar Microsoft Excel en dan drukken we op Alt + F8. Alt + F8, CreateSheets, gaat naar Opties. Jongen, wat wordt een goeie? Ctrl + Shift + W. W voor werkbladen. Dus ik houd Shift + W daar ingedrukt, klik op OK en we kunnen op Annuleren klikken. Oké, selecteer die cellen en vervolgens Ctrl + Shift + W. Kijk hier na Wrap Up - BAM! Het heeft ze op elk. Het kreeg de gegevens van elk afzonderlijk blad. Coole, coole manier om te gaan.
In staat zijn om in een oogwenk veel werkbladen te maken en het zou natuurlijk voor veel meer werken dan dat. Laten we een = RIJ * 2 doen, kopieer dit naar beneden, naar beneden, naar beneden, naar beneden, en selecteer al die - Oh wacht, we moeten daar wat gegevens plaatsen. Laten we het met 2 vullen, oké. En dan Ctrl + Shift + W. BAM! Oh, ik heb al een Sheet 49 gebruikt. Maar kijk, we waren helemaal tot aan het einde, het einde snel. Hoe u in een oogwenk veel verschillende werkbladen kunt maken.
Oké, onderwerpen in deze aflevering: Pam van Indy wil een werkblad maken voor elk accountnummer in kolom A. Momenteel gebruikt ze de Show Report Filter Pages of Pivot Tables. Ze zoekt een snellere manier, oké? Dus we gaan de werkmap opslaan als XLSM. We gaan Alt + TMS en stellen in op de tweede keuze, niet de eerste keuze. Alt + F11, nu zijn we in VBA, module invoegen, typ de code zoals weergegeven, Alt + Q om terug te keren naar Excel, Alt + F8, selecteer de macronaam en klik op Opties, wijs toe aan Ctrl + Shift + W.
Hé, ik wil Pam bedanken voor het bijwonen van mijn seminar in Indianapolis. We hebben daar een geweldige tijd gehad, goede groep. En ik wil je bedanken voor het langskomen. We zien je de volgende keer voor een nieuwe netcast van.
Download bestand
Download het voorbeeldbestand hier: Podcast2082.xlsm
