V tomto článku sa naučíme triediť listy vo vzostupnom poradí prostredníctvom VBA v programe Microsoft Excel 2010.
Pri práci na viacerých listoch zistíte, že listy nie sú správne usporiadané. Chcete rýchlo vytvoriť makro, ktoré bude hárok automaticky triediť vzostupne pri každom spustení makra.
Ak chcete listy zoradiť vzostupne, postupujte podľa nižšie uvedených krokov:
- Stlačením klávesov Alt+F11 spustíte obrazovku editora VB
- V ponuke Vložiť vyberte položku Modul.
- Do modulu zadajte riadky kódu nasledovne:
Podtriedenie TabuľkyInAscending ()
Dim i ako celé číslo, n ako celé číslo, SheetsCounter ako celé číslo
Ak ActiveWorkbook nie je nič, ukončite podponuku
Ak ActiveWorkbook.ProtectStructure Potom
MsgBox ActiveWorkbook.Name & "is protected", vbCritical, "Tried Sheets"
Ukončiť sub
Koniec Ak
Ak MsgBox („Zoradiť hárky?“, VbQuestion + vbYesNo) vbYes potom ukončiť Sub
Application.EnableCancelKey = xlDisabled
SheetsCounter = Sheets.Count
Pre i = 2 na SheetsCounter
Pre n = 1 na SheetsCounter
If Sheets (n) .Name> Sheets (i) .Name Then
Tabuľky (i). Presunúť pred: = Listy (n)
Koniec Ak
Ďalej n
Ďalej i
Koniec pod
- Spustite makro z modulu stlačením klávesu F5.
Prípadne stlačte kombináciu klávesov Alt+F11 a vráťte sa do programu Excel. Priraďte makro k akémukoľvek objektu programu Excel ako tlačidlo alebo ikonu alebo stlačením klávesov Alt+F8 vyberte makro a potom kliknite na položku Spustiť.
Zistíte, že listy sú usporiadané v alfanumerickom poradí.