Verileri Sıralamak için 5 Harika Microsoft Excel Makrosu

Excel makroları, diğer otomasyon araçları kadar kapsamlı olmayabilir, ancak Excel VBA'nın geçerliliği ve verimliliği göz ardı edilemez. Excel'de ve Word ve Access gibi diğer Microsoft Office araçlarında çalışıyorsanız, VBA ve yetenekleri konusunda yanlış gidemezsiniz.

MS Excel, kullanıcılarına birçok seçenek sunan güçlü bir araçtır. Veri depolamadan otomatik panolar oluşturmaya kadar her şeyi Excel'de ve elektronik tablolarında yapabilirsiniz.

Excel'deki sıralama sorumluluklarınızı otomatikleştirmek için VBA'yı kullanmak istiyorsanız, bu verimli, uygulanması kolay makroları deneyin.

Sahte Veri Kümesini İndirin

Yeni başlayanlar için, Excel makro becerileriniz üzerinde çalışmak için sahte bir veri kümesi indirebilirsiniz.

Bu makroları bir kez kavradığınızda ve işlerin nasıl yürüdüğünü daha iyi anladığınızda, kodu iş veya okul için kendi elektronik tablolarınıza uyacak şekilde değiştirebileceğinizden emin olabilirsiniz.

Takip etmek isterseniz bu makalede kullanılan veri setini indirebilirsiniz.

İndirmek: Excel Veri Kümesi

1. Excel Makrolarını Kullanarak Bir Sütunu Sıralama

Bir Excel elektronik tablosundaki bir veri sütununu sıralamak için bu basit kodu kullanın. Sahte veri kümesini indirdiyseniz, E sütununu (Satılan Birimler) sıralamayı deneyebilirsiniz.

Yeni bir Excel dosyası açın ve bir Excel Makro Etkin Çalışma Kitabı (.xlsm) çalışma kitabı türü. Bu dosya, verilerinizi başka bir dosyadan sıralamak için makroyu saklayacaktır.

İlişkili: İleri Düzey Excel'de Ustalaşmak için En İyi Çevrimiçi Kurslar

Dosyalarınızı, çalışma kitaplarınızla ayrı ayrı etkileşime girecek olan makro dosyasından kontrol edeceksiniz.

Aşağıdaki kodu girin:

Alt sıralama başlıkları()
Çalışma Kitapları("Finansal Örnek.xlsx").Tablolar (1).Etkinleştir
Range("A1:P701").sort Key1:=Range("e1"), Order1:=xlArtan, Başlık:=xlEvet
Alt Alt

Neresi:

• Anahtar1: Sıralamak istediğiniz sütunları tanımlayın
• Sipariş1: Sıralama yöntemi (artan/azalan)
• Başlık: İçeriğinizin başlıkları varsa, bu seçenek şu şekilde kalacaktır: xlEvet. Alternatif olarak, xlHayır.

Aralık, başlangıç ​​hücresinden ve bitiş hücre adresinden oluşacaktır, böylece her şey sıralama amacıyla yakalanacaktır. Sonuç olarak, tüm veri kümeniz E sütunundaki verilere göre sıralanacaktır.

2. Dinamik Verileri Tek Bir Sütunda Sıralama

Başlangıç ​​noktanızın tanımlandığı ancak bitiş noktanızın dinamik olduğu durumlar olabilir. Böyle bir durumda, kodunuzu dinamik hale getirerek aralığın sonunu otomatik olarak almasını sağlayabilirsiniz.

Verilerdeki değişikliği karşılamak için aşağıdaki kodu kullanın:

Alt sıralama başlıkları()
Çalışma Kitapları("Finansal Örnek.xlsx").Tablolar (1).Etkinleştir
Range("A1", Range("A1").End (xlDown)).sort Key1:=Range("e2"), Order1:=xlArtan, Başlık:=xlEvet
Alt Alt

Neresi:

• Bitiş (xlDown): Bu işlev, en son doldurulan hücreyi otomatik olarak seçecektir.

Not: Formül bir sütun içinde boş bir hücreyle karşılaşırsa, önceki hücreyi aralığın sonu olarak kabul eder.

İlişkili: Microsoft Excel'de Özel Klavye Kısayolları Nasıl Oluşturulur

3. Birden Çok Sütunu Birlikte Sıralama

Tek seferde birden çok sütundaki verileri sıralamak istediğiniz durumlar olabilir. Bunu yapmak için, amacınıza ulaşmak için aşağıdaki kodu kullanabilirsiniz:

Alt SortMultipleColumns()
Çalışma Sayfaları ile ("Sayfa1")
 .Cells (1, "A") ile. MevcutBölge
 .Cells.sort Key1:=.Range("B1"), Order1:=xlArtan, _
 Key2:=.Range("E1"), Order2:=xlArtan, _
 Oryantasyon:=xlTopToBottom, Başlık:=xlEvet
 İle bitmek
 İle bitmek
Alt Alt

4. Sütunları Birden Çok Sayfada Sıralama

