Excel Sıralama Fonksiyonu VBA

SIRALAMA Fonksiyonunun Makro Yazımı

RANK fonksiyonunu kullanarak bir değerin belirli bir seride kaçıncı sırada yer aldığını rahatlıkla öğrenebilmekteyiz.

AMAÇ

Bir değerin, bir seri içindeki sıra numarasını hesaplanması. 

Burada dikkat edilmesi gereken husus, bu formülün vermiş olduğu çıktının hücrenin gerçek satır numarası değil; dizi içerisindeki sıralaması olduğudur.

FORMÜL

Application.WorksheetFunction.Rank

ÖRNEK

Aşağıdaki örnekte H39’daki değerin, H1:H100 serisi içinde kaçıncı sırada olduğunu hesaplıyoruz.

Aşağıdaki formül bu durumda bize 39 değerini verecektir.

Eğer H43 değerini H4:H103 aralığında arasaydık, karşılaşacağımız değer yine 39 olacaktı. Çünkü bu formül sıra numarasından bağımsız olarak değerlerin, sıra içerisindeki konumlarını döndürmektedir.

Sub sıralama()

Dim et As Double

et = Application.WorksheetFunction.Rank(Sheets("Sayfa1").Range("H39"), Sheets("Sayfa1").Range("H1:H100"))

End Sub