Bir hücre Aralığındaki n. Maksimum sayıyı gösteren ktf talabei

[hsayar]

merhaba Arkadaşlar


örnek verilerimiz 15,20,15,40,85,..............,98,96,1000,9800,990 olsun

Function nMax(n as integer, Erim As Range) as integer 
..............
end function

diye bir fonsiyonumuz olsa ve biz hücreye
= nMax(3;"A2:A100") yazsak [yani a2:a100 aralığında 3. enbüyük sayı]

sonuc olarak 990 rakamını verecek fonksiyon nasıl olmalıdır.

 

[Necdet]

Merhaba,

Bu işi yapacak zaten fonksiyon var BÜYÜK(LARGE)

=BÜYÜK(A1:A10;3)
=LARGE(A1:A10;3)

 

[hsayar]

Hocam teşekkürler. Ancak sayfada işe yarıyor ama vba da işe yaramıyor
MsgBox WorksheetFunction.Large("j8:J23", 3)

 

[Necdet]

Merhaba,

Sub Buyuk()
MsgBox Application.WorksheetFunction.Large(Range("A1:A12"), 3)
End Sub

 

[ECYavuz]

Elinize sağlık hocam, konu benzer olduğu için soruyorum. ("A1:A12") aralığı yerine, TextBox1....TextBox10 arasında sıralı TextBoxlarda yazılı rakamlar içinden en büyük N nci sayıyı nasıl ararız.

 

[hsayar]

teşekürlee Necdet hocam range deyimini unutmuşum aynı andaiki üç şey düşününce tilkileirn kuyrukları karıştı

Sn EcYavuz Textboxları diziye aldıktan sonra Hücre aralığı yazılacak yere dizi adı yazılark oluyor.

Sub Dizideki_buyuk()
Dim arrsay()
arrsay = Array(0, 50, 4, 300, 20, 16)
xx = Application.WorksheetFunction.Large(arrsay, 3)
MsgBox xx
End Sub

not şimdi biri çıkıp küçüğü nasıl buluruz derse Large yerine small yazsın.