Birden çok sayfayla uğraşırken, verilerinizi bir panoya yerleştirilmek üzere hazırlamak isteyebilirsiniz. Veri hazırlamanın en önemli yönlerinden biri, onu sıralamak ve paydaşlarınıza veya müşterilerinize sunmak için verileri belirli bir formatta düzenlemektir.

Seçeneklerden biri, her sayfada manuel olarak geçiş yapmak, gerekli sütunları sıralamak ve ardından bir sonraki adıma geçmektir. Alternatif olarak, neden VBA'nın sizin için yapmasına izin vermiyorsunuz?

Aşağıdaki kodun amacı, çalışma kitabındaki mevcut her sayfa arasında geçiş yapmak ve belirtilen sütunlara göre mevcut verileri sıralamaktır.

İlişkili: Elektronik Tabloları Daha Verimli Aramak için Microsoft Excel Arama İşlevleri

Birden çok sayfadaki sütunları şu şekilde sıralayabilirsiniz:

Alt SıralamaWS()
Dim ws As Çalışma Sayfası
'Amaçlanan çalışma sayfasını etkinleştirin
Çalışma Kitapları("Finansal Örnek.xlsx").Etkinleştir
'For döngüsünü kullanarak her bir çalışma sayfasında otomatik olarak geçiş yapın
ActiveWorkbook'ta Her ws için. Çarşaflar
'her bir çalışma sayfasını etkinleştir
ws. etkinleştir
'Aralığı tanımlayın ve ardından sütunu gereksinimlerinize göre sıralayın. Bu durumda sadece bir sütun sıralanıyor.
Aralık("A1", Aralık("p1").Son (xlAşağı)).sort Anahtar1:=Aralık("E1"), Sıra1:=xlAzalan, Başlık:=xlEvet
'Önceki çalışma sayfası sıralandıktan sonra bir sonraki çalışma sayfasına geçmek için kullanılan komut
Sonraki ws
Alt Alt

Tek tırnak ile başlayan tüm bilgiler VBA yorumlarıdır. Bunlar yürütme aşamasında yürütülmez. Ancak, kod bölümlerinde özü, işlevselliği ve diğer ilgili bölümleri tanımlayabileceğiniz için eklediğiniz her VBA yorumu koda anlamlı bir eklemedir.

5. Sıralanmış Verileri Bir Sayfadan Diğerine Kopyalama

Verileri sıralamak ve tüm veri kümesini (veya parçalarını) yeni eklenen bir sayfaya kopyalamak istediğiniz bir durum hayal edin. Bu gibi durumlarda, elinizdeki görevi gerçekleştirmek için aşağıdaki kodu kullanabilirsiniz:

Alt SıralamaWS()
Dim ws As Çalışma Sayfası
'Amaçlanan çalışma sayfasını etkinleştirin
Çalışma Kitapları("Finansal Örnek.xlsx").Etkinleştir
'For döngüsünü kullanarak her bir çalışma sayfasında otomatik olarak geçiş yapın
ActiveWorkbook'ta Her ws için. Çarşaflar
'her bir çalışma sayfasını etkinleştir
ws. etkinleştir
'Aralığı tanımlayın ve ardından sütunu gereksinimlerinize göre sıralayın. 
'Bu durumda sadece bir sütun sıralanıyor.
Aralık("A1", Aralık("p1").Son (xlAşağı)).sort Anahtar1:=Aralık("E1"), Sıra1:=xlAzalan, Başlık:=xlEvet
'Önceki çalışma sayfası sıralandıktan sonra bir sonraki çalışma sayfasına geçmek için kullanılan komut
Sonraki ws
'Yeni verileri depolamak için çalışma kitabında yeni bir çalışma sayfası oluşturun
Aktif Çalışma Kitabı. Çarşaflar. Eklemek. İsim = "Sonuçlar"
'Sıralanan verileri kopyalayıp yeni eklenen sayfaya yapıştırın
Sheets("Sheet1").Range("A1:p701").Copy Destination:=Sheets("Sonuçlar").Range("a1")
Alt Alt

Yukarıdaki kod, E sütunundaki değerleri sıralayacak, yeni bir sayfa ekleyecektir. Sonuçlar mevcut çalışma kitabına girin ve sıralanan sonuçları hücreye yapıştırın A1.

Excel'de Sıralama Makroları Oluşturma

Excel VBA, size çok fazla zaman ve emek kazandırabilecek şık bir dildir. VBA makrolarını kullanarak kapsamlı panolar oluşturabilir, verileri birkaç tıklamayla kolayca sıralayabilir ve farklı işlevleri kolaylıkla gerçekleştirebilirsiniz.

Neyse ki, Excel'in işlevselliği makrolarla bitmiyor. Daha verimli bir Excel kullanıcısı olmak için bazı ipuçlarına ve püf noktalarına göz atın.

Excel İpuçları ve Püf Noktaları Öğrenmek için En İyi 9 Web Sitesi ve Blog

İster Excel'de usta olun, ister yeni başlıyor olun, bazı ipuçlarını ve püf noktalarını öğrenmek için kullanabileceğiniz en iyi dokuz web sitesi ve blog burada.

Sonrakini Oku

Yazar hakkında