Du har en tekstsøjle. For hver tekst i kolonnen vil du indsætte et nyt regneark og navngive det regneark for værdien i cellen.
Se video
- Pam ønsker at oprette et regneark for hvert kontonummer
- I øjeblikket bruger hun Show Report Filter Pages
- På udkig efter en hurtigere måde
- Gem projektmappen som XLSM
- Kontroller makrosikkerhed med alt = "" + TMS & indstil til andet niveau
- Alt + F11
- Indsæt modul
- Indtast koden som vist
- Alt + Q for at vende tilbage til Excel
- Alt + F8
- Vælg makroen, og klik på Indstillinger
- Tildel til Ctrl + Skift + W
Videoudskrift
Lær Excel fra Podcast, afsnit 2082: Opret regnearksmakro
Hej, velkommen tilbage til netcast, jeg er Bill Jelen. Sidste uge var jeg i Bloomington og Indianapolis, Indiana, og lavede to seminarer der, og Pam fra Indy-seminaret sagde, at hun har dette regneark, og for hver celle i kolonne A vil hun oprette et nyt regneark, og så lavede jeg denne del op , anbring den tilsvarende celle fra kolonne B i celle B1.
Jeg mener i øjeblikket bemærkede Pam, at hun gør dette på en meget smart måde, hvordan man opretter alle disse regneark, men det er stadig et besvær. Hun går til Indsæt, pivottabel, OK, og derefter fra den nye pivottabel placerer hun kontoen i området Filtre og derefter Data i værdiområdet sådan. Og så går hun til Valgmuligheder, Vis rapportfiltersider, Vis alle kontosider og BAM! Hun får arkene til at sigte som hun vil. Nu hvor dataene er på det forkerte sted, siger hun faktisk på dette tidspunkt, at hun bare går igennem grupper alt og derefter sletter disse drejetabeller sådan, okay? Så det er den metode, hun bruger lige nu, og jeg vil se, om jeg kan gøre noget hurtigere med dette regneark.
Så den måde, vi skal gøre dette på, er at du bliver nødt til at vælge arkene, vælge arkene på forhånd. Også hej, hvis du aldrig har lavet makroer før, skal du gøre Alt + T for Tom, M for Mary, S for Sam og skifte fra førstevalg til andet valg. Også virkelig, virkelig vigtigt, din fil, jeg garanterer, er gemt som .xlsx. Det fungerer ikke, hvis du lader det være sådan, du skal gøre File, Save As og vælge denne Excel Makro-aktiverede projektmappe. Den øverste er standard, og den øverste er det forfærdelige filformat, der ikke må bruge makroer.
Okay, så vi vælger disse data Alt + F11, åbner VBA Editor. Hvis du aldrig har lavet VBA før, får du denne grimme skærm her. Vil sige Indsæt, Modul, og der er vores nye modul, og du vil skrive denne kode: ordet Sub CreateSheets (). Så snart du skriver, at de vil sætte en End Sub, men mellem de to af dem, vil vi sige For hver celle i markering. Vi skal indstille regneark og virkelig skulle vi sandsynligvis gøre dette Dim WS som regneark. Vil du indstille regneark = regneark. Tilføje. Nu skal Worksheets.Add vide, hvor vi vil tilføje det, og hvad jeg vil gøre er, at jeg bare vil tilføje dette regneark efter det sidste arbejde, hun er i projektmappen. Så jeg vil sige, hvor mange regneark vi har nu. Og her skal vi bare prøve, lad os sige: Debug.Print regneark.Count.Okay, det siger, at vi har 4, lad os gå tilbage til Excel og tjekke det ud. 1 2 3 4 så vi tilføjer det efter det 4. ark. Så efter afslutningen skal vi se et nyt regneark, og det regneark er det sted, vi skal lægge dataene til konto 100.
Okay nu, WS.Name = cell.Værdi, og så besluttede vi, at vi vil tage det, der er til højre for kontoen: dataene. Og vi tager disse data og lægger dem i celle B1 i det helt nye regneark, som vi lige har oprettet. Så fra cellen, højre, for hver celle skal vi forskyde 0 rækker 1 kolonne over og få fat i den værdi, okay? Så vi har vores makro: File, Close and Return to Microsoft Excel, og tryk derefter på Alt + F8. Alt + F8, CreateSheets, går til Indstillinger. Dreng, hvad bliver der godt? Ctrl + Skift + W. W for regneark. Så jeg holder Shift + W nede derinde, klik på OK, og vi kan klikke på Annuller. OK, vælg disse celler og derefter Ctrl + Shift + W. Se lige her efter Wrap Up - BAM! Det har dem på hver enkelt. Det fik dataene fra hvert enkelt ark. Cool, cool vej at gå.
At være i stand til at oprette mange regneark i farten, og selvfølgelig ville det fungere langt mere end det. Lad os lave a = ROW * 2 kopier dette ned, ned, ned, ned, ned og vælg alle disse - Åh vent, vi skal lægge nogle data derovre. Lad os fylde det med 2, okay. Og derefter Ctrl + Skift + W. BAM! Åh, jeg har allerede brugt et ark 49. Men se, vi var helt op til det nærmeste, enden hurtig hurtig vej. Sådan oprettes mange forskellige regneark på Fly.
Okay, emner i denne episode: Pam fra Indy vil oprette et regneark for hvert kontonummer i kolonne A. I øjeblikket bruger hun Vis rapportfiltersider i pivottabeller. Hun leder efter en hurtigere vej, okay? Så vi gemmer projektmappen som XLSM. Vi går på Alt + TMS og indstiller til andet valg, ikke førstevalg. Alt + F11, nu er vi i VBA, Indsæt modul, skriv koden som vist, Alt + Q for at vende tilbage til Excel, Alt + F8, vælg makronavnet og klik på Indstillinger, tildel til Ctrl + Skift + W.
Hej, jeg vil gerne takke Pam for at have været på mit seminar i Indianapolis. Vi havde en god tid der, god gruppe. Og jeg vil gerne takke dig for at komme forbi. Vi ses næste gang til endnu en netcast fra.
Download fil
Download eksempelfilen her: Podcast2082.xlsm
