Tartalomjegyzék
A következő rutin betűrendben rendezi a munkafüzet lapjait. A „Sort_Mode_Descending” (Sort_Mode_Descending) jelző szükség szerint csökkenő és növekvő között váltható. A rutin esetetlen INSENZITÍV.
| 1234567891011121314151617181920212223 | Alrendezés_lapok ()Dim Sort_Mode_Descending as BooleanHalvány_lapok száma egészkéntDim Outer_Loop mint egészDim Inner_Loop mint egészNo_of_Sheets = Sheets.Count'Zászló módosítása, ha szükségesSort_Mode_Descending = HamisOuter_Loop = 1 A No_of_SheetsBelső hurok = 1 Külső hurokhozHa Sort_Mode_Descending = Igaz, akkorHa UCase (Táblázatok (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name) AkkorTáblázatok (Outer_Loop). Move Before: = Sheets (Inner_Loop)Vége HaVége HaHa Sort_Mode_Descending = Hamis AkkorHa UCase (Táblázatok (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) AkkorTáblázatok (Outer_Loop). Move Before: = Sheets (Inner_Loop)Vége HaVége HaKövetkező Inner_LoopKövetkező Outer_Loop |
A cikkből származó .XLSM fájl letöltéséhez kattintson ide.
