منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مطلوب حل ترتيب القيم لعمودين في اكسل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://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