اريد كود يقوم بترتيب الطلاب حسب المجموع من الاول حتى العاشر شرط ان يكون الترتيب كتابةً مثلاً الطالب صاحب اعلى مجموع يكتب عليه الاول الى العاشر وفي حالة الاشتراك في نفس المجموع مثلاً كان تقول الاول م "م اختصار الى مشترك " ، وايضاً في حالة اشتراك طالبين في مجموع واحد مثلاً الاول مشترك والثاني مشترك وهكذا بعد ذلك ان يكون باقي الترتيب بالارقام مثلاً 11 و 12 ........ وهكذا الى اخر طالب
وجزاكم الله خيراً
إستخدم هذا الإجراء مبدئياً
Public Function Stage(strNumber)
On Error Resume Next
Select Case (strNumber)
Case Is = 0
Stage = " "
Case Is = 1
Stage = "الأول"
Case Is = 2
Stage = "الثاني"
Case Is = 3
Stage = "الثالث"
Case Is = 4
Stage = "الرابع"
Case Is = 5
Stage = "الخامس"
Case Is = 6
Stage = "السادس"
Case Is = 7
Stage = "السابع"
Case Is = 8
Stage = "الثامن"
Case Is = 9
Stage = "التاسع"
Case Is = 10
Stage = "العاشر"
End Select
End Function
على أن يكون ( strNumber ) هو حقل الترقيم للتقرير
تم تعديل هذه المشاركة بواسطة karramli في 3 فبراير 2009 في 01:02