ترتيب العشرة الاوائل

[inas aly]

كل عام وانتم بخير

انا من اشد المعجبين بهذا المنتدى وخاصه

المعطاء للعلم من الناس

ولكن للضروره احكام في عدم الدخول للمنتدى الا قليلا .....

ارجو تحويل صفحة اوائل الطلبه هذا العمل العظيم الموجود في المنتدى الى نفس العمل بس بالكود

ويكون الكود بالفكره السهله الصائبه للاستاذ خبور

ان يتم تغيير اي شيء في صدر الكود للسهوله

الخالدي.rar

[inas aly]

ندعو الله ان يتفضل علينا اهل العلم

[mhrrd]

ندعو الله ان يتفضل علينا اهل العلم

دعوه حلوة يارب استجب الدعاء

[عبدالله باقشير]

السلام عليكم

انا عملت دالتين من سابق لهذا الغرض

الم تطلعي عليها ؟؟

دالة الترتيب بتجاوز المتكررات

ودالة ارجاع قيمة في نطاق حسب الترتيب لقيم في عمود معين

يمكنك الربط بينهم في هذا العمل

خبور خير

MyDocument.rar

[mhrrd]

الحمد لله الحمد لله

ان استجاب الله للدعاء

وشرفنا استاذنا خبور

ولكن يا اخي

نريده كودا بعيدا عن المعادلات

[inas aly]

السلام عليكم

انا عملت دالتين من سابق لهذا الغرض

الم تطلعي عليها ؟؟

دالة الترتيب بتجاوز المتكررات

ودالة ارجاع قيمة في نطاق حسب الترتيب لقيم في عمود معين

يمكنك الربط بينهم في هذا العمل

خبور خير

جزاك الله عنا خيرا أستاذنا الفاضل

ولكني لااعرف كيف اربطهم

فهل تتكرم بربطهم

[عبدالله باقشير]

السلام عليكم

لم اافهم كيف يعمل ملفك هذا

حتى اقوم بالتعديل عليه

معادلة جلب رقم الجلوس تعادل خمسة اسطر

خبور خير

[inas aly]

اعتبر استاذنا

ان جدول الاوائل ليس به اي معادلات

و كونها من الاول بطريقتك بكود

والف شكر

[عبدالله باقشير]

السلام عليكم

اعتبر استاذنا

ان جدول الاوائل ليس به اي معادلات

و كونها من الاول بطريقتك بكود

والف شكر

عملتها في ملف آخر

خبور خير

ترتيب العشرة الطلاب الاوائل.rar

[inas aly]

الف شكر

اسناذي العطيم

ارجو ان تدمجها في المرفق الموجود بالمشاركه 1

يشرط ان تظل القوائم المسدله في الصفحه لانها تاتي بالاوائل في مواد مختلفه وكذا الفصل الدراسي 1 والفصل الدراسي 2

المعادلات فيها سليمة

ولكن عند تغيير موقع اعمدة الشيت لااستطيع التعامل مع هذه المعادلات الطويله وتاتي بنتائج خطأ

فالكود بطريقتك ان البيانات المطلوب تغييرها تطل في اول الكود فكره الله يعطيك العافيه

[قصي]

المعادلات فيها سليمة

ولكن عند تغيير موقع اعمدة الشيت لااستطيع التعامل مع هذه المعادلات الطويله وتاتي بنتائج خطأ

فالكود بطريقتك ان البيانات المطلوب تغييرها تطل في اول الكود فكره الله يعطيك العافيه

حاولت كذا مرة بعد تغيير موقع بعض الاعمدة ولم تات معي ابدا

نفسنا

قي استخراج اوائل الطلبه في كل المواد والمجموع العام

زي الفكره اللي موجوده بس بطريقه اسهل

الله ينعم عليك

[عبدالله باقشير]

السلام عليكم

نفذت المطلوب بالكود بتوفيق من الله بعد جهد متواصل

الان الملف يعمل بسهولة

ولكن لو يتم ابعاد الاعمدة الغير مستخدمة ويعيد تنظيم الورقة

بشكل انيق يامكاننا تحديد المطلوبات في بداية الكود

المهم الان وصلنا الى الحل وابعاد تلك المعادلات الطويلة

وقد استخدمت الاعمدة AA:AD

فارجوا عدم استخدامها

Option Explicit


Sub Kh_Top_ten_students()

Dim R As Integer, RR As Integer, XX As Integer

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Range("D8:J17").ClearContents

With Range("data1")

    For R = 1 To .Rows.Count

        If .Cells(R, 2) <> 0 Then

            If .Cells(R, [R8]) >= 50 Then

                If [K5] = [V9] Then

                    RR = RR + 1

                    KH_Copy_value R, RR

                Else

                    If [K5] = .Cells(R, 13) Then

                        RR = RR + 1

                        KH_Copy_value R, RR

                    End If

                End If

            End If

        End If

    Next R

