Bu yazıda, Microsoft Excel 2010'da VBA aracılığıyla sayfaları artan düzende sıralamayı öğreneceğiz.
Birden çok sayfa üzerinde çalışırken, sayfaların düzgün şekilde düzenlenmediğini görüyorsunuz. Makro her çalıştırıldığında sayfayı otomatik olarak artan düzende sıralayacak bir makroyu hızlı bir şekilde oluşturmak istiyorsunuz.
Sayfaları artan düzende sıralamak için aşağıda belirtilen adımları izleyin:
- VB Düzenleyici ekranını başlatmak için Alt+F11 tuşlarına basın
- Ekle menüsünden Modül'ü seçin.
- Modülde kod satırlarını aşağıdaki gibi yazın:
Alt SortingSheetsInAscending()
Dim i As Integer, n As Integer, SheetsCounter As Integer
ActiveWorkbook Hiçbir Şey Değilse, Sub'dan Çıkın
ActiveWorkbook.ProtectStructure ise
MsgBox ActiveWorkbook.Name & "korumalı", vbCritical, "Sıralama Sayfaları"
Alt Çıkış
Bitir
If MsgBox("Sort Sheets?", vbQuestion + vbYesNo) vbYes Then Exit Sub
Application.EnableCancelKey = xlDevre Dışı
SheetsCounter = Sheets.Count
i = 2 için SheetsCounter için
n = 1 için SheetsCounter
Eğer Sheets(n).Name > Sheets(i).Name O zaman
E-Tablolar(i).Önceye taşı:=E-Tablolar(n)
Bitir
sonraki n
sonraki ben
Alt Bitiş
- Modülden F5 tuşuna basarak makroyu çalıştırın.
Alternatif olarak, Alt+F11 tuşlarına basın ve Excel'e dönün, makroyu düğme veya simge olarak herhangi bir Excel nesnesine atayın veya makroyu seçmek için Alt+F8 tuşlarına basın ve ardından Çalıştır'a tıklayın.
Sayfaların alfasayısal bir sırada düzenlendiğini göreceksiniz.