Excel'de sütunu değere göre otomatik olarak nasıl sıralayabilirim?
Örneğin, aşağıda gösterilen ekran görüntüsü gibi bir satın alma tablonuz var. Şimdi bu sütuna yeni rakamlar/fiyatlar girdiğinizde Fiyat sütununun otomatik olarak sıralanmasını istiyorsunuz, nasıl çözersiniz? Burada, Excel'de belirli bir sütunu değere göre otomatik olarak sıralamanıza yardımcı olacak bir VBA makrosu tanıtıyorum.
VBA ile sütunu değere göre otomatik sırala
VBA ile sütunu değere göre otomatik sırala
Bu VBA makrosu, yeni verileri girdiğinizde veya Excel'deki sütundaki değeri değiştirdiğinizde belirli bir sütundaki tüm verileri otomatik olarak sıralayacaktır.
1. Şu anki sayfa adına sağ tıklayın Sayfa Sekme çubuğuseçeneğini ve ardından Kodu Görüntüle sağ tıklama menüsünden.
2. Uygulama için Microsoft Visual Basic iletişim kutusunun açılışında, aşağıdaki VBA makro kodunu açılış penceresine yapıştırın.
VBA: Excel'de Sütunu Otomatik Sırala
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
not:
1) Yukarıdaki vba kodunda, B: B Sütun B'yi otomatik olarak sıralayacağı anlamına gelir, B1 Sütun B'deki ilk hücredir, B2 B Sütunundaki ikinci hücredir ve bunları ihtiyaçlarınıza göre değiştirebilirsiniz.
2) snippet Başlık:=xlEvet 5. satırda Excel'e, sıralayacağınız aralığın bir başlığı olduğunu, böylece aralığın ilk satırının sıralama sırasında dahil edilmeyeceğini söyler. Başlık yoksa, lütfen şu şekilde değiştirin: Başlık:=xlHayır; ve değişim Key1:=Aralık("B2") 4. sıradaki Key1:=Aralık("B1").
3. Ardından çalışma sayfasına geri dönün, Fiyat sütununa yeni bir sayı girdiğinizde veya mevcut herhangi bir fiyatı değiştirdiğinizde, Fiyat sütunu otomatik olarak artan sırada sıralanacaktır.
not: Fiyat sütununa yeni bir sayı girdiğinizde, sayıyı orijinal sayıların altındaki ilk boş hücreye girmeniz gerekir. Yeni girilen numara ile orijinal numaralar arasında boş hücreler ve orijinal numaralar arasında boş hücreler varsa, bu sütun otomatik olarak sıralanmayacaktır.
Demo: Excel'de VBA ile sütunu değere göre otomatik sırala
Excel'de meydana gelme sıklığına göre kolayca sıralayın
Kutools for Excel's Gelişmiş Sıralama yardımcı program, Excel'de verileri metin uzunluğu, soyadı, mutlak değer, sıklık vb.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!