بعد محاولات لاستخدام الدوال لم اجد الحل
المطلوب كيفية
ترتيب القيم تنازلي من الأصغر للأكبر وظهوى الترتيب في عمود الترتيب حسب عمود مجموع الأخطاء فإذا تساوت قيمتان في مجموع الأخطاء يتم ترتيب الاول الاقل زمن
اتمنى اجد الحل سواء بمحرر الفيجوال او دوال الاكسل
[img]https://2.top4top.net/s_14025ccy91.jpg"> [/img]
ممكن انك تحط اداة DataGridView بالفيجوال
وتسوي الجداول يدويا او من قاعدة بيانات
وهالكود لترتيب القيم
غير الرقم 0 لرقم العمود اللي تريده
وممكن انك تحط شرط اذا تساوى قيمتين يتم ترتيب القيمتين على حسب عمود اخر
PHP كود :
DataGridView1.Sort(DataGridView1.Columns(0),
System.ComponentModel.ListSortDirection.Ascending)
اشكر مرورك اخي انا احتاج الترتيب يكون بالشيت بالاكسل ويكون بشكل اكتف
كيف يعني ما فهمت ممكن تشرح اكتر
(03-11-19, 08:35 PM)AbdoDabak كتب : [ -> ]كيف يعني ما فهمت ممكن تشرح اكتر
انا يا اخي عندي صفحه بالاكسل فيها البيانات المصوره اريد الفرز يكون فيها بشكل Activate حسب المعطيات التي طلبتها الداله =RANK لم تفي بالغرض احاول ارفق الملق لكن لم ينجح
توصلت للحل واضعه هنا للفائده
كود :
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