Pam, çalışma sayfası sekmelerini alfabetik olarak düzenlemek istiyor. Bu Excel'de bir komut değildir, ancak kısa bir makro kullanarak bunu Hızlı Erişim Araç Çubuğunuza ekleyebilirsiniz.
Video izle
- Pam, çalışma sayfası sekmelerini alfabetik olarak sıralamak istiyor
- Kişisel makro çalışma kitabında bir makro kullanacak
- Alt + T + M + S ve makro güvenliğini makrolara izin verecek şekilde değiştirin
- Kişisel makro çalışma kitabına bir Hello World makrosu kaydedin
- Kişisel Makro Çalışma Kitabına yeni kod yazın
- Bu kodu bir QAT düğmesine atayın
Video Metni
Podcast'ten Excel Öğrenin, Bölüm 2084: Çalışma Sayfası Sekmelerini Alfabetik Olarak Sıralama
Hey, İnternet'e tekrar hoş geldiniz, ben Bill Jelen. Pam'den bugünün sorusu: Çalışma sayfası sekmelerini alfabetik olarak sıralamanın bir yolu var mı? Bunu yapmanın yerleşik bir yolu yok ama bunu bir makro ile yapabiliriz. Ve şimdi, bu gerçekten kişisel makro çalışma kitabında olması gereken bir Makro, tamam mı? Yani, daha önce hiç makro yapmadıysanız, Tom için Alt + T ve Mary için S, Sam için S yapacağız. Tüm makroları bildirimde bulunmadan devre dışı bırak'tan Bildirimle makroları devre dışı bırak seçeneğine geçtiğinizden emin olun.
Tamam o zaman, Alt + F8 tuşlarına basın ve bir göz atın ve herhangi bir makro olup olmadığına bakın, Makrolar: Tüm Açık Çalışma Kitapları'nı seçtiğinizden emin olun. PERSONAL.XLSB olarak başlayan hiçbir şeyiniz yoksa, bu isteğe bağlı adımları uygulamanız gerekir. PERSONAL.XLSB ile zaten bir şeyiniz varsa, bir saniye bekleyin, tamam mı?
Öyleyse, Görünüm sekmesine gidip Yeni Bir Makro Kaydedeceğiz. Adı HelloWorld olacak. Yer yok, yer yok. Ve makroyu Kişisel Makro Çalışma Kitabına kaydedeceğiz, Tamam'a tıklayın. Ve bir yere Hello World yazın, sonra buraya Hazır'ın yanına gelin ve Durdur'u tıklayın. Pekala, şimdi bu sizi Kişisel Makro Çalışma Kitabına sahip olmaya zorlayacak. Pekala, daha önce hiç makro kullanmadıysanız, buna sahip olmayabilirsiniz.
Bu noktada, Alt + F11 tuşlarına basacağız ve hiç makro kullanmadıysanız, bu gri ekranı buradan alacaksınız. View, Project Explorer'a gideceğiz ve yeni PERSONAL.XLSB'yi bulacağız. Zaten orada bir Modülünüz varsa, tabii ki yapacağınız, elbette evet, modülleri açın ve Modül 1'e çift tıklayın. Şimdi, Kişisel Makro Çalışma Kitabımda zaten birkaç makro var ama hemen buraya geleceğim. son satıra birkaç boşluk koyun.
Pekala, o zaman yapıştırdığım bu kodu yazarsınız. Ve ben onu çalıştırırken bu makro hakkında konuşacağız. Yani, F8 tuşuna basarak her seferinde bir satır çalıştıracağım. Ve burada öğrendiğim bir şey, sıralamayı bitirdikten sonra, farklı bir sayfada sona ermek biraz endişe vericiydi, bu yüzden hangi sayfada olduğumuzu hatırlıyorum, bu yüzden daha sonra, onu makrodan hemen önce seçebilirim bitti.
Tamam şimdi, buradayız. Excel'e geri dönelim ve oradaki ilk sayfanın Başlık olarak adlandırıldığını göreceksiniz. Şu anda Soru adlı bir sayfadayız. Başlıktan önce yeni bir sayfa eklemek istiyorum, bu yüzden Çalışma Sayfaları yapıyoruz.Ekle ve sonra onu yeniden adlandırmak istiyorum. Şu anda TempSortSheet olarak bir Sheet1 içinde geliyor. Dikkatli olun, bu asla kullanamayacağınız bir isim olmalıdır. Bu Gelir Tablosu demeyin, tamam mı? Sadece çok rastgele bir şey kullanın, böylece TempSortSheet adında bir sayfanız varsa, bir hatayla karşılaşırsınız. Ve sonra bulduğum şey, bu Çalışma Sayfasını defalarca kullandığımdır, bu yüzden onu WSC demek Çalışma Sayfaları.Count'tan daha kolay bir değişkene koyacağım. Yani 150 çalışma sayfamız var ve bu çalışma sayfalarının bir listesi var.
Pekala, yani 1'den 250'ye gittiğim döngüde ilk kez gidiyorsunuz. Döngü boyunca ilk kez eklediğimiz yeni sayfamıza, TempSortSheet'e 1. Satır Sütun 1'e gidiyoruz İlk Çalışma Sayfasına = olan bir Değer koymak için. Pekala, ve olması gereken şey, evet, TempSortSheet tam orada. Ama bunun birkaç kez daha çalışmasına izin vereceğim. F8'e basacağım ve tüm sayfa sekmelerini çalışma kitabında göründükleri sırayla aldığımızı göreceksiniz ve hesap numaralarının bulunduğu sekmeleri almaya başladığımı varsayalım, pekala. Ve bunun çalışmasına izin vereceğim, F8'e 300 kez basmak istemiyorum. Öyleyse, buraya tıklayacağım ve Debug, Run To Cursor'a gideceğim, Ctrl + F8 olan bu işi bitirecek. Ve 150 sayfalık sekmelerin hepsinin bir listesine sahibiz.Bu harika.
Ve şimdi burada Excel'in gücünden yararlanıyoruz. Aslında denedikleri ve sıraladıkları mesaj panosu da dahil olmak üzere çevrimiçi birçok ilan var. Sayfaları hareket ettirmek için kendi türlerini yazıyorlar ve burada Excel'den yararlanacağız çünkü Excel'in bir sıralaması var ve ben Excel 2003'teki kodu kullanıyorum. Bu kodu beğendim, hatırlaması daha kolay. A1 ile başlayacağım, 150 hücre olacak şekilde yeniden boyutlandıracağım. Anahtar A1 olacak. Olabileceği tek şey bu. Sıra Artan olacak ve bir Başlık olduğunu belirttiğinizden emin olun, tamam mı? TempSortSheet'imizin verilere göre sınıflandırılmasını istemiyoruz. Pekala, işte orada. BAM! Bu sıralamayı yapar ve kabarcık sıralama kodu etrafına yazmamıza gerek yoktur. Ve sonra A120 olan 2. Satırdan başlayacağız.taşınacak sayfa A120'dir. Neden ""? Ahh, bu hafta başlarında olduğu gibi bir sayfa adınız olması durumunda, Excel'in kafasını karıştıracak 123 adlı bir sayfa gibi. Ve sonra, onu nereye taşıyacağız? 2. Satıra değil, ilk sayfadan sonra hareket edeceğiz. Yani MoveAfter 1 olur. Yani, A120 adlı sayfamızı alıp ilk sayfadan sonra, F8'e taşıyacağız ve orada işe yaradı. Bu üç satırı bir kez daha çalıştırın. A124 doğru yere geliyor.A120 adlı sayfamızı alıp ilk sayfadan sonra F8'e taşıyacağız ve orada işe yaradı. Bu üç satırı bir kez daha çalıştırın. A124 doğru yere geliyor.A120 adlı sayfamızı alıp ilk sayfadan sonra F8'e taşıyacağız ve orada işe yaradı. Bu üç satırı bir kez daha çalıştırın. A124 doğru yere geliyor.
Bu noktada, artık çalıştığını biliyoruz, tüm hareketleri yapan Ctrl + F8'i yapabiliriz - orada 150 hamle oldu. Ve şimdi, silinmiş TempSortSheet'imiz olan orijinal sayfayı sileceğim. Ama silmeden önce, kodu kim çalıştırıyorsa, sayfayı silmek üzere olduğumuzu söylemelerini istemiyorum. Bu yüzden, onu silerim ve ardından orijinal sayfayı seçerim ve çalışma kitaplarının bu şekilde sıralandığına dair mesaj görüntülerim.
Tamam, şimdi makroya sahip olduğumuza göre, makronun çalıştığını ve kişisel makro çalışma kitabında olduğunu biliyoruz, yapmak istediğimiz birkaç şey: Alt + F11 buraya geri dönün ve kişisel makroda olduğunuzdan emin olun çalışma kitabını tıklayın, orayı tıklayın ve Kaydet'i tıklayın. Şimdi kaydetmezseniz, daha sonra Excel'i kapattığınızda, 'Değişiklikleri PERSONAL.XLSB'ye kaydetmek istiyor musunuz?' ve değişiklikleri tamamen unutacak ve kaydetmeyeceksiniz, değil mi? Bu yüzden her zaman değişiklikleri kaydettiğimden ve ardından Hızlı Erişim Araç Çubuğunu Özelleştirdiğim Alt + Tab, Makrolardan seçim yaptığım, SortSheets adlı birini bulduğum ve Hızlı Erişim Araç Çubuğuna eklediğimden emin oluyorum. Akış çizelgesinden hoşlanmıyorum, bu yüzden A'dan Z'ye yazan bir şey arayacağız ya da biliyorsunuz, öyleyse 's bunu kullanın ve bunun gibi Sayfa Sırala küçük bir sekme koyun, Tamam'a tıklayın, Tamam'a tıklayın.
Pekala, şimdi test şu. Yeni bir çalışma kitabı ekleyeceğim. Sayfaların bazı kopyalarını alacağım ve onları garip bir sıraya koyacağız, Z ve sonra Y ve sonra M ve sonra B, bunun gibi. Sayfaları ve BAM'ı Sırala'yı tıklayın! Buraya doğru sırayla geri döndüler. Ne kadar serin.
Pekala, bugünkü bölümde Pam çalışma sayfası sekmelerini alfabetik olarak sıralamak istiyor. Vaov! Makroyu kullandık. İlk olarak, makro güvenliğini değiştirin ve Hello World makrosunu kişisel makro çalışma kitabına kaydedin ve ardından kodu Kişisel Makro Çalışma Kitabına yazın ve bunu bir Hızlı Erişim Araç Çubuğu düğmesine atayın.
Pam'e bu soru için teşekkür etmek istiyorum. Uğradığın için teşekkür ederim. Bir dahaki sefere başka bir internet yayını için görüşürüz.
Dosyayı indir
Örnek dosyayı buradan indirin: Podcast2084.xlsm
