Pam by ráda uspořádala karty svého listu podle abecedy. Nejedná se o příkaz v aplikaci Excel, ale pomocí krátkého makra jej můžete přidat na panel nástrojů Rychlý přístup.
Sledovat video
- Pam chce karty listu seřadit podle abecedy
- Chystáte se použít makro v osobním sešitu maker
- Alt + T + M + S a změňte zabezpečení maker tak, aby umožňovala makra
- Zaznamenejte makro Hello World do sešitu osobních maker
- Zadejte nový kód do osobního sešitu maker
- Přiřaďte tento kód tlačítku QAT
Přepis videa
Naučte se Excel z Podcastu, epizoda 2084: Řazení záložek listů podle abecedy
Hej, vítej zpět na netcastu, jsem Bill Jelen. Dnešní otázka od Pam: Existuje způsob, jak karty listů v abecedním pořadí? Neexistuje žádný vestavěný způsob, jak to udělat, ale mohli bychom to udělat pomocí makra. A teď se jedná o makro, které by skutečně mělo být v osobním sešitu maker, dobře? Takže pokud jste ještě nikdy makra nedělali, uděláme Alt + T pro Toma a Mary, S pro Sama. A ujistěte se, že přejdete z možnosti Zakázat všechna makra bez upozornění na Zakázat makra s oznámením.
Dobře, pak stiskněte Alt + F8 a podívejte se, zda máte nějaká makra, nezapomeňte vybrat Makra v: Všechny otevřené sešity. Pokud nemáte nic, co začíná jako PERSONAL.XLSB, musíte provést tyto volitelné kroky. Pokud už něco s PERSONAL.XLSB máte, počkejte chvíli, dobře?
Jdeme tedy na kartu Zobrazení a budeme nahrávat nové makro. Bude se jmenovat HelloWorld. Žádný prostor, žádný prostor. Uložíme makro do osobního sešitu maker a klikneme na OK. A prostě zadejte někde Hello World, jako je tento, a pak sem dolů vedle Ready a klikněte na Stop. Dobře, teď vás to donutí mít osobní sešit maker. Dobře, pokud jste nikdy předtím nepoužívali makra, možná to nemáte.
V tomto okamžiku stiskneme Alt + F11 a pokud jste nikdy nepoužívali makra, zobrazí se vám tato šedá obrazovka. Půjdeme do View, Project Explorer a najdeme nový PERSONAL.XLSB. Pokud tam již máte modul, který samozřejmě budete, jistě ano, otevřete moduly a poklepejte na modul 1. Nyní v mém pracovním sešitu osobního makra již mám několik maker, ale přijdu přímo sem poslední řádek, vložte pár mezer.
Dobře, tak potom napíšete tento kód, který jsem vložil. A budeme mluvit o tomto makru, jak ho spustím. Takže to spustím jeden řádek po druhém stisknutím klávesy F8. A jedna věc, kterou jsem se zde naučil, je po dokončení řazení, bylo trochu znepokojující skončit na jiném listu, takže si pamatuji, na kterém listu jsme, takže později ho mohu vybrat těsně předtím, než je makro Hotovo.
Dobře, tady jsme. Vraťme se k Excelu a uvidíte, že první list se jmenuje Název. Aktuálně jsme na listu s názvem Otázka. Chci přidat nový list před nadpis, takže uděláme Worksheets.Add a pak to chci přejmenovat. Aktuálně přichází v Sheet1 jako TempSortSheet. Buďte opatrní, mělo by to být jméno, které byste nikdy náhodou nepoužívali. Nechcete to nazývat Výkaz příjmů, dobře? Stačí použít něco velmi náhodného, takže když - narazíte na chybu, pokud již máte list s názvem TempSortSheet. A pak jsem zjistil, že jsem používal tento Worksheet.Count znovu a znovu a znovu, takže ho prostě vložím do proměnné, která se snadněji řekne WSC než Worksheets.Count později. Takže máme 150 pracovních listů a máme seznam těchto pracovních listů.
Dobře, takže jste poprvé ve smyčce, kde jdu od 1 do 250. Poprvé ve smyčce k našemu zbrusu novému listu, který jsme přidali, TempSortSheet, na řádku 1 sloupci 1, budeme dát hodnotu, která je =, na první list. Dobře, a to by mělo být dobře, jo, TempSortSheet právě tam. Ale nechám to běžet ještě několikrát. Stiskněte klávesu F8 a uvidíte, že dostáváme všechny karty listů v pořadí, v jakém se objevují v sešitu, a předpokládám, že začnu dostávat ty karty, které mají čísla účtů, dobře. A nechám to běžet, nechci, abych musel stisknout F8 300krát. Takže kliknu sem a přejdu na Debug, Run To Cursor, což je Ctrl + F8, který to dokončí. A uvidíte, že máme seznam všech 150 karet karet.To je úžasné.
A nyní zde využíváme sílu Excelu. Existuje spousta příspěvků online, a to i na nástěnce, kde se skutečně snaží třídit. Píšou svůj vlastní druh, aby přesouvali listy, a my zde budeme využívat Excel, protože Excel má svůj druh a já používám kód z aplikace Excel 2003. Tento kód se mi líbí, snadněji si ho pamatuji. Začnu v A1, změnit jeho velikost na 150 buněk, kde to roztřídím. Klíč bude A1. To je jediná věc, která by mohla být. Pořadí bude vzestupné a nezapomeňte určit, že existuje záhlaví, dobře? Nechceme, aby se náš TempSortSheet seřadil do dat. Dobře, tak přesně tam. BAM! To dělá druh a nemusíme psát kolem kódu třídění bublin. A pak půjdeme z řádku 2, což je A120,list, který chcete přesunout, je A120. Proč " " ? Ach, v případě, že máte název listu, jako jsme ho měli tento týden, jako list s názvem 123, který by matl Excel. A pak, kam to přesuneme? Přesuneme se ne na řádek 2, ale za první list. Takže MoveAfter se stane 1. Takže si vezmeme náš list s názvem A120 a přesuneme ho za první takový list, F8, a tam to fungovalo. Spusťte tyto tři řádky ještě jednou. A124 přichází na správné místo.vezmeme náš list s názvem A120 a přesuneme ho po prvním takovém listu, F8, a tam to fungovalo. Spusťte tyto tři řádky ještě jednou. A124 přichází na správné místo.vezmeme náš list s názvem A120 a přesuneme ho po prvním takovém listu, F8, a tam to fungovalo. Spusťte tyto tři řádky ještě jednou. A124 přichází na správné místo.
V tuto chvíli teď víme, že to funguje, můžeme udělat Ctrl + F8, který provede všechny pohyby - právě se tam stalo 150 tahů. A teď odstraním původní list, který je naším odstraněným TempSortSheet. Ale než ho odstraním, nechci, aby řekli tomu, kdo kód spouští, že se chystáme odstranit list. Takže to prostě odstraním a poté vyberu původní list a zobrazím zprávu, že sešity byly takto tříděny.
Okay, so now that we have the macro, we know the macro is working and it's in the personal macro workbook, a couple of things we want to do: Alt+F11 come back here and make sure that you're in the personal macro workbook, click there and click Save. If you don't save it now, later on when you're closing Excel it's going to flash up this message about ‘Do you want to save changes to PERSONAL.XLSB?’ and you'll completely forget and not save the changes, right? So I always make sure to save the changes and then Alt+Tab where I Customize the Quick Access Toolbar, choose from Macros, find the one that's called SortSheets, add that to the Quick Access Toolbar. I don't like the flowchart so we'll look for something that says A to Z or you know, so let's use this one and put a little tab there of Sort Sheets like that, click OK, click OK.
Dobře, tady je test. Vložím nový sešit. Udělám několik kopií listů a dáme je do podoby divné sekvence, Z a pak Y a pak M a pak B, jako to. Klikněte na Třídit listy a BAM! Jsou zpět ve správném pořadí. To je skvělé.
Dobře, takže dnešní epizoda, Pam chce třídit karty listu abecedně. Páni! Použili jsme makro. Nejprve změňte zabezpečení maker a zaznamenejte makro Hello World do sešitu osobního makra a poté zadejte kód do osobního sešitu maker a přiřaďte jej tlačítku panelu nástrojů Rychlý přístup.
Chci poděkovat Pam za tuto otázku. 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: Podcast2084.xlsm
