03-11-19, 07:52 PM
03-11-19, 08:24 PM
ممكن انك تحط اداة DataGridView بالفيجوال
وتسوي الجداول يدويا او من قاعدة بيانات
وهالكود لترتيب القيم
غير الرقم 0 لرقم العمود اللي تريده
وممكن انك تحط شرط اذا تساوى قيمتين يتم ترتيب القيمتين على حسب عمود اخر
PHP كود :
DataGridView1.Sort(DataGridView1.Columns(0),
System.ComponentModel.ListSortDirection.Ascending)
03-11-19, 08:29 PM
اشكر مرورك اخي انا احتاج الترتيب يكون بالشيت بالاكسل ويكون بشكل اكتف
03-11-19, 08:35 PM
كيف يعني ما فهمت ممكن تشرح اكتر
03-11-19, 09:03 PM
(03-11-19, 08:35 PM)AbdoDabak كتب : [ -> ]كيف يعني ما فهمت ممكن تشرح اكتر
انا يا اخي عندي صفحه بالاكسل فيها البيانات المصوره اريد الفرز يكون فيها بشكل Activate حسب المعطيات التي طلبتها الداله =RANK لم تفي بالغرض احاول ارفق الملق لكن لم ينجح
03-11-19, 09:19 PM
توصلت للحل واضعه هنا للفائده
كود :
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