ترتيب الطلاب

[بلانك]

ترتيب العشرة اوائل للطلاب بشروط وهي: 1- الاكبر مجموع والاصغر سنا وحرف الهجاء لة الاول اي (أ)

ترتيب الطلاب.xlsm

[hegazee]

إن شاء الله بس المطلوب في الملف غير المطلوب في الرسالة على العموم مرفق ملفين اختر ما يناسبك

 

ترتيب الطلاب(2).xlsm ترتيب الطلاب(3).xlsm

تم تعديل بالامس في 20:06 بواسطه hegazee

[بلانك]

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

[بلانك]

Up

[محمد هشام.]

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

جرب هدا

Option Explicit

Sub Tartib()
    Dim WS As Worksheet, lastRow As Long, OnRng As Range
    Dim i As Long, ColSort As String: ColSort = "Z"
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Set WS = ThisWorkbook.Sheets("Sheet1")
    lastRow = WS.Cells(WS.Rows.Count, "B").End(xlUp).Row

    If lastRow < 2 Then GoTo ClearApp

    For i = 2 To lastRow
        WS.Cells(i, ColSort).Value = i
    Next i

    Set OnRng = WS.Range("A2:D" & lastRow).Resize(, WS.Range(ColSort & "2").Column - 1 + 1)
    
    OnRng.Sort Key1:=WS.Range(ColSort & "2"), Order1:=xlAscending, Header:=xlNo
    OnRng.Sort Key1:=WS.Range("C2"), Order1:=xlDescending, _
               Key2:=WS.Range("D2"), Order2:=xlAscending, _
               Key3:=WS.Range("B2"), Order3:=xlAscending, Header:=xlNo
    
    WS.Range(ColSort & "2:" & ColSort & lastRow).ClearContents

ClearApp:
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

 

[بلانك]

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