V tomto článku se naučíme třídit listy ve vzestupném pořadí prostřednictvím VBA v aplikaci Microsoft Excel 2010.
Při práci na více listech zjistíte, že listy nejsou správně uspořádány. Chcete rychle vytvořit makro, které automaticky seřadí list vzestupně při každém spuštění makra.
Chcete -li listy seřadit vzestupně, postupujte podle níže uvedených kroků:
- Stisknutím Alt+F11 otevřete obrazovku editoru VB
- Z nabídky Vložit vyberte Modul.
- V modulu zadejte následující řádky kódu:
Dílčí tříděníSheetsInAscending ()
Dim i jako celé číslo, n jako celé číslo, SheetsCounter jako celé číslo
Pokud ActiveWorkbook není nic, ukončete dílčí
Pokud ActiveWorkbook.ProtectStructure Then
MsgBox ActiveWorkbook.Name & "is protected", vbCritical, "Sort Sheets"
Ukončit dílčí
Konec If
Pokud MsgBox („Třídit listy?“, VbQuestion + vbYesNo) vbYes Then Exit Sub
Application.EnableCancelKey = xlDisabled
SheetsCounter = Sheets.Count
Pro i = 2 na SheetsCounter
Pro n = 1 na SheetsCounter
If Sheets (n) .Name> Sheets (i) .Name Then
Listy (i). Přesunout před: = Listy (n)
Konec If
Další n
Příště já
End Sub
- Spusťte makro z modulu stisknutím klávesy F5.
Případně stiskněte Alt+F11 a vraťte se do Excelu, přiřaďte makro jakémukoli objektu Excelu jako tlačítko nebo ikonu, nebo stisknutím Alt+F8 vyberte makro a poté klikněte na Spustit.
Zjistíte, že listy jsou uspořádány v alfanumerickém pořadí.