تعیین بزرگترین اعداد در یک ستون

[shamsololama]

سلام


میخواستم بدونم چطوری برنامه ی بنویسیم که بگه اولین عدد بزرگ و دومین عدد بزرگ و ... به همراه سطرشون؟؟؟

خیلی مهمه

با درود فراوان

همانطور که دوست عزیزم جناب اسماعیلی هم فرمودند با تابع LARGE و ترکیب آن با Match این کار رو انجام بدین و همچنین با استفاده از تابع Rank در فایل ضمیممه به دو روش در شیت یک و دو مثال زده شده است

[iranweld]

با سلام

ماکروی ذیل را تست کنید فقط ستون اعداد و چندمین عدد بزرگ را برای نمایش در قسمت مشخص شده وارد نمایید

Sub test()

Dim RNG As Range
COL = Range("E2")
NUM = Range("E3")

ENDROW = Cells(Rows.Count, COL).End(xlUp).Row

Set RNG = Range(COL & ":" & COL)

XX = Application.Large(RNG, NUM)

For I = 1 To ENDROW
If Range(COL & I) = XX Then
YY = Range(COL & I).Address
End If
Next

MsgBox XX & vbNewLine & YY

End Sub 

[امين اسماعيلي]

از فرمول large استفاده کنی. میتونی بزرگرترین ها رو بدست بیاری و بعدش هم با ترکیبش با match ردیفشونو بدست بیاری

[barish_n]

سلام


میخواستم بدونم چطوری برنامه ی بنویسیم که بگه اولین عدد بزرگ و دومین عدد بزرگ و ... به همراه سطرشون؟؟؟

خیلی مهمه