Bu dosya, bir çalışma kitabındaki sayfaların sekmelerini sayfa adlarına göre alfabetik olarak sıralayan makro örneklerini içerir. Gizli sayfalar sıralama sırasında geçici olarak görünür yapılır, sıralama bitince tekrar gizlenir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- A, B, C, D, E: Sıralamayı denemek için hazırlanmış örnek sayfalardır. Sayfalarda yalnızca birkaç hücrede veri bulunur, formül yoktur.
- Module1: Üç yordam içerir: Test, SortSheets ve BubbleSort.
- Sayfa4 ve Sayfa5 sayfa modüllerinde de aynı amaca yönelik makrolar bulunur.
Makrolar
- Test: Tüm sayfa adlarını bir diziye alır, diziyi Word.Basic nesnesinin SortArray yöntemiyle sıralar ve sayfaları bu sıraya göre sondan başa doğru taşır. Word.Basic nesnesi kullanıldığı için bilgisayarda Word kurulu olması gerekir.
- SortSheets: Sayfa adlarını okur, gizli sayfaları geçici olarak görünür yapar, adları BubbleSort ile sıralar ve sayfaları yeni sıraya taşır. Ardından gizli sayfaları yeniden gizler ve sıralamadan önce etkin olan sayfayı tekrar etkinleştirir. Çalışma kitabının yapısı korumalıysa uyarı verip işlemi durdurur.
- BubbleSort: Adları büyük harfe çevirerek karşılaştıran kabarcık sıralama yordamıdır; büyük/küçük harf farkı sıralamayı etkilemez.
- Sayfa4 içindeki deneme: Sayfa adlarını küçük harfe çevirerek ikili karşılaştırır ve sırası uygun olmayan sayfayı öne taşır.
- Sayfa5 içindeki SortSheets: Module1 içindeki SortSheets makrosunun Türkçe uyarı mesajlı sürümüdür; çalışma kitabı korumalıysa "kitabı korumalıdır" iletisi gösterilir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Alt+F8 tuşlarıyla makro listesini açın.
- Sıralamak için SortSheets makrosunu seçip çalıştırın; sayfalar alfabetik sıraya dizilir.
- Kendi çalışma kitabınızda kullanmak için Alt+F11 ile VBA düzenleyicisini açın, Module1 içeriğini kendi dosyanıza kopyalayın ve makroyu orada çalıştırın.