Du har en kolonne med tekst. For hver tekst i kolonnen vil du sette inn et nytt regneark og gi navnet til regnearket for verdien i cellen.
Se på video
- Pam ønsker å lage et regneark for hvert kontonummer
- Foreløpig bruker hun Show Report Filter Pages
- Ser etter en raskere måte
- Lagre arbeidsboken som XLSM
- Sjekk makrosikkerhet med alt = "" + TMS og sett til andre nivå
- Alt + F11
- Sett inn modul
- Skriv inn koden som vist
- Alt + Q for å gå tilbake til Excel
- Alt + F8
- Velg makroen og klikk Alternativer
- Tildel til Ctrl + Shift + W
Videoutskrift
Lær Excel fra Podcast, Episode 2082: Create Worksheets Macro
Hei, velkommen tilbake til netcast, jeg er Bill Jelen. I forrige uke var jeg i Bloomington og Indianapolis, Indiana, og holdt på to seminarer der, og Pam fra Indy-seminaret sa at hun har dette regnearket, og for hver celle i kolonne A vil hun lage et nytt regneark, og så laget jeg denne delen opp , legg den tilsvarende cellen fra kolonne B i celle B1.
Jeg mener for øyeblikket, Pam bemerket at hun gjør dette på en veldig smart måte, hvordan lage alle disse regnearkene, men det er fortsatt et problem. Hun går til Sett inn, pivottabell, OK, og fra den nye pivottabellen setter hun kontoen i filterområdet og deretter data i verdiene slik. Og så går hun til Alternativer, Vis rapportfiltersider, Vis alle kontosider og BAM! Hun får laken sikter som hun vil. Nå som dataene er på feil sted, sier hun faktisk på dette tidspunktet at hun bare går gjennom grupper alt og deretter sletter de svingbordene slik, ok? Så det er metoden hun bruker akkurat nå, og jeg vil se om jeg kan gjøre noe raskere med regnearket.
Så måten vi skal gjøre dette på er at du må forhåndsvelge arkene, forhåndsvelge arkene. Også hei, hvis du aldri har gjort makroer før, gjør Alt + T for Tom, M for Mary, S for Sam og bytt fra førstevalg til andrevalg. Også veldig veldig viktig, filen jeg garanterer er lagret som .xlsx. Det vil ikke fungere hvis du lar det være slik, du må gjøre File, Save As og velge denne Excel Makroaktiverte arbeidsboken. Den øverste er standard, og den øverste er det forferdelige filformatet som ikke har lov til å bruke makroer.
Ok, så vi skal velge data Alt + F11, åpner VBA Editor. Hvis du aldri har gjort VBA før, kommer du til å få denne stygge skjermen her. Vil si Insert, Module og det er vår nye modul, og du skal skrive denne koden: ordet Sub CreateSheets (). Så snart du skriver at de skal sette en sluttub, men mellom de to av dem skal vi si for hver celle i utvalg. Vi skal sette regneark, og egentlig burde vi sannsynligvis gjøre dette Dim WS som regneark. Vil du sette regneark = Regneark. Legge til. Nå må regneark.Add vite hvor vi vil legge det til og hva jeg vil gjøre er at jeg bare vil legge til dette regnearket etter det siste arbeidet hun er i arbeidsboken. Så jeg skal si hvor mange regneark vi har nå. Og her skal vi bare prøve, la oss si: Debug.Print regneark.Count.Greit, det står at vi har 4, la oss gå tilbake til Excel og sjekke det ut. 1 2 3 4 så vi skal legge den til etter 4. ark. Så etter innpakningen, bør vi se et nytt regneark, og det regnearket er der vi skal legge dataene for konto 100.
OK nå, WS.Name = cell.Værdi, og da bestemte vi oss for at vi skal ta det som er til høyre for kontoen: dataene. Og vi skal ta dataene og legge dem i celle B1 i det splitter nye regnearket vi nettopp opprettet. Så fra cellen, ikke sant, for hver celle skal vi forskyve 0 rader 1 kolonne over og ta tak i den verdien, ok? Så vi har makroen vår: Fil, lukk og gå tilbake til Microsoft Excel, og deretter trykker vi på Alt + F8. Alt + F8, CreateSheets, går til Alternativer. Gutt, hva blir bra? Ctrl + Shift + W. W for regneark. Så jeg holder nede Skift + W der inne, klikker OK, og vi kan klikke Avbryt. OK, velg cellene og deretter Ctrl + Shift + W. Se her etter Wrap Up - BAM! Den har dem på hver enkelt. Den fikk dataene fra hvert enkelt ark. Kul, kul vei å gå.
Å være i stand til å lage mange regneark på Fly og selvfølgelig ville det fungere for langt mer enn det. La oss gjøre a = ROW * 2 kopier dette ned, ned, ned, ned, ned og velg alle disse - Å vent, vi må legge litt data der borte. La oss fylle den med 2, ok. Og deretter Ctrl + Shift + W. BAM! Å, jeg brukte allerede ett ark 49. Men se, vi var helt opp til det nærmeste, slutten rask rask vei. Hvordan lage mange forskjellige regneark på Fly.
OK, emner i denne episoden: Pam fra Indy ønsker å lage et regneark for hvert kontonummer i kolonne A. For øyeblikket bruker hun Vis rapportfiltersider i pivottabeller. Hun ser etter en raskere vei, ok? Så vi skal lagre arbeidsboken som XLSM. Vi skal gå Alt + TMS og sette til andrevalget, ikke førstevalget. Alt + F11, nå er vi i VBA, Sett inn modul, skriv inn koden som vist, Alt + Q for å gå tilbake til Excel, Alt + F8, velg makronavnet og klikk Alternativer, tilordne Ctrl + Skift + W.
Hei, jeg vil takke Pam for at han var på seminaret mitt i Indianapolis. Vi hadde det veldig bra, god gruppe. Og jeg vil takke deg for at du var innom. Vi sees neste gang for en ny netcast fra.
Last ned fil
Last ned eksempelfilen her: Podcast2082.xlsm