End With

Range(Range("AA1:AD1"), Range("AA1:AD1").End(xlDown)).Sort Range("AC1"), xlDescending


For XX = 1 To 10

    If Not IsEmpty(Range("AA" & XX)) Then

        Range("D" & XX + 7).Resize(1, 3).Value = Range("AA" & XX).Resize(1, 3).Value

        Range("G" & XX + 7).Formula = "=Kh_RANK(RC6,R8C6:R17C6,""مكرر"")"

        Range("I" & XX + 7) = Range("AD" & XX)

    End If

Next

Range("AA1:AD1000").Clear

Application.Calculation = xlCalculationAutomatic

Application.ScreenUpdating = True

End Sub

Function KH_Copy_value(iR As Integer, iRR As Integer)

With Range("data1")

    Cells(iRR, "AA") = .Cells(iR, 2)

    Cells(iRR, "AB") = .Cells(iR, 3)

    Cells(iRR, "AC") = .Cells(iR, [R8])

    Cells(iRR, "AD") = "'" & .Cells(iR, 13)

End With

End Function

تفضلوا المرفق

ترتيب العشرة الاوائل بالكود.rar

[محمدي عبد السميع]

وعليكم السلام ورحمة الله وبركاته اللهم اجعل كل دقيقه قضيتها في اخراج هذا العمل الى النور ايها الاخ الكبير المقام تكون لك نورا في الدنيا والآخره .... يارب

[محمدي عبد السميع]

لماذا تعطل عندي ادوات التنسيقات بالمنتدى لااستطيع ان الون الخط او اكبره او استخدم نوع خط لماذا

[inas aly]

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

اللهم اجعل كل دقيقه قضيتها في اخراج هذا العمل الى النور ايها الاخ الكبير المقام تكون لك نورا في الدنيا والآخره .... يارب

آمين ..آمين ..آمين ..آمين ..

[inas aly]

ولكن لو يتم ابعاد الاعمدة الغير مستخدمة ويعيد تنظيم الورقة

بشكل انيق يامكاننا تحديد المطلوبات في بداية الكود)))

الاعمدة الغير مستعمله قد تفيد مع بعض الاخوة في نوعية مدارس تانيه

ولكن اذا كان ولابد لتحديد المطلوبات في بداية الكود

فاهلا بالتغيير وازالة الاعمدة الزائده

[inas aly]

الله يعطيك الف الف الف عافيه

[قصي]

راائع .. لالااكثر من راائع

حقا الله يعطيك العافيه

على كده لو فيه اي زياده في الاعمده

في ملف اخر

ننسخ ورقة الأوائل ونغير في موقع الاعمده ويعمل الكود تمام

اليس كذلك استاذنا الكبير

[عبد الفتاح كيرة]

شكرا لأستاذنا

ملف كنا ننتظره منذ زمن

لمعضلة العشرة الأوائل

[الخالدي]

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

عمل كبير من استاذ كبير

تحياتي

[الخالدي]

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

عمل استاذنا خبور خير سهل الكثير وبسط الحلول

ومع ذلك اوضح الاتي:

ولكن عند تغيير موقع اعمدة الشيت لااستطيع التعامل مع هذه المعادلات الطويله وتاتي بنتائج خطأ

كان من دواعي اطالة المعادلة تسهيل تغير مواقع الاعمدة , فتغير الاعمدة لا يكون من داخل المعادلة بل يكون بكتابة رقم العمود في الخلايا التي بجانب الجدول.

مثلا:عمود المجموع لمادة العلوم هو رقم (60) للفصل الدراسي الاول ورقم(68) للفصل الدراسي الثاني , فعند تغير موقع هذا العمود يتم تعديل هذا الرقم.

تحياتي

[inas aly]

كل عام وانتم بخير

انا من اشد المعجبين بهذا المنتدى وخاصه

المعطاء للعلم من الناس

ولكن للضروره احكام في عدم الدخول للمنتدى الا قليلا .....

ارجو تحويل صفحة اوائل الطلبه هذا العمل العظيم الموجود في المنتدى الى نفس العمل بس بالكود ))))))))

انا لااتكر فضلك او فضل اهل المنتدى

فقد وصفت ملفك بالعمل العظيم وتركت اسمك الكريم على الملف

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

ولكن زيادة الخير خيرين

ومشاركة الاخ خبور حتما ستفيد

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

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

[علي فاهم]

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

اللهم اجعل كل دقيقه قضيتها في اخراج هذا العمل الى النور ايها الاخ الكبير المقام تكون لك نورا في الدنيا والآخره .... يارب

يارب يارب يارب يارب يارب يارب يارب

[inas aly]

الف شكر استاذ خبور

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

[أبو العقاب]

ما شاء الله

عمل في غاية الروعة