اذهب الي المحتوي
أوفيسنا

اضافه مفيده لكود العشره الأوائل

ناصر سعيد

بواسطه ناصر سعيد
في منتدى الاكسيل Excel

 مشاركة

الردود الموصى بها

ناصر سعيد

ناصر سعيد

قام بنشر
قام بنشر

هذا الملف به مرفق

والمرفق به كود لذكر الاول والاول مكرر وهكذا

ارجو طهور بعد الاول والاول مكررإن وجد

الثاني وليس الثالث

 

على سبيل المثال في المرفق المفروض يطهر بدل العاشر الثاني  ولكم الشكر

والمرفق يوضح اكثر

 

اوائل.rar

ناصر سعيد

ناصر سعيد

قام بنشر
  • الكاتب
قام بنشر 

Function OrdinalNum(ByVal Num As Variant, Optional ByVal Sex As Byte = 0) As String
  Const Male = 0
  Const Female = 1
  Dim Sings(1 To 11) As String
  Dim Tens(2 To 10) As String
  Dim Fem As String
  
  On Error Resume Next
  
  OrdinalNum = Num
  Num = CDbl(Num)
  If Num < 1 Or Num > 100 Or Num <> CLng(Num) Then
    Exit Function
  End If
  
  Sings(1) = "الأول"
  Sings(2) = "الثاني"
  Sings(3) = "الثالث"
  Sings(4) = "الرابع"
  Sings(5) = "الخامس"
  Sings(6) = "السادس"
  Sings(7) = "السابع"
  Sings(8) = "الثامن"
  Sings(9) = "التاسع"
  Sings(10) = "العاشر"
  Sings(11) = "الحادي"
  
  Tens(2) = "العشرون"
  Tens(3) = "الثلاثون"
  Tens(4) = "الأربعون"
  Tens(5) = "الخمسون"
  Tens(6) = "الستون"
  Tens(7) = "السبعون"
  Tens(8) = "الثمانون"
  Tens(9) = "التسعون"
  Tens(10) = "المائة"
  
  If Sex > Female Then Sex = Male
  Fem = IIf(Sex = 0, "", "ة")
  
  Select Case Num
    Case 1:        OrdinalNum = Sings(Num) & IIf(Sex = Male, "", "ى")
    Case 2 To 10:  OrdinalNum = Sings(Num) & Fem
    Case 11:       OrdinalNum = Sings(Num) & Fem & " عشر" & Fem
    Case 12 To 19: OrdinalNum = Sings(Num Mod 10) & Fem & " عشر" & Fem
    Case Else
      Select Case Num Mod 10
        Case 0:    OrdinalNum = Tens(CLng(Num / 10))
        Case 1:    OrdinalNum = Sings(11) & Fem & " و" & Tens(Fix(Num / 10))
        Case Else: OrdinalNum = Sings(Num Mod 10) & Fem & " و" & Tens(Fix(Num / 10))
      End Select
  End Select
End Function

هذا هو الكود المطلوب التغيير فيه

ناصر سعيد

ناصر سعيد

قام بنشر
  • الكاتب
قام بنشر

وهذا هو كود الفرز

