اظهار قائمة باعلى 5 قيم (تعديل كود)

[عاطف عبد العليم محمد]

السلام عليكم ورحمة الله وبركاته 

اريد بعد اذنكم كود يظهر اعلى 5 قيم في صف بعد اشتراط محتوي الخلية التي بجانبه 

مثال

3	قيد يومية
189	قبض نقدي
203	صرف نقدي

10	قيد يومية
20	قبض نقدي
200	صرف نقدي

نشترط مثلا ان القيم التي ستظهر هى اعلى 5 قيم  لقيد اليومية

وجدت هذا الكود ولم استطع التعديل عليه

Sub big5()
Dim rngTestArea As Range, i As Integer, j As Integer, MyResult As String
Set rngTestArea = ThisWorkbook.Worksheets("ورقة1").Range("A1:A25")
j = 0
For i = 1 To 5
    j = Application.WorksheetFunction.Large(rngTestArea, i)
    MyResult = MyResult & "Rank " & i & " is " & j & vbCr
Next i
MsgBox MyResult
End Sub

 

[ياسر خليل أبو البراء]

وعليكم السلام

ارفق ملف للعمل عليه

[عاطف عبد العليم محمد]

تفضل مع الشكر

 

اظهار اعلى 5 قيم.rar

تم تعديل أغسطس 2, 2017 بواسطه عاطف عبد العليم محمد

[ياسر خليل أبو البراء]

جرب الكود بعد التعديل البسيط .. 

Sub big5()
    Dim ws          As Worksheet
    Dim rngTestArea As Range
    Dim i           As Integer
    Dim j           As Integer
    Dim myResult    As String

    Set ws = ThisWorkbook.Worksheets("ورقة1")
    Set rngTestArea = ws.Range("G6:G" & ws.Cells(Rows.Count, "G").End(xlUp).Row)
    j = 0
    
    For i = 1 To 5
        j = Application.WorksheetFunction.Large(rngTestArea, i)
        myResult = myResult & "Rank " & i & " is " & j & vbCr
    Next i
    
    MsgBox myResult
End Sub

 

[عاطف عبد العليم محمد]

اخي ياسر وفقك الله 

لم يحدث اي تغيير في النتيجة  لعلك لم تطلع على الملف المرفق وبه توضيح المطلوب

 

[ياسر خليل أبو البراء]

في الخلية J7 ضع المعادلة التالية واضغط بعدها Ctrl + Shift + Enter لأنها معادلة صفيف ، ثم قم بسحبها لأسفل

=MAX(IF($F$6:$F$10000=I7,$G$6:$G$10000))

 

[سليم حاصبيا]

جرب هذا الملف

 

Super_5 Salim.rar

[عاطف عبد العليم محمد]

أخي / سليم حاصبيا

جزاك الله خيرا  وحل ممتاز

وسأحاول تعديل بسيط فيه بتغيير الورقة التي يتم فيها العمليات لان الورقة الاصلية  الاعمدة التي استخدمتها للحل غير خالية بل مستخدمة 

فالورقة الاولى سيكون فيها البيانات فقط  ( عمود f , g  فقط ) 

والورقة الثانية سيكون فيها العمليات واظهار النتائج

وفقك الله 

 أخي / ياسر خليل أبو البراء

جزاك الله خيرا  

وأظن  ان الحل الذي تفضلت به يظهر قيمة واحدة فقط 

وقد تفضل اخونا سليم بحل 

فلكما جزيل الشكر ، وفقما الله