Du har en kolumn med text. För varje text i kolumnen vill du infoga ett nytt kalkylblad och namnge kalkylbladet för värdet i cellen.
Kolla på video
- Pam vill skapa ett kalkylblad för varje kontonummer
- För närvarande använder hon Show Report Filter Pages
- Letar efter ett snabbare sätt
- Spara arbetsboken som XLSM
- Kontrollera makrosäkerhet med alt = "" + TMS och ställ in på andra nivån
- Alt + F11
- Sätt i modulen
- Skriv koden som visas
- Alt + Q för att återgå till Excel
- Alt + F8
- Välj makrot och klicka på Alternativ
- Tilldela Ctrl + Skift + W
Videoutskrift
Lär dig Excel från Podcast, avsnitt 2082: Skapa arbetsbladmakro
Hej, välkommen tillbaka till netcast, jag heter Bill Jelen. Förra veckan var jag i Bloomington och Indianapolis, Indiana och gjorde två seminarier där och Pam från Indy-seminariet sa att hon har det här kalkylbladet, och för varje cell i kolumn A vill hon skapa ett nytt kalkylblad och sedan gjorde jag den här delen , placera motsvarande cell från kolumn B i cell B1.
Jag menar för närvarande Pam noterade att hon gör det på ett mycket smart sätt, hur man skapar alla dessa kalkylblad men det är fortfarande ett besvär. Hon går till Infoga, pivottabell, OK och sedan från den nya pivottabellen sätter hon kontot i filterområdet och sedan data i värdena så. Och sedan går hon till Alternativ, Visa rapportfiltersidor, Visa alla kontosidor och BAM! Hon får lakan syftar som hon vill. Nu när uppgifterna är på fel plats, säger hon faktiskt vid denna tidpunkt att hon bara går igenom grupper allt och sedan raderar de svängbara tabellerna så, okej? Så det är den metoden hon använder just nu och jag vill se om jag kan göra något snabbare av det kalkylbladet.
Så hur vi ska göra detta är att du kommer att behöva förvala arken, förvälja arken. Också hej, om du aldrig har gjort makron förut, gör Alt + T för Tom, M för Mary, S för Sam och byt från första val till andra val. Också riktigt, väldigt viktigt, din fil som jag garanterar sparas som .xlsx. Det fungerar inte om du lämnar det på det sättet, du måste göra Arkiv, Spara som och välja denna Excel-makroaktiverade arbetsbok. Den översta är standard och den översta är det hemska filformatet som inte får använda makron.
Okej, så vi ska välja data Alt + F11, öppnar VBA Editor. Om du aldrig har gjort VBA förut, kommer du att få den här fula skärmen här. Säg Insert, Module och det finns vår nya modul och du kommer att skriva den här koden: ordet Sub CreateSheets (). Så snart du skriver att de kommer att sätta en End Sub men mellan de två kommer vi att säga For Every cell in Selection. Vi ska ange arbetsblad och verkligen borde vi nog göra detta Dim WS som arbetsblad. Vill du ställa in kalkylblad = Kalkylblad. Lägg till. Nu, Worksheets.Add behöver veta var vi vill lägga till det och vad jag vill göra är att jag bara vill lägga till det här kalkylbladet efter det senaste arbetet hon är i arbetsboken. Så jag ska säga hur många kalkylblad vi har nu. Och här ska vi bara försöka, låt oss säga: Debug.Print worksheets.Count.Okej, det står att vi har 4, låt oss gå tillbaka till Excel och kolla in det. 1 2 3 4 så vi ska lägga till det efter det fjärde arket. Så efter avslutningen borde vi se ett nytt kalkylblad och det kalkylbladet är där vi ska lägga informationen för konto 100.
Okej nu, WS.Name = cell.Värde och sedan bestämde vi oss för att ta vad som är till höger om kontot: data. Och vi ska ta den informationen och lägga den i cell B1 i det helt nya kalkylbladet som vi just skapade. Så från cellen, rätt, för varje cell ska vi förskjuta 0 rader 1 kolumn över och ta det värdet, okej? Så vi har vårt makro: File, Close and Return to Microsoft Excel och sedan trycker vi på Alt + F8. Alt + F8, CreateSheets, går till Alternativ. Pojke, vad kommer att bli bra? Ctrl + Skift + W. W för kalkylblad. Så jag håller ner Skift + W där inne, klickar på OK och vi kan klicka på Avbryt. Okej, välj cellerna och sedan Ctrl + Skift + W. Titta här efter Wrap Up - BAM! Det har dem på var och en. Det fick uppgifterna från varje enskilt ark. Cool, cool väg att gå.
Att kunna skapa många kalkylblad på Fly och naturligtvis skulle det fungera för mycket mer än så. Låt oss göra a = ROW * 2 kopiera detta ner, ner, ner, ner, ner och välj alla dessa - Åh vänta, vi måste lägga lite data där borta. Låt oss fylla med 2, okej. Och sedan Ctrl + Skift + W. BAM! Åh, jag använde redan ett ark 49. Men se, vi var hela vägen upp till det närmaste, slutet snabbt snabbt. Hur man skapar många olika kalkylblad på Fly.
Okej, ämnen i det här avsnittet: Pam från Indy vill skapa ett kalkylblad för varje kontonummer i kolumn A. För närvarande använder hon Visa rapportfiltersidor i pivottabeller. Hon letar efter ett snabbare sätt, okej? Så vi kommer att spara arbetsboken som XLSM. Vi ska gå Alt + TMS och ställa in det andra valet, inte det första valet. Alt + F11, nu är vi i VBA, Infoga modul, Skriv koden som visas, Alt + Q för att återgå till Excel, Alt + F8, välj makronamnet och klicka på Alternativ, tilldela Ctrl + Skift + W.
Hej, jag vill tacka Pam för att han deltog i mitt seminarium i Indianapolis. Vi hade en fantastisk tid där, bra grupp. Och jag vill tacka dig för att du kom förbi. Vi ses nästa gång för en ny netcast från.
Nedladdning fil
Ladda ner exempelfilen här: Podcast2082.xlsm
