كود يعمل على اوفيس 2013 ولا يعمل علي 2003

[ابوصلاح]

في ورقة اضافة بيانات كود لترتيب التلاميذ يعمل علي اوفيس 2013 ولا يعمل علي اوفيس 2003

هل هناك خطا بالكود ام ماذا ارجو الافادة مع تعديل الكود ان وجد الخطا

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _
        "E12"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort
        .SetRange Range("d12:r84")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
       ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _
        "k12"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort
        .SetRange Range("d12:r84")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With



Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _
        "E131"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort
        .SetRange Range("d131:r203")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
       ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _
        "k131"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort
        .SetRange Range("d131:r203")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    

Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _
        "E257"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort
        .SetRange Range("d257:r329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
       ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _
        "k257"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort
        .SetRange Range("d257:r329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With




Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _
        "E373"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort
        .SetRange Range("d373:r445")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
       ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _
        "k373"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort
        .SetRange Range("d373:r445")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With




Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _
        "E518"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort
        .SetRange Range("d518:r590")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
       ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _
        "k518"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort
        .SetRange Range("d518:r590")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With




Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _
        "E654"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort
        .SetRange Range("d654:r726")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
       ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _
        "k654"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort
        .SetRange Range("d654:r726")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

برنامج شئون ابتدائي.rar

[ابوصلاح]

للرفع

[عبدالله المجرب]

أعتقد المشكلة أن كود الفرز تم تسجيله بصيغة لا تعمل مع 2003

[ابوصلاح]

وما الحل

[ابوصلاح]

1. الا يوجد كود بديل
2. او تعديل

[ابوصلاح]

للتوضيح اكثر

بالمرفق التالي

كود فرزابجدى وحسب النوع 

كود فرز.rar