+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مطلوب حل ترتيب القيم لعمودين في اكسل (/showthread.php?tid=31972)
مطلوب حل ترتيب القيم لعمودين في اكسل - m.n.hakami - 03-11-19
بعد محاولات لاستخدام الدوال لم اجد الحل
المطلوب كيفية ترتيب القيم تنازلي من الأصغر للأكبر وظهوى الترتيب في عمود الترتيب حسب عمود مجموع الأخطاء فإذا تساوت قيمتان في مجموع الأخطاء يتم ترتيب الاول الاقل زمن
اتمنى اجد الحل سواء بمحرر الفيجوال او دوال الاكسل
RE: مطلوب حل ترتيب القيم لعمودين في اكسل - AbdoDabak - 03-11-19
ممكن انك تحط اداة DataGridView بالفيجوال
وتسوي الجداول يدويا او من قاعدة بيانات
وهالكود لترتيب القيم
غير الرقم 0 لرقم العمود اللي تريده
وممكن انك تحط شرط اذا تساوى قيمتين يتم ترتيب القيمتين على حسب عمود اخر
PHP كود :
DataGridView1.Sort(DataGridView1.Columns(0),
System.ComponentModel.ListSortDirection.Ascending)
RE: مطلوب حل ترتيب القيم لعمودين في اكسل - m.n.hakami - 03-11-19
اشكر مرورك اخي انا احتاج الترتيب يكون بالشيت بالاكسل ويكون بشكل اكتف
RE: مطلوب حل ترتيب القيم لعمودين في اكسل - AbdoDabak - 03-11-19
كيف يعني ما فهمت ممكن تشرح اكتر
RE: مطلوب حل ترتيب القيم لعمودين في اكسل - m.n.hakami - 03-11-19
(03-11-19, 08:35 PM)AbdoDabak كتب : كيف يعني ما فهمت ممكن تشرح اكتر
انا يا اخي عندي صفحه بالاكسل فيها البيانات المصوره اريد الفرز يكون فيها بشكل Activate حسب المعطيات التي طلبتها الداله =RANK لم تفي بالغرض احاول ارفق الملق لكن لم ينجح
RE: مطلوب حل ترتيب القيم لعمودين في اكسل - m.n.hakami - 03-11-19
توصلت للحل واضعه هنا للفائده
كود :
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