Imate stolpec besedila. Za vsako besedilo v stolpcu želite vstaviti nov delovni list in poimenovati ta delovni list za vrednost v celici.
Oglejte si video
- Pam želi ustvariti delovni list za vsako številko računa
- Trenutno uporablja strani za prikaz filtrov poročil
- Iščem hitrejšo pot
- Shranite delovni zvezek kot XLSM
- Preverite Macro Security z alt = "" + TMS in nastavite na drugo raven
- Alt + F11
- Vstavi modul
- Vnesite kodo, kot je prikazano
- Alt + Q za vrnitev v Excel
- Alt + F8
- Izberite makro in kliknite Možnosti
- Dodeli Ctrl + Shift + W
Video zapis
Naučite se Excel iz podcasta, epizoda 2082: Makro za ustvarjanje delovnih listov
Hej, dobrodošli nazaj v oddaji, jaz sem Bill Jelen. No, prejšnji teden sem bil v Bloomingtonu in Indianapolisu v državi Indiana, kjer sem tam opravil dva seminarja, Pam s seminarja v Indyju pa je dejala, da ima ta delovni list in za vsako celico v stolpcu A želi ustvariti nov delovni list, nato pa sem si ga sestavila. , v celico B1 postavimo ustrezno celico iz stolpca B.
Mislim, trenutno je Pam ugotovila, da to počne na zelo pameten način, kako ustvariti vse te delovne liste, vendar je vseeno težava. Odpre se na Vstavi, vrtilna tabela, v redu in nato iz te nove vrtilne tabele postavi račun v področje filtri in nato podatke v tako vrednost. Nato gre na Možnosti, Pokaži strani s filtri poročila, Prikaži vse strani računa in BAM! Dobije rjuhe, kot želi. Zdaj, ko so podatki na napačnem mestu, dejansko pravi, da v tem trenutku preprosto preide vse po skupinah in nato takšne vrtilne tabele izbriše, v redu? Torej, to je metoda, ki jo uporablja zdaj in želim preveriti, ali lahko kaj hitreje naredim na tem delovnem listu.
Tako bomo to storili tako, da boste morali vnaprej izbrati liste, vnaprej izbrati liste. Tudi hej, če še nikoli niste delali makrov, naredite Alt + T za Toma, M za Marijo, S za Sama in preklopite s prve na drugo. Prav tako zelo pomembno, vaša datoteka, za katero zagotavljam, da je shranjena kot .xlsx. Če tako pustite, ne bo delovalo, narediti morate datoteko, shrani kot in izbrati ta Excelov delovni zvezek z omogočeno makro. Ta zgornja je privzeta, zgornja pa grozljiva oblika datoteke, v kateri ni dovoljeno uporabljati makrov.
V redu, torej bomo izbrali te podatke Alt + F11, odpre urejevalnik VBA. Če še nikoli niste delali VBA, boste tukaj dobili ta grdi zaslon. Rekel bo Vstavi, Modul in tam je naš novi modul, vtipkali pa boste to kodo: besedo Sub CreateSheets (). Takoj ko vtipkate, da bodo postavili End Sub, med dvema pa bomo rekli Za vsako celico v izboru. Nastavili bomo delovni list in res bi to verjetno morali narediti Dim WS kot delovni list. Želite nastaviti delovni list = Worksheets. Dodaj. Zdaj, Worksheets.Add mora vedeti, kje jo želimo dodati in kaj želim narediti, želim samo dodati ta delovni list po zadnjem delu, ki je v delovnem zvezku. Torej, povedal bom, koliko delovnih listov imamo zdaj. In tukaj samo poskusimo, recimo: Debug.Print worksheets.Count.V redu, piše, da jih imamo 4, vrnimo se k Excelu in preverimo. 1 2 3 4, tako da ga bomo dodali po 4. listu. Torej, po zaključku bi morali videti nov delovni list in tam bomo postavili podatke za račun 100.
V redu, WS.Name = cell.Value in nato smo se odločili, da bomo vzeli vse, kar je na desni strani računa: podatke. Vzeli bomo te podatke in jih postavili v celico B1 povsem novega delovnega lista, ki smo ga pravkar ustvarili. Torej iz celice, kajne, za vsako celico bomo premaknili 0 vrstic 1 stolpec in zgrabili to vrednost, v redu? Tako imamo svoj makro: Datoteka, Zapri in Vrni se v Microsoft Excel in nato pritisnemo Alt + F8. Alt + F8, CreateSheets, bo odprl Možnosti. Fant, kaj bo dobro? Ctrl + Shift + W. W za delovne liste. Tako pridržim Shift + W tam, kliknem V redu in lahko kliknemo Prekliči. V redu, izberite te celice in nato Ctrl + Shift + W. Pazi takoj tukaj po zaključku - BAM! Ima jih na vsakem. Podatke je dobil z vsakega posameznega lista. Kul, kul pot.
Ko bi lahko na Flyu ustvarili veliko delovnih listov, bi to seveda delovalo še veliko več. Naredimo = ROW * 2, kopirajmo to navzdol, navzdol, navzdol, navzdol, navzdol in izberemo vse te - Oh, počakaj, nekaj podatkov moramo dati tja. Napolnimo z 2, v redu. In nato Ctrl + Shift + W. BAM! Oh, že sem uporabil en list 49. Toda glej, bili smo vse do bližnje, končne hitro hitre poti. Kako na Fly ustvariti veliko različnih delovnih listov.
V redu, teme v tej epizodi: Pam iz Indyja želi ustvariti delovni list za vsako številko računa v stolpcu A. Trenutno uporablja strani za prikaz filtrirnih poročil vrtilnih tabel. Išče hitrejšo pot, v redu? Torej bomo delovni zvezek shranili kot XLSM. Šli bomo na Alt + TMS in nastavili drugo izbiro, ne prvo izbiro. Alt + F11, zdaj smo v VBA, Vstavi modul, Vnesite kodo, kot je prikazano, Alt + Q, da se vrnete v Excel, Alt + F8, izberite ime makra in kliknite Možnosti, dodeli Ctrl + Shift + W.
Hej, rad bi se zahvalil Pam, ker je bila na mojem seminarju v Indianapolisu. Tam smo se imeli lepo, dobra skupina. In rad bi se vam zahvalil, da ste se ustavili. Se vidimo naslednjič za še eno oddajo iz.
Prenesite datoteko
Prenesite vzorčno datoteko tukaj: Podcast2082.xlsm
