[m.n.hakami]

بعد محاولات لاستخدام الدوال لم اجد الحل 

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

اتمنى اجد الحل سواء بمحرر الفيجوال او دوال الاكسل 
[img]https://2.top4top.net/s_14025ccy91.jpg"> [/img]

[AbdoDabak]

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

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

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

غير الرقم 0 لرقم العمود اللي تريده

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

PHP كود :

DataGridView1.Sort(DataGridView1.Columns(0),
      System.ComponentModel.ListSortDirection.Ascending) 


[m.n.hakami]

اشكر مرورك اخي انا احتاج الترتيب يكون بالشيت بالاكسل ويكون بشكل اكتف

[AbdoDabak]

كيف يعني ما فهمت ممكن تشرح اكتر

[m.n.hakami]

(03-11-19, 08:35 PM)AbdoDabak كتب : كيف يعني ما فهمت ممكن تشرح اكتر

انا يا اخي عندي صفحه بالاكسل فيها البيانات المصوره اريد الفرز يكون فيها بشكل Activate حسب المعطيات التي طلبتها الداله =RANK لم تفي بالغرض احاول ارفق الملق لكن لم ينجح

[m.n.hakami]

توصلت للحل واضعه هنا للفائده 

كود :

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A23:AA1022").Activate
   ActiveWorkbook.Worksheets("نظام السرعه").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("نظام السرعه").Sort.SortFields.Add Key:=Range( _
       "H23:H1023"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
       xlSortNormal
   ActiveWorkbook.Worksheets("نظام السرعه").Sort.SortFields.Add Key:=Range( _
       "E23:E1023"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
       xlSortNormal
   With ActiveWorkbook.Worksheets("نظام السرعه").Sort
       .SetRange Range("A23:AA1023")
       .Header = xlGuess
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
     Range("E10").Activate
End Sub