Excel sadece şirket verilerini ve muhasebeyi saklamak için bir araç değildir. Gücü, neredeyse her şeyi basit ve hızlı bir şekilde sınıflandırmak ve yönetmek için kullanılması gerçeğinde yatmaktadır. Gündemler, çalışma kadranları, adres defterleri, fatura şablonları, katılım kayıtları oluşturabiliriz ... Ancak, Excel çalışma kitabı sayfalarını düzenlememize izin vermez, bu uzun kitaplarla çalışırken çok yararlıdır. Ancak Excel sekmelerini Visual Basic kodunda bir makro ile otomatik olarak sıralayabiliriz . Nasıl yapılacağını adım adım açıklıyoruz.
"Visual Basic kodunda makro" sözcükleri korkutucu olabilir, ancak her şey göründüğünden daha kolaydır. Makro, Excel'de bizim için bir dizi eylem gerçekleştiren ve tekrarlayan görevleri otomatikleştirmeye hizmet eden küçük bir programdır . Makrolar, Excel'in işlevlerine erişmenize ve bunları genişletmenize olanak tanıyan bir programlama dili olan Visual Basic for Applications (veya VBA) kodunda yazılır.
Visual Basic düzenleyicisi
Makroyu oluşturmak için, herhangi bir çalışma kitabını Excel'de açmalıyız ve ne kadar çok sekme varsa o kadar iyidir.
VBA düzenleyicisini açmak için Alt + F11 klavye kısayolunu kullanıyoruz . Düzenleyici penceresi göründüğünde, Personal.xls adlı belirli bir Excel çalışma kitabını ararız . Bu çalışma kitabı, içinde ne yaparsak yapalım tüm çalışma kitaplarını etkileyecek özelliğe sahiptir . Yani, bir makro oluşturursak, onu istediğimiz zaman kullanabiliriz.
Kişisel kitabı bulamazsanız endişelenmeyin. Açmak editörden çık Excel Görünüm sekmesi , aşağı çekin Makro menüsünü ve seçmek Kayıt Makro . Makroyu Kişisel Makro Kitabınıza kaydedin ve kaydetmeye başlayın. Ardından, Makrolar menüsünü tekrar açın ve kaydı durdurun. Zaten "özel" kitabınız var.
Artık yeni bir modül oluşturmak için her şeyimiz hazır . VBA editörünü Alt + F11 ile açıyoruz, Personal.xls kitabını seçiyoruz ve ardından Ekle> Modül'e tıklıyoruz . İmleci modül penceresine yerleştirip aşağıdaki kodu yazıyoruz:
Alt SortSheets_Ascendant ()
A = 1 To Sheets.Count için
S = a + 1 To Sheets.Count
UCase (Sheets (a) .Name)> UCase (Sheets (s) .Name) ise
Sayfa (lar). Önce Taşı: = Sayfalar (a)
Bitiş Eğer
Sonraki s
Bitişik, yanında
Sub
Pencereyi kapatıyoruz ve makro otomatik olarak kaydedilmiş olacak. Sadece çalışıp çalışmadığını kontrol etmek için kalır. Sekmelerini sipariş etmek istediğimiz kitabı açıyoruz, Görüntüle'ye gidip Makrolar'a tıklıyoruz veya Alt + F8 klavye kısayoluna basıyoruz . SortSheets_Ascendant'a çift tıklayın ve kitap sekmeleri anında alfabetik sıraya yerleştirilecektir .
Excel'i kapattığımızda, program bize makrolarda yapılan değişiklikleri kaydetmek isteyip istemediğimizi soracaktır. Kabul ediyoruz ve makromuz istediğimiz kitapta kullanılmak üzere saklanacak.
Sayfaları azalan düzende sıralayın
Kodda yapılan birkaç küçük değişiklikle, ters etkiyi elde edebiliriz: sekmeleri azalan alfabetik sıraya göre sıralayın . Makro oluşturma işlemini tekrarlıyoruz ve bu sefer aşağıdaki kodu ekliyoruz:
Alt SortSheets_Descending ()
A = 1 To Sheets.Count için
S = a + 1 To Sheets.Count
UCase (Sheets (a] .Name) <UCase (Sheets (s) .Name) ise
Sayfa (lar). Önce Taşı: = Sayfalar (a)
Bitiş Eğer
Sonraki s
Bitişik, yanında
Sub
Sadece iki varyasyon var. İlki, tabii ki, makronun adıdır. İkincisi, dördüncü kod satırında> 'den <' e yapılan değişikliktir. Bu , kitaptaki sayfaların sırasının yön değiştireceği anlamına gelir . Şimdi Görünüm> Makrolar'ı (veya Alt + F8 kısayolunu ) tıkladığınızda, yeni oluşturulan iki makroyu göreceksiniz. SortSheets_Descending'e çift tıklayın ve etkisini memnuniyetle kontrol edin.
Excel'den çıkarken değişiklikleri kaydederek, bu iki makroyu her an hazır bulunduracağız . Özellikle hantal olan Excel çalışma kitaplarının sekmelerini işlerken bize çok zaman ve emek kazandıracaklar.