Jak třídit tabulky pracovních listů v abecedním pořadí v aplikaci Excel

Pokud máte ve svém sešitu aplikace Excel velké množství listů, může být obtížné najít konkrétní pracovní list. Třídění tabulek pracovního listu podle abecedy usnadňuje hledání toho, co hledáte.

Kromě uspořádání tabulek pracovního listu aplikací barev na ně můžete také je řadit abecedně nebo alfanumericky, pokud jste do pracovních listů použili vlastní názvy. Bohužel třídění listů pracovního listu podle abecedy není vestavěno do aplikace Excel, ale do sešitu můžete přidat makro, které vám umožní uspořádat karty ve vzestupném nebo sestupném pořadí. Ukážeme vám, jak přidat makro, které je k dispozici na webu podpory společnosti Microsoft, do sešitu aplikace Excel, které bude třídit karty pracovního listu.

Chcete-li začít, stiskněte klávesu Alt + F11 a otevřete editor aplikace Microsoft Visual Basic for Applications (VBA). Poté přejděte na možnost Vložit> Modul.

Zkopírujte a vložte následující makro od společnosti Microsoft do okna modulu, které se zobrazí.

SubArder_Active_Book () Dim i jako celé číslo Dim j jako celé číslo Dim iAnswer Jako VbMsgBoxResult "Požádejte uživatele, jakým směrem chtěl" třídit listy. "IAnswer = MsgBox (" Řazení listů ve vzestupném pořadí? "& Chr (10) _ & "Klepnutím na ne se bude třídit v sestupném pořadí", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "Seřadit listy") Pro i = 1 Na tabulky.počet pro j = 1 Na tabulky.počet - 1 " ve vzestupném pořadí. 'Pokud se iAnswer = vbYes Pak Pokud UCase $ (Listy (j) .Name)> UCase $ (Listy (j + 1) .Name) odpověď je Ne, pak se zoradit v sestupném pořadí. 'ElseIf iAnswer = vbNe potom Pokud UCase $ (Listy (j) .Name) < UCase$(Sheets(j + 1).Name) Then                Sheets(j).Move After:=Sheets(j + 1)             End If          End If       Next j    Next i End Sub

Editor VBA automaticky pojmenuje každý modul s číslem na konci, jako je Module1, Module2 atd. Můžete jednoduše přijmout výchozí název modulu. Pokud však chcete do sešitu přidat další makra, je dobré přejmenovat každý modul tak, abyste věděli, jaké to jsou. Modul přejmenujeme, aby vám ukázal, jak.

Chcete-li modul přejmenovat, vyberte text v poli Název pro modul v části Vlastnosti v levém podokně.

Do pole Název zadejte název modulu a stiskněte klávesu Enter. Všimněte si, že název modulu nemůže obsahovat mezery.

Název modulu se změní v seznamu Moduly v části Projekt v levém podokně.

Zavřete editor VBA pomocí příkazu Soubor> Zavřít a návrat do aplikace Microsoft Excel.

Nyní spustíme makro, abychom třídili naše karty. Stisknutím Alt + F8 otevřete seznam maker v dialogovém okně Makro. Vyberte makro v seznamu (v našem případě existuje pouze jedno makro) a klikněte na tlačítko "Spustit".

Zobrazí se následující dialogové okno, které vám umožní vybrat, zda chcete listy řadit vzestupně nebo sestupně. Chceme je třídit ve vzestupném pořadí, takže klikneme na "Ano".

Záložky pracovního listu jsou nyní uspořádány v abecedním pořadí.

Makro, které jste přidali, je součástí vašeho sešitu, ale když jej uložíte, pravděpodobně se zobrazí následující dialogové okno. Důvodem je uložení sešitu jako souboru .xlsx, což je normální formát sešitu aplikace Excel, který neobsahuje makra. Chcete-li zahrnout do sešitu makra a je možné je spustit, musíte sešit uložit jako sešit se zapnutým makra nebo soubor .xlsm. Chcete-li to provést, klepněte na tlačítko "Ne" v tomto dialogovém okně.

Zobrazí se dialogové okno Uložit jako. Přejděte na místo, kde chcete uložit sešit se zapnutím makra, pokud nejste již v této složce. Vyberte "Excel Macro-Enabled Workbook (* .xlsm)" z rozevíracího seznamu "Uložit jako typ".

Klikněte na tlačítko "Uložit".

Pokud neukládáte sešit jako sešit makra (soubor .xlsm), přidané makro bude odstraněno. Možná budete chtít odstranit verzi .xlsx sešitu, abyste nezapomněli použít verzi .xlsm sešitu, pokud chcete přidat další karty tabulky a znovu je tříděte pomocí makra. Sešit můžete vždy uložit jako soubor .xlsx, pokud již nechcete používat makra.