- Mesajlar
- 1,215
Excelde uzman biri yardım edebilirmi
- Konbuyu başlatan bahhele
- Başlangıç tarihi
- Mesajlar
- 735
Makro kodlarına girin bir modül ekleyin.
Eklediğiniz modüle;
kodu yapıştırın.
Daha sonra, sonucu görmek istediğiniz hücreye;
Büyükten küçüğe sıralama için DOĞRU,
Küçükten büyüğe sıralama için YANLIŞ değerini girin.
Bu şekilde bir deneyin.
Not: Yalnızca tek boyutlu ve düşey dizilerde çalışır. Örnek: A1:A17 gibi
Eklediğiniz modüle;
Kod:
Public Function degerbul(dizi As Range, deger As Integer, buyukkucuk As Boolean)
Dim d As String
For i = 1 To dizi.Rows.Count
If buyukkucuk Then
If deger = Int(Application.WorksheetFunction.Large(dizi, i)) Then d = Str(i): Exit For
Else
If deger = Int(Application.WorksheetFunction.Small(dizi, i)) Then d = Str(i): Exit For
End If
Next i
degerbul = d
End FunctionDaha sonra, sonucu görmek istediğiniz hücreye;
Kod:
=degerbul(aranacak_dizi;aranan_deger;DOĞRU/YANLIŞ)Küçükten büyüğe sıralama için YANLIŞ değerini girin.
Bu şekilde bir deneyin.
Not: Yalnızca tek boyutlu ve düşey dizilerde çalışır. Örnek: A1:A17 gibi