Sub Macro1()
'
    Range("BB6:BE191").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range( _
        "BC6:BC191"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range( _
        "BD6:BD191"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range( _
        "BB6:BB191"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("BB5:BE191")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("BB6").Select
End Sub
الشهابي

الشهابي

قام بنشر
قام بنشر (معدل)

أخي العزيز /nasersaeed

هناك دالة مستحدثة لأستاذنا الكبير عماد الحسامي 

وهي موجود ضمن المواضيع المثبتة وقدرفعتها على هذا الموصوع طلبا لأحد الإخوة الكرام 

http://www.officena.net/ib/index.php?showtopic=33649

وكذلك هذا كود لأستاد قدير من موقع الفريق العربي للبرمجة وهو عضو هنا ولكن له مشاركة واحدة فقط لا أدري ما السبب

وقد عملها لي حسب طلب قبل ما اتعرف على هذا المنتدى وهو أخ من مصر المحروسة  يدعى (sleve) بارك الله فيه وأهل مصر

وهذا هو الكود يتم عمل الترتيب من خلال زر وقد عدلت فيه ليعطي ترتيب حتى (500) تلميذ إن شاء الله يلبي طلبك 

أهم نقطة في الكود هي هذه عدل فيه المدى والورقة التي سيتم في الترتيب ومدى الدرجات  ويعطيك الترتيب رقما وكتابة 

'********************  هنا أهم نقطة حيث يتم تحديد النطاقات التى سيتم العمل عليها ***********************
'********************                                                          ***********************
'*****************************************************************************************************

Set vStdRange = Worksheets("شعب المسودة").Range("AW16:AW515")
Set vRnkRange = Worksheets("شعب المسودة").Range("AY16:AY515")
Set vRnkRangeNum = Worksheets("شعب المسودة").Range("AZ16:AZ515")

'*****************************************************************************************************
'*****************************************************************************************************
'*****************************************************************************************************

 

Option Explicit
Option Base 1


Sub StudentRank_1()

'
Dim vArrDgree(500)                 ' المصفوفة  تحتوى على الدرجات
Dim vArrDgreeOk(500, 3)            ' المصفوفة التى تحتوى على الترتيب
Dim vStdRange As Range            'النطاق الأصل
Dim vRnkRange As Range            'النطاق الهدف للترتيب الحرفى
Dim vRnkRangeNum As Range         'النطاق الهدف للترتيب الرقمى
Dim vStdCount                     'عدد الخلايا التى تحتوى على درجات (عدد الطلاب)
Dim vStrtCell                     'الخلية التى سيبدأ عندها الترتيب
Dim vRnkNo As Integer             'الرقم المراد ترتيبه
Dim vRnkTxt As String             'الترتيب

Dim N1 As Integer, N2 As Integer, N As Integer      'لتحديد المتكرر فى المصفوفة
Dim i, C, V, T, x                                   'للاستخدام فى عمليات التكرار

'*****************************************************************************************************
'********************                                                          ***********************
'********************  هنا أهم نقطة حيث يتم تحديد النطاقات التى سيتم العمل عليها ***********************
'********************                                                          ***********************
'*****************************************************************************************************

Set vStdRange = Worksheets("شعب المسودة").Range("AW16:AW515")
Set vRnkRange = Worksheets("شعب المسودة").Range("AY16:AY515")
Set vRnkRangeNum = Worksheets("شعب المسودة").Range("AZ16:AZ515")

'*****************************************************************************************************
'*****************************************************************************************************
'*****************************************************************************************************



'vStdCount = WorksheetFunction.CountA(vStdRange)            'فى حالة عدم وجود أى قيمة فى الخلية
vStdCount = WorksheetFunction.CountIf(vStdRange, ">0")      'فى حالة احتواء الخلية على قيم صفرية

For i = 1 To vStdCount
    vArrDgree(i) = WorksheetFunction.Large(vStdRange, i)
Next i
'---------\* Find The position of a value in array
'Range("L4").Value = WorksheetFunction.Match(415, vArrDgree)
'---------/*

vRnkRange.ClearContents
vRnkRangeNum.ClearContents

i = 1                                  'The first Cell
T = 0                                  ' The number of Repeats
For Each C In vArrDgree
If i = 1 Then
    vArrDgreeOk(i, 1) = C
    vArrDgreeOk(i, 2) = NumRank(i)
    vArrDgreeOk(i, 3) = i
'    vRnkRange.Cells(I) = vArrDgreeOk(I, 2)
'    vRnkRangeNum.Cells(I) = vArrDgreeOk(I, 3)
End If
    If i <> 1 Then
        If vArrDgree(i) = vArrDgree(i - 1) Then
            T = T + 1
            V = NumRank(i - T) & " م"
            vArrDgreeOk(i, 1) = C
            vArrDgreeOk(i, 2) = V
            vArrDgreeOk(i, 3) = i - T
            
            vArrDgreeOk(i - 1, 2) = V
            vArrDgreeOk(i - 1, 3) = i - T
           
'            vRnkRange.Cells(I) = vArrDgreeOk(I, 2)
'            vRnkRangeNum.Cells(I) = vArrDgreeOk(I, 3)
 
'            vRnkRange.Cells(I - 1) = vArrDgreeOk(I, 2)
'            vRnkRangeNum.Cells(I - 1) = vArrDgreeOk(I, 3)
            
                 GoTo Nooo
        End If
    If vArrDgree(i) = 0 Then GoTo Ended
    vArrDgreeOk(i, 1) = C
    vArrDgreeOk(i, 2) = NumRank(i - T)
    vArrDgreeOk(i, 3) = i - T
    
'    vRnkRange.Cells(I) = vArrDgreeOk(I, 2)
'    vRnkRangeNum.Cells(I) = vArrDgreeOk(I, 3)
    End If
    
Nooo:
    
    i = i + 1
Next C

Ended:
'---------\* Find The position of a value in array
'Range("N3").Value = WorksheetFunction.Index(vArrDgreeOk, 1, 2)
'---------/*
i = 1
For Each C In vStdRange

'T = C.Address(0, 0)                                                             ' ---->  B4
T = C.Row                                                                         ' ---->  4

'vRnkNo = WorksheetFunction.Index(vArrDgreeOk, I, 1) 'Find the Degree            ' ---->i=1  415
'vRnkTxt = WorksheetFunction.Index(vArrDgreeOk, I, 2) 'Find the Order            ' ---->i=1  الأول

If C = 0 Then End
V = WorksheetFunction.VLookup(C, vArrDgreeOk(), 2, 0)
x = WorksheetFunction.VLookup(C, vArrDgreeOk(), 3, 0)

vRnkRange.Cells(i, 1).Value = V
vRnkRangeNum.Cells(i, 1).Value = x

i = i + 1
Next C


End Sub


Function NumRank(vNumTxt) As String


'*
'تجهيز مصفوفة من 50 متغير عبارة عن الترتيب المراد إدخاله
Dim vRankTxt(500)
'إسناد المتغيرات للمصفوفة
vRankTxt(1) = "الأول"
vRankTxt(2) = "الثانى"
vRankTxt(3) = "الثالث"
vRankTxt(4) = "الرابع"
vRankTxt(5) = "الخامس"
vRankTxt(6) = "السادس"
vRankTxt(7) = "السابع"
vRankTxt(8) = "الثامن"
vRankTxt(9) = "التاسع"
vRankTxt(10) = "العاشر"
vRankTxt(11) = "الحادى عشر"
vRankTxt(12) = "الثانى عشر"
vRankTxt(13) = "الثالث عشر"
vRankTxt(14) = "الرابع عشر"
vRankTxt(15) = "الخامس عشر"
vRankTxt(16) = "السادس عشر"
vRankTxt(17) = "السابع عشر"
vRankTxt(18) = "الثامن عشر"
vRankTxt(19) = "التاسع عشر"
vRankTxt(20) = "العشرون"
vRankTxt(21) = "الحادى والعشرون"
vRankTxt(22) = "الثانى والعشرون"
vRankTxt(23) = "الثالث والعشرون"
vRankTxt(24) = "الرابع والعشرون"
vRankTxt(25) = "الخامس والعشرون"
vRankTxt(26) = "السادس والعشرون"
vRankTxt(27) = "السابع والعشرون"
vRankTxt(28) = "الثامن والعشرون"
vRankTxt(29) = "التاسع والعشرون"
vRankTxt(30) = "الثلاثون"
vRankTxt(31) = "الحادى والثلاثون"
vRankTxt(32) = "الثانى والثلاثون"
vRankTxt(33) = "الثالث والثلاثون"
vRankTxt(34) = "الرابع والثلاثون"
vRankTxt(35) = "الخامس والثلاثون"
vRankTxt(36) = "السادس والثلاثون"
vRankTxt(37) = "السابع والثلاثون"
vRankTxt(38) = "الثامن والثلاثون"
vRankTxt(39) = "التاسع والثلاثون"
vRankTxt(40) = "الأربعون"
vRankTxt(41) = "الحادى والأربعون"
vRankTxt(42) = "الثانى والأربعون"
vRankTxt(43) = "الثالث والأربعون"
vRankTxt(44) = "الرابع والأربعون"
vRankTxt(45) = "الخامس والأربعون"
vRankTxt(46) = "السادس والأربعون"
vRankTxt(47) = "السابع والأربعون"
vRankTxt(48) = "الثامن والأربعون"
vRankTxt(49) = "التاسع والأربعون"
vRankTxt(50) = "الخمسون"
vRankTxt(51) = "الحادى والخمسون"
vRankTxt(52) = "الثانى والخمسون"
vRankTxt(53) = "الثالث والخمسون"
vRankTxt(54) = "الرابع والخمسون"
vRankTxt(55) = "الخامس والخمسون"
vRankTxt(56) = "السادس والخمسون"
vRankTxt(57) = "السابع والخمسون"
vRankTxt(58) = "الثامن والخمسون"
vRankTxt(59) = "التاسع والخمسون"
vRankTxt(60) = "الستون"
vRankTxt(61) = "الحادى والستون"
vRankTxt(62) = "الثانى والستون"
vRankTxt(63) = "الثالث والستون"
vRankTxt(64) = "الرابع والستون"
vRankTxt(65) = "الخامس والستون"
vRankTxt(66) = "السادس والستون"
vRankTxt(67) = "السابع والستون"
vRankTxt(68) = "الثامن والستون"
vRankTxt(69) = "التاسع والستون"
vRankTxt(70) = "السبعون"
vRankTxt(71) = "الحادى والسبعون"
vRankTxt(72) = "الثانى والسبعون"
vRankTxt(73) = "الثالث والسبعون"
vRankTxt(74) = "الرابع والسبعون"
vRankTxt(75) = "الخامس والسبعون"
vRankTxt(76) = "السادس والسبعون"
vRankTxt(77) = "السابع والسبعون"
vRankTxt(78) = "الثامن والسبعون"
vRankTxt(79) = "التاسع والسبعون"
vRankTxt(80) = "الثمانون"
vRankTxt(81) = "الحادى والثمانون"
vRankTxt(82) = "الثانى والثمانون"
vRankTxt(83) = "الثالث والثمانون"
vRankTxt(84) = "الرابع والثمانون"
vRankTxt(85) = "الخامس والثمانون"
vRankTxt(86) = "السادس والثمانون"
vRankTxt(87) = "السابع والثمانون"
vRankTxt(88) = "الثامن والثمانون"
vRankTxt(89) = "التاسع والثمانون"
vRankTxt(90) = "التسعون"
vRankTxt(91) = "الحادى والتسعون"
vRankTxt(92) = "الثانى والتسعون"
vRankTxt(93) = "الثالث والتسعون"
vRankTxt(94) = "الرابع والتسعون"
vRankTxt(95) = "الخامس والتسعون"
vRankTxt(96) = "السادس والتسعون"
vRankTxt(97) = "السابع والتسعون"
vRankTxt(98) = "الثامن والتسعون"
vRankTxt(99) = "التاسع والتسعون"
vRankTxt(100) = "المائة"
vRankTxt(101) = "المائة وواحد"
vRankTxt(102) = "المائة واثنان"
vRankTxt(103) = "المائة وثلاثة"
vRankTxt(104) = "المائة وأربعة"
vRankTxt(105) = "المائة وخمسة"
vRankTxt(106) = "المائة وستة"
vRankTxt(107) = "المائة وسبعة"
vRankTxt(108) = "المائة وثمانية"
vRankTxt(109) = "المائة وتسعة"
vRankTxt(110) = "المائة وعشرة"
vRankTxt(111) = "المائة وأحد عشر"
vRankTxt(112) = "المائة واثناعشر"
vRankTxt(113) = "المائة وثلاثة عشر"
vRankTxt(114) = "المائة وأربعة عشر"
vRankTxt(115) = "المائة وخمسة عشر"
vRankTxt(116) = "المائة وستة عشر"
vRankTxt(117) = "المائة وسبعة عشر"
vRankTxt(118) = "المائة وثمانية عشر"
vRankTxt(119) = "المائة وتسعة عشر"
vRankTxt(120) = "المائة والعشرون"
vRankTxt(121) = "المائة والحادى والعشرون"
vRankTxt(122) = "المائة والثانى والعشرون"
vRankTxt(123) = "المائة والثالث والعشرون"
vRankTxt(124) = "المائة والرابع والعشرون"
vRankTxt(125) = "المائة والخامس والعشرون"
vRankTxt(126) = "المائة والسادس والعشرون"
vRankTxt(127) = "المائة والسابع والعشرون"
vRankTxt(128) = "المائة والثامن والعشرون"
vRankTxt(129) = "المائة والتاسع والعشرون"
vRankTxt(130) = "المائة والثلاثون"
vRankTxt(131) = "المائة والحادى والثلاثون"
vRankTxt(132) = "المائة والثانى والثلاثون"
vRankTxt(133) = "المائة والثالث والثلاثون"
vRankTxt(134) = "المائة والرابع والثلاثون"
vRankTxt(135) = "المائة والخامس والثلاثون"
vRankTxt(136) = "المائة والسادس والثلاثون"
vRankTxt(137) = "المائة والسابع والثلاثون"
vRankTxt(138) = "المائة والثامن والثلاثون"
vRankTxt(139) = "المائة والتاسع والثلاثون"
vRankTxt(140) = "المائة والأربعون"
vRankTxt(141) = "المائة والحادى والأربعون"
vRankTxt(142) = "المائة والثانى والأربعون"
vRankTxt(143) = "المائة والثالث والأربعون"
vRankTxt(144) = "المائة والرابع والأربعون"
vRankTxt(145) = "والمائة والخامس والأربعون"
vRankTxt(146) = "المائة والسادس والأربعون"
vRankTxt(147) = "المائة والسابع والأربعون"
vRankTxt(148) = "المائة والثامن والأربعون"
vRankTxt(149) = "المائة والتاسع والأربعون"
vRankTxt(150) = "المائة والخمسون"
vRankTxt(151) = "المائة والحادى والخمسون"
vRankTxt(152) = "المائة والثانى والخمسون"
vRankTxt(153) = "المائة والثالث والخمسون"
vRankTxt(154) = "المائة والرابع والخمسون"
vRankTxt(155) = "المائة والخامس والخمسون"
vRankTxt(156) = "المائة والسادس والخمسون"
vRankTxt(157) = "المائة والسابع والخمسون"
vRankTxt(158) = "المائة والثامن والخمسون"
vRankTxt(159) = "المائة والتاسع والخمسون"
vRankTxt(160) = "المائة والستون"
vRankTxt(161) = "المائة والحادى والستون"
vRankTxt(162) = "المائة والثانى والستون"
vRankTxt(163) = "المائة والثالث والستون"
vRankTxt(164) = "المائة والرابع والستون"
vRankTxt(165) = "المائة والخامس والستون"
vRankTxt(166) = "المائة والسادس والستون"
vRankTxt(167) = "المائة والسابع والستون"
vRankTxt(168) = "المائة والثامن والستون"
vRankTxt(169) = "المائة والتاسع والستون"
vRankTxt(170) = "المائة والسبعون"
vRankTxt(171) = "المائة والحادى والسبعون"
vRankTxt(172) = "المائة والثانى والسبعون"
vRankTxt(173) = "المائة والثالث والسبعون"
vRankTxt(174) = "المائة والرابع والسبعون"
vRankTxt(175) = "المائة والخامس والسبعون"
vRankTxt(176) = "المائة والسادس والسبعون"
vRankTxt(177) = "المائة والسابع والسبعون"
vRankTxt(178) = "المائة والثامن والسبعون"
vRankTxt(179) = "المائة والتاسع والسبعون"
vRankTxt(180) = "المائة والثمانون"
vRankTxt(181) = "المائة والحادى والثمانون"
vRankTxt(182) = "المائة والثانى والثمانون"
vRankTxt(183) = "المائة والثالث والثمانون"
vRankTxt(184) = "المائة والرابع والثمانون"
vRankTxt(185) = "المائة والخامس والثمانون"
vRankTxt(186) = "المائة والسادس والثمانون"
vRankTxt(187) = "المائة والسابع والثمانون"
vRankTxt(188) = "المائة والثامن والثمانون"
vRankTxt(189) = "المائة والتاسع والثمانون"
vRankTxt(190) = "المائة والتسعون"
vRankTxt(191) = "المائة والحادى والتسعون"
vRankTxt(192) = "المائة والثانى والتسعون"
vRankTxt(193) = "المائة والثالث والتسعون"
vRankTxt(194) = "المائة والرابع والتسعون"
vRankTxt(195) = "المائة والخامس والتسعون"
vRankTxt(196) = "المائة والسادس والتسعون"
vRankTxt(197) = "المائة والسابع والتسعون"
vRankTxt(198) = "المائة والثامن والتسعون"
vRankTxt(199) = "المائة والتاسع والتسعون"
vRankTxt(200) = "المائتان"
vRankTxt(201) = "المائتان وواحد"
vRankTxt(202) = "المائتان واثنان"
vRankTxt(203) = "المائتان وثلاثة"
vRankTxt(204) = "المائتان وأربعة"
vRankTxt(205) = "المائتان وخمسة"
vRankTxt(206) = "المائتان وستة"
vRankTxt(207) = "المائتان وسبعة"
vRankTxt(208) = "المائتان وثمانية"
vRankTxt(209) = "المائتان وتسعة"
vRankTxt(210) = "المائتان وعشرة"
vRankTxt(211) = "المائتان وأحد عشر"
vRankTxt(212) = "المائتان واثناعشر"
vRankTxt(213) = "المائتان وثلاثة عشر"
vRankTxt(214) = "المائتان وأربعة عشر"
vRankTxt(215) = "المائتان وخمسة عشر"
vRankTxt(216) = "المائتان وستة عشر"
vRankTxt(217) = "المائتان وسبعة عشر"
vRankTxt(218) = "المائتان وثمانية عشر"
vRankTxt(219) = "المائتان وتسعة عشر"
vRankTxt(220) = "المائتان والعشرون"
vRankTxt(221) = "المائتان والحادى والعشرون"
vRankTxt(222) = "المائتان والثانى والعشرون"
vRankTxt(223) = "المائتان والثالث والعشرون"
vRankTxt(224) = "المائتان والرابع والعشرون"
vRankTxt(225) = "المائتان والخامس والعشرون"
vRankTxt(226) = "المائتان والسادس والعشرون"
vRankTxt(227) = "المائتان والسابع والعشرون"
vRankTxt(228) = "المائتان والثامن والعشرون"
vRankTxt(229) = "المائتان والتاسع والعشرون"
vRankTxt(230) = "المائتان والثلاثون"
vRankTxt(231) = "المائتان والحادى والثلاثون"
vRankTxt(232) = "المائتان والثانى والثلاثون"
vRankTxt(233) = "المائتان والثالث والثلاثون"
vRankTxt(234) = "المائتان والرابع والثلاثون"
vRankTxt(235) = "المائتان والخامس والثلاثون"
vRankTxt(236) = "المائتان والسادس والثلاثون"
vRankTxt(237) = "المائتان والسابع والثلاثون"
vRankTxt(238) = "المائتان والثامن والثلاثون"
vRankTxt(239) = "المائتان والتاسع والثلاثون"
vRankTxt(240) = "المائتان والأربعون"
vRankTxt(241) = "المائتان والحادى والأربعون"
vRankTxt(242) = "المائتان والثانى والأربعون"
vRankTxt(243) = "المائتان والثالث والأربعون"
vRankTxt(244) = "المائتان والرابع والأربعون"
vRankTxt(245) = "المائتان والخامس والأربعون"
vRankTxt(246) = "المائتان والسادس والأربعون"
vRankTxt(247) = "المائتان والسابع والأربعون"
vRankTxt(248) = "المائتان والثامن والأربعون"
vRankTxt(249) = "المائتان والتاسع والأربعون"
vRankTxt(250) = "المائتان والخمسون"
vRankTxt(251) = "المائتان والحادى والخمسون"
vRankTxt(252) = "المائتان والثانى والخمسون"
vRankTxt(253) = "المائتان والثالث والخمسون"
vRankTxt(254) = "المائتان والرابع والخمسون"
vRankTxt(255) = "المائتان والخامس والخمسون"
vRankTxt(256) = "المائتان والسادس والخمسون"
vRankTxt(257) = "المائتان والسابع والخمسون"
vRankTxt(258) = "المائتان والثامن والخمسون"
vRankTxt(259) = "المائتان والتاسع والخمسون"
vRankTxt(260) = "المائتان والستون"
vRankTxt(261) = "المائتان والحادى والستون"
vRankTxt(262) = "المائتان والثانى والستون"
vRankTxt(263) = "المائتان والثالث والستون"
vRankTxt(264) = "المائتان والرابع والستون"
vRankTxt(265) = "المائتان والخامس والستون"
vRankTxt(266) = "المائتان والسادس والستون"
vRankTxt(267) = "المائتان والسابع والستون"
vRankTxt(268) = "المائتان والثامن والستون"
vRankTxt(269) = "المائتان والتاسع والستون"
vRankTxt(270) = "المائتان والسبعون"
vRankTxt(271) = "المائتان والحادى والسبعون"
vRankTxt(272) = "المائتان والثانى والسبعون"
vRankTxt(273) = "المائتان والثالث والسبعون"
vRankTxt(274) = "المائتان والرابع والسبعون"
vRankTxt(275) = "المائتان والخامس والسبعون"
vRankTxt(276) = "والمائتان والسادس والسبعون"
vRankTxt(277) = "المائتان والسابع والسبعون"
vRankTxt(278) = "المائتان والثامن والسبعون"
vRankTxt(279) = "المائتان والتاسع والسبعون"
vRankTxt(280) = "المائتان والثمانون"
vRankTxt(281) = "المائتان والحادى والثمانون"
vRankTxt(282) = "المائتان والثانى والثمانون"
vRankTxt(283) = "المائتان والثالث والثمانون"
vRankTxt(284) = "المائتان والرابع والثمانون"
vRankTxt(285) = "المائتان والخامس والثمانون"
vRankTxt(286) = "المائتان والسادس والثمانون"
vRankTxt(287) = "المائتان والسابع والثمانون"
vRankTxt(288) = "المائتان والثامن والثمانون"
vRankTxt(289) = "المائتان والتاسع والثمانون"
vRankTxt(290) = "المائتان والتسعون"
vRankTxt(291) = "المائتان والحادى والتسعون"
vRankTxt(292) = "المائتان والثانى والتسعون"
vRankTxt(293) = "المائتان والثالث والتسعون"
vRankTxt(294) = "المائتان والرابع والتسعون"
vRankTxt(295) = "المائتان والخامس والتسعون"
vRankTxt(296) = "المائتان والسادس والتسعون"
vRankTxt(297) = "االمائتان ولسابع والتسعون"
vRankTxt(298) = "المائتان والثامن والتسعون"
vRankTxt(299) = "المائتان والتاسع والتسعون"
vRankTxt(300) = "الثلاثمائة"
vRankTxt(301) = "الثلاثمائة وواحد"
vRankTxt(302) = "الثلاثمائة واثنان"
vRankTxt(303) = "الثلاثمائة وثلاثة"
vRankTxt(304) = "الثلاثمائة وأربعة"
vRankTxt(305) = "الثلاثمائة وخمسة"
vRankTxt(306) = "الثلاثمائة وستة"
vRankTxt(307) = "الثلاثمائة وسبعة"
vRankTxt(308) = "الثلاثمائة وثمانية"
vRankTxt(309) = "الثلاثمائة وتسعة"
vRankTxt(310) = "الثلاثمائة وعشرة"
vRankTxt(311) = "الثلاثمائة وأحد عشر"
vRankTxt(312) = "الثلاثمائة واثناعشر"
vRankTxt(313) = "الثلاثمائة وثلاثة عشر"
vRankTxt(314) = "الثلاثمائة وأربعة عشر"
vRankTxt(315) = "المائة وخمسة عشر"
vRankTxt(316) = "الثلاثمائة وستة عشر"
vRankTxt(317) = "الثلاثمائة وسبعة عشر"
vRankTxt(318) = "الثلاثمائة وثمانية عشر"
vRankTxt(319) = "الثلاثمائة وتسعة عشر"
vRankTxt(320) = "الثلاثمائة والعشرون"
vRankTxt(321) = "الثلاثمائة والحادى والعشرون"
vRankTxt(322) = "الثلاثمائة والثانى والعشرون"
vRankTxt(323) = "الثلاثمائة والثالث والعشرون"
vRankTxt(324) = "الثلاثمائة والرابع والعشرون"
vRankTxt(325) = "الثلاثمائة والخامس والعشرون"
vRankTxt(326) = "الثلاثمائة والسادس والعشرون"
vRankTxt(327) = "الثلاثمائة والسابع والعشرون"
vRankTxt(328) = "الثلاثمائة والثامن والعشرون"
vRankTxt(329) = "الثلاثمائة والتاسع والعشرون"
vRankTxt(330) = "الثلاثمائة والثلاثون"
vRankTxt(331) = "الثلاثمائة والحادى والثلاثون"
vRankTxt(332) = "الثلاثمائة والثانى والثلاثون"
vRankTxt(333) = "الثلاثمائة والثالث والثلاثون"
vRankTxt(334) = "الثلاثمائة والرابع والثلاثون"
vRankTxt(335) = "الثلاثمائة والخامس والثلاثون"
vRankTxt(336) = "الثلاثمائة والسادس والثلاثون"
vRankTxt(337) = "الثلاثمائة والسابع والثلاثون"
vRankTxt(338) = "الثلاثمائة والثامن والثلاثون"
vRankTxt(339) = "الثلاثمائة والتاسع والثلاثون"
vRankTxt(340) = "الثلاثمائة والأربعون"
vRankTxt(341) = "الثلاثمائة والحادى والأربعون"
vRankTxt(342) = "الثلاثمائة والثانى والأربعون"
vRankTxt(343) = "الثلاثمائة والثالث والأربعون"
vRankTxt(344) = "الثلاثمائة والرابع والأربعون"
vRankTxt(345) = "الثلاثمائة والخامس والأربعون"
vRankTxt(346) = "الثلاثمائة والسادس والأربعون"
vRankTxt(347) = "الثلاثمائة والسابع والأربعون"
vRankTxt(348) = "الثلاثمائة والثامن والأربعون"
vRankTxt(349) = "الثلاثمائة والتاسع والأربعون"
vRankTxt(350) = "الثلاثمائة والخمسون"
vRankTxt(351) = "الثلاثمائة والحادى والخمسون"
vRankTxt(352) = "الثلاثمائة والثانى والخمسون"
vRankTxt(353) = "الثلاثمائة والثالث والخمسون"
vRankTxt(354) = "الثلاثمائة والرابع والخمسون"
vRankTxt(355) = "الثلاثمائة والخامس والخمسون"
vRankTxt(356) = "الثلاثمائة والسادس والخمسون"
vRankTxt(357) = "الثلاثمائة والسابع والخمسون"
vRankTxt(358) = "الثلاثمائة والثامن والخمسون"
vRankTxt(359) = "الثلاثمائة والتاسع والخمسون"
vRankTxt(360) = "الثلاثمائة والستون"
vRankTxt(361) = "الثلاثمائة والحادى والستون"
vRankTxt(362) = "الثلاثمائة والثانى والستون"
vRankTxt(363) = "الثلاثمائة والثالث والستون"
vRankTxt(364) = "الثلاثمائة والرابع والستون"
vRankTxt(365) = "الثلاثمائة والخامس والستون"
vRankTxt(366) = "الثلاثمائة والسادس والستون"
vRankTxt(367) = "الثلاثمائة والسابع والستون"
vRankTxt(368) = "الثلاثمائة والثامن والستون"
vRankTxt(369) = "الثلاثمائة والتاسع والستون"
vRankTxt(370) = "الثلاثمائة والسبعون"
vRankTxt(371) = "الثلاثمائة والحادى والسبعون"
vRankTxt(372) = "الثلاثمائة والثانى والسبعون"
vRankTxt(373) = "الثلاثمائة والثالث والسبعون"
vRankTxt(374) = "الثلاثمائة والرابع والسبعون"
vRankTxt(375) = "الثلاثمائة والخامس والسبعون"
vRankTxt(376) = "الثلاثمائة والسادس والسبعون"
vRankTxt(377) = "الثلاثمائة والسابع والسبعون"
vRankTxt(378) = "الثلاثمائة والثامن والسبعون"
vRankTxt(379) = "الثلاثمائة والتاسع والسبعون"
vRankTxt(380) = "الثلاثمائة والثمانون"
vRankTxt(381) = "الثلاثمائة والحادى والثمانون"
vRankTxt(382) = "الثلاثمائة والثانى والثمانون"
vRankTxt(383) = "الثلاثمائة والثالث والثمانون"
vRankTxt(384) = "الثلاثمائة والرابع والثمانون"
vRankTxt(385) = "الثلاثمائة والخامس والثمانون"
vRankTxt(386) = "الثلاثمائة والسادس والثمانون"
vRankTxt(387) = "الثلاثمائة والسابع والثمانون"
vRankTxt(388) = "الثلاثمائة والثامن والثمانون"
vRankTxt(389) = "الثلاثمائة والتاسع والثمانون"
vRankTxt(390) = "الثلاثمائة والتسعون"
vRankTxt(391) = "الثلاثمائة والحادى والتسعون"
vRankTxt(392) = "الثلاثمائة والثانى والتسعون"
vRankTxt(393) = "الثلاثمائة والثالث والتسعون"
vRankTxt(394) = "الثلاثمائة والرابع والتسعون"
vRankTxt(395) = "الثلاثمائة والخامس والتسعون"
vRankTxt(396) = "الثلاثمائة والسادس والتسعون"
vRankTxt(397) = "الثلاثمائة والسابع والتسعون"
vRankTxt(398) = "الثلاثمائة والثامن والتسعون"
vRankTxt(399) = "الثلاثمائة والتاسع والتسعون"
vRankTxt(400) = "الأربعمائة"
vRankTxt(401) = "الأربعمائة وواحد"
vRankTxt(402) = "الأربعمائة واثنان"
vRankTxt(403) = "الأربعمائة وثلاثة"
vRankTxt(404) = "الأربعمائة وأربعة"
vRankTxt(405) = "الأربعمائة وخمسة"
vRankTxt(406) = "الأربعمائة وستة"
vRankTxt(407) = "الأربعمائة وسبعة"
vRankTxt(408) = "الأربعمائة وثمانية"
vRankTxt(409) = "الأربعمائة وتسعة"
vRankTxt(410) = "الأربعمائة وعشرة"
vRankTxt(411) = "الأربعمائة وأحد عشر"
vRankTxt(412) = "الأربعمائة واثناعشر"
vRankTxt(413) = "الأربعمائة وثلاثة عشر"
vRankTxt(414) = "الأربعمائة وأربعة عشر"
vRankTxt(415) = "الأربعمائة وخمسة عشر"
vRankTxt(416) = "الأربعمائة وستة عشر"
vRankTxt(417) = "الأربعمائة وسبعة عشر"
vRankTxt(418) = "الأربعمائة وثمانية عشر"
vRankTxt(419) = "الأربعمائة وتسعة عشر"
vRankTxt(420) = "الأربعمائة والعشرون"
vRankTxt(421) = "الأربعمائة والحادى والعشرون"
vRankTxt(422) = "الأربعمائة والثانى والعشرون"
vRankTxt(423) = "الأربعمائة والثالث والعشرون"
vRankTxt(424) = "الأربعمائة والرابع والعشرون"
vRankTxt(425) = "الأربعمائة والخامس والعشرون"
vRankTxt(426) = "الأربعمائة والسادس والعشرون"
vRankTxt(427) = "الأربعمائة والسابع والعشرون"
vRankTxt(428) = "الأربعمائة والثامن والعشرون"
vRankTxt(429) = "الأربعمائة والتاسع والعشرون"
vRankTxt(430) = "الأربعمائة والثلاثون"
vRankTxt(431) = "الأربعمائة والحادى والثلاثون"
vRankTxt(432) = "الأربعمائة والثانى والثلاثون"
vRankTxt(433) = "الأربعمائة والثالث والثلاثون"
vRankTxt(434) = "الأربعمائة والرابع والثلاثون"
vRankTxt(435) = "الأربعمائة والخامس والثلاثون"
vRankTxt(436) = "الأربعمائة والسادس والثلاثون"
vRankTxt(437) = "الأربعمائة والسابع والثلاثون"
vRankTxt(438) = "الأربعمائة والثامن والثلاثون"
vRankTxt(439) = "الأربعمائة والتاسع والثلاثون"
vRankTxt(440) = "الأربعمائة والأربعون"
vRankTxt(441) = "الأربعمائة والحادى والأربعون"
vRankTxt(442) = "الأربعمائة والثانى والأربعون"
vRankTxt(443) = "الأربعمائة والثالث والأربعون"
vRankTxt(444) = "الأربعمائة والرابع والأربعون"
vRankTxt(445) = "الأربعمائة والخامس والأربعون"
vRankTxt(446) = "الأربعمائة والسادس والأربعون"
vRankTxt(447) = "الأربعمائة والسابع والأربعون"
vRankTxt(448) = "الأربعمائة والثامن والأربعون"
vRankTxt(449) = "الأربعمائة والتاسع والأربعون"
vRankTxt(450) = "الأربعمائة والخمسون"
vRankTxt(451) = "الأربعمائة والحادى والخمسون"
vRankTxt(452) = "الأربعمائة والثانى والخمسون"
vRankTxt(453) = "الأربعمائة والثالث والخمسون"
vRankTxt(454) = "الأربعمائة والرابع والخمسون"
vRankTxt(455) = "الأربعمائة والخامس والخمسون"
vRankTxt(456) = "الأربعمائة والسادس والخمسون"
vRankTxt(457) = "الأربعمائة والسابع والخمسون"
vRankTxt(458) = "الأربعمائة والثامن والخمسون"
vRankTxt(459) = "الأربعمائة والتاسع والخمسون"
vRankTxt(460) = "الأربعمائة والستون"
vRankTxt(461) = "الأربعمائة والحادى والستون"
vRankTxt(462) = "الأربعمائة والثانى والستون"
vRankTxt(463) = "الأربعمائة والثالث والستون"
vRankTxt(464) = "الأربعمائة والرابع والستون"
vRankTxt(465) = "الأربعمائة والخامس والستون"
vRankTxt(466) = "الأربعمائة والسادس والستون"
vRankTxt(467) = "الأربعمائة والسابع والستون"
vRankTxt(468) = "الأربعمائة والثامن والستون"
vRankTxt(469) = "الأربعمائة والتاسع والستون"
vRankTxt(470) = "الأربعمائة والسبعون"
vRankTxt(471) = "الأربعمائة والحادى والسبعون"
vRankTxt(472) = "الأربعمائة والثانى والسبعون"
vRankTxt(473) = "الأربعمائة والثالث والسبعون"
vRankTxt(474) = "الأربعمائة والرابع والسبعون"
vRankTxt(475) = "الأربعمائة والخامس والسبعون"
vRankTxt(476) = "الأربعمائة والسادس والسبعون"
vRankTxt(477) = "الأربعمائة والسابع والسبعون"
vRankTxt(478) = "الأربعمائة والثامن والسبعون"
vRankTxt(479) = "الأربعمائة والتاسع والسبعون"
vRankTxt(480) = "الأربعمائة والثمانون"
vRankTxt(481) = "الأربعمائة والحادى والثمانون"
vRankTxt(482) = "الأربعمائة والثانى والثمانون"
vRankTxt(483) = "الأربعمائة والثالث والثمانون"
vRankTxt(484) = "الأربعمائة والرابع والثمانون"
vRankTxt(485) = "الأربعمائة والخامس والثمانون"
vRankTxt(486) = "الأربعمائة والسادس والثمانون"
vRankTxt(487) = "الأربعمائة والسابع والثمانون"
vRankTxt(488) = "الأربعمائة والثامن والثمانون"
vRankTxt(489) = "الأربعمائة والتاسع والثمانون"
vRankTxt(490) = "الأربعمائة والتسعون"
vRankTxt(491) = "الأربعمائة والحادى والتسعون"
vRankTxt(492) = "الأربعمائة والثانى والتسعون"
vRankTxt(493) = "الأربعمائة والثالث والتسعون"
vRankTxt(494) = "الأربعمائة والرابع والتسعون"
vRankTxt(495) = "الأربعمائة والخامس والتسعون"
vRankTxt(496) = "الأربعمائة والسادس والتسعون"
vRankTxt(497) = "الأربعمائة والسابع والتسعون"
vRankTxt(498) = "الأربعمائة والثامن والتسعون"
vRankTxt(499) = "الأربعمائة والتاسع والتسعون"
vRankTxt(500) = "الخمسمائة"

'**

If vNumTxt > 500 Then GoTo NOTHERE
NumRank = vRankTxt(vNumTxt)
NOTHERE:

End Function
تم تعديل بواسطه الشهابي
أبو محمد عباس

أبو محمد عباس

قام بنشر
قام بنشر

السلام عليكم

الاستاذ الشهابي جزاك الله خيرا وبعد اذنك

اخي ناصر سعيد اليك الملف وفيه الدالة التي بعثها الاستاذ الشهابي وهي دالة الاستاذ الكبير الحسامي جزاه الله خيرا وعدلت فيها الترتيب حتى المائة

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

اوائلTOPTEN.rar

ناصر سعيد

ناصر سعيد

قام بنشر
  • الكاتب
قام بنشر

اولا اشكركم كثيرا بارك الله لكم

الكود رائع ولكنه لايؤدي المطلوب  ... لماذا ؟

لأننا نريد أن

يتم احنساب الأوائل على اساس المجموع فإن تم التساوي يكون بالأصغر سنا وإن تساووا فبالترتيب الهجائي

الكود الرائع الذي يؤدي الغرض هو كود الاستاذ القدير عبد الله باقشير  ولكنه لايأتي بالعشر مراكز الأولى

وليس العشر طلاب

ناصر سعيد

ناصر سعيد

قام بنشر
  • الكاتب
قام بنشر

أستاذي الفاضل عبدالله باقشير ( خبور خير ) المحترم

كلما حاولت البحث عن دالة للعشر الأوائل لم اتوفق وإن وجدتها وجدتها لا تحسب المتكرر وإن حسبت المكرر أسقطت الرقم الضي بعده فمثلا إ

ربنا يرزقنا بأحد الأفذاذ

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

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

قام بنشر
قام بنشر

السلام عليكم

اخي الفاضل ناصر سعيد  --حفظكم الله

لقد راسلني اخي محمدي بشان هذا الطلب

سنقوم بما يتناسب مع الطلب

فقد بدأت المحاولة في التعديل ولكنه يحتاج تركيز

واعادة دراسة الكود السابق

علشان نعرف اين سيتم التعديل بالضبط

او نعيد صياغة الكود من جديد

 

 تقبلوا تحياتي وشكري

أبو محمد عباس

أبو محمد عباس

قام بنشر
قام بنشر

السلام عليكم

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

زادك الله علما ومعرفة ونفع بعلمك عباد الرحمن وجعل جميع اعمالك في ميزان حسناتك

بارك الله فيك واعلى مقامك في الدنيا والاخرة

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

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

قام بنشر
قام بنشر

السلام عليكم

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

زادك الله علما ومعرفة ونفع بعلمك عباد الرحمن وجعل جميع اعمالك في ميزان حسناتك

بارك الله فيك واعلى مقامك في الدنيا والاخرة

السلام عليكم

اخي الفاضل عباس ----حفظكم

جزاك الله خيرا وبارك فيك

واثابك بدعائك واعطاك بمثله اضعاف مضاعفة

 

تقبل تحياتي وشكري

حمادة عمر

حمادة عمر

قام بنشر
قام بنشر

العالم العلامة والبحر الفهامه

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

ماشاء الله .. تبارك الله أحسن الخالقين

عمل ولا أروع

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

 

رااائع استاذنا الكبير / عبد الله باقشير

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

فدائما نسير وراءك للتعلم

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept