Máte sloupec textu. Pro každý text ve sloupci chcete vložit nový list a pojmenovat tento list pro hodnotu v buňce.
Sledovat video
- Pam chce vytvořit list pro každé číslo účtu
- V současné době používá Zobrazit stránky filtrů zpráv
- Hledáte rychlejší způsob
- Uložte sešit jako XLSM
- Zkontrolujte zabezpečení maker pomocí alt = "" + TMS a nastavte na druhou úroveň
- Alt + F11
- Vložte modul
- Zadejte kód podle obrázku
- Alt + Q pro návrat do Excelu
- Alt + F8
- Vyberte makro a klikněte na Možnosti
- Přiřaďte Ctrl + Shift + W
Přepis videa
Naučte se Excel z Podcastu, epizoda 2082: Vytváření maker pracovních listů
Hej, vítej zpět na netcastu, jsem Bill Jelen. Minulý týden jsem byl v Bloomingtonu a Indianapolisu v Indianě na dvou seminářích a Pam ze semináře Indy řekla, že má tento list, a pro každou buňku ve sloupci A chce vytvořit nový list a pak jsem vytvořil tuto část , vložte odpovídající buňku ze sloupce B do buňky B1.
Myslím tím v současné době, Pam poznamenala, že to dělá velmi chytrým způsobem, jak vytvořit všechny tyto listy, ale je to stále potíže. Přejde na Vložit, Kontingenční tabulka, OK a poté z této nové kontingenční tabulky vloží účet do oblasti Filtry a potom Data do oblasti hodnot, jako je tato. A poté přejde na Možnosti, Zobrazit stránky filtrů zpráv, Zobrazit všechny stránky účtu a BAM! Dostává cíle listů, jak chce. Nyní, když jsou data na špatném místě, ve skutečnosti říká, že v tomto okamžiku prostě projde skupinami všeho a pak tyto kontingenční tabulky odstraní, dobře? To je tedy metoda, kterou právě teď používá, a já chci zjistit, jestli dokážu z tohoto listu udělat něco rychlejšího.
Způsob, jakým to uděláme, je, že budete muset předem vybrat listy, předem vybrat listy. Také hej, pokud jste ještě nikdy makra nedělali, udělejte Alt + T pro Toma, M pro Mary, S pro Sama a změňte z první volby na druhou. Také opravdu, opravdu důležitý, váš soubor, který zaručuji, je uložen jako .xlsx. Nebude to fungovat, pokud to necháte tak, musíte udělat Soubor, Uložit jako a zvolit tento sešit Excel podporující makro. Ten nejlepší je výchozí a ten nejlepší je hrozný formát souboru, který nesmí používat makra.
Dobře, takže vybereme ta data Alt + F11, otevře editor VBA. Pokud jste nikdy předtím neudělali VBA, dostanete tu ošklivou obrazovku. Řekne Vložit, Modul a je tu náš nový modul a vy napíšete tento kód: slovo Sub CreateSheets (). Jakmile napíšete, že umístí End Sub, ale mezi dva z nich, řekneme Pro každou buňku ve výběru. Chystáme se nastavit pracovní list a opravdu bychom pravděpodobně měli udělat tento Dim WS jako pracovní list. Chcete nastavit list = Listy. Přidat. Nyní Worksheets.Add potřebuje vědět, kam ho chceme přidat, a co chci udělat, je, že chci přidat tento list po poslední práci, kterou v sešitu má. Takže řeknu, kolik pracovních listů teď máme. A tady to prostě zkusme, řekněme: Debug.Print worksheets.Count.Dobře, říká se, že máme 4, pojďme se vrátit k Excelu a zkontrolovat to. 1 2 3 4, takže to přidáme až po 4. listu. Takže po zabalení bychom měli vidět nový list a tenhle list je místo, kam vložíme data pro účet 100.
Dobře, WS.Name = cell.Value a pak jsme se rozhodli, že si vezmeme cokoli napravo od Účtu: Data. A vezmeme ta Data a vložíme je do buňky B1 zbrusu nového listu, který jsme právě vytvořili. Takže z buňky, správně, pro každou buňku přejdeme na offset 0 řádků o 1 sloupec a chytíme tu hodnotu, dobře? Takže máme naše makro: Soubor, Zavřít a Zpět do aplikace Microsoft Excel a poté stiskneme Alt + F8. Alt + F8, CreateSheets, přejde na Možnosti. Chlapče, co bude dobré? Ctrl + Shift + W. W pro pracovní listy. Takže tam podržím Shift + W, kliknu na OK a můžeme kliknout na Zrušit. Dobře, vyberte tyto buňky a poté Ctrl + Shift + W. Sledujte hned po zabalení - BAM! Má je na každém. Získal data z každého jednotlivého listu. Skvělá, skvělá cesta.
Být schopen vytvořit mnoho pracovních listů za běhu a samozřejmě by to fungovalo mnohem víc. Pojďme a = ROW * 2 zkopírovat to dolů, dolů, dolů, dolů, dolů a vybrat je všechny - Oh, počkejte, musíme tam dát nějaká data. Naplňme to 2, dobře. A pak Ctrl + Shift + W. BAM! Už jsem použil jeden List 49. Ale podívej, byli jsme úplně na blízku, na konci rychle, rychle. Jak vytvořit mnoho různých pracovních listů za běhu.
Dobře, témata v této epizodě: Pam z Indy chce vytvořit list pro každé číslo účtu ve sloupci A. V současné době používá Zobrazit stránky filtrů sestav kontingenčních tabulek. Hledá rychlejší způsob, dobře? Takže sešit uložíme jako XLSM. Půjdeme Alt + TMS a nastavíme druhou volbu, ne první volbu. Alt + F11, nyní jsme ve VBA, vložte modul, zadejte kód podle obrázku, Alt + Q se vraťte do Excelu, Alt + F8, vyberte název makra a klikněte na Možnosti, přiřaďte Ctrl + Shift + W.
Ahoj, chci poděkovat Pam za to, že byla na mém semináři v Indianapolis. Měli jsme se tam skvěle, dobrá skupina. A chci vám poděkovat, že jste se zastavili. Uvidíme se příště na dalším netcastu z.
Stáhnout soubor
Stáhněte si ukázkový soubor zde: Podcast2082.xlsm