[m.n.hakami]

[AbdoDabak]

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

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

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

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

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

PHP كود :

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


[m.n.hakami]

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

[AbdoDabak]

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

[m.n.hakami]

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

انا يا اخي عندي صفحه بالاكسل فيها البيانات المصوره اريد الفرز يكون فيها بشكل 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