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

[barish_n]

سلام


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

خیلی مهمه

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

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

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

[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 

[shamsololama]

سلام


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

خیلی مهمه

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

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