İçindekiler
Aşağıdaki rutin, çalışma kitabındaki sayfaları alfabetik olarak sıralayacaktır. “Sort_Mode_Descending” bayrağı, gerektiğinde azalan ve artan arasında değiştirilebilir. Rutin durum DUYARSIZDIR.
| 1234567891011121314151617181920212223 | Alt Sıralama Sayfaları()Dim Sort_Mode_Descending As BooleTamsayı Olarak No_of_Sheets DimOuter_Loop'u Tamsayı Olarak DimTamsayı Olarak Dim Inner_LoopNo_of_Sheets = Sheets.Count'Bayrağı uygun şekilde değiştirinSort_Mode_Descending = YanlışOuter_Loop için = 1 - No_of_SheetsInner_Loop için = 1 To Outer_LoopSort_Mode_Descending = True iseEğer UCase(Sheets(Outer_Loop).Name) > UCase(Sheets(Inner_Loop).Name) iseSheets(Outer_Loop).Move Before:= Sheets(Inner_Loop)BitirBitirSort_Mode_Descending = False iseEğer UCase(Sheets(Outer_Loop).Name) < UCase(Sheets(Inner_Loop).Name) O zamanSheets(Outer_Loop).Move Before:= Sheets(Inner_Loop)BitirBitirSonraki İç_DöngüSonraki Outer_Loop |
Bu makaleden .XLSM dosyasını indirmek için buraya tıklayın.
