اذهب الي المحتوي
أوفيسنا

مطلوب ترتيب الصفوف حسب قيمتين


M.NHAKAMI
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

السلام عليكم 

الكود الحالي يرتب القيم تنازلي حسب العمود مجموع الأخطاء فإذا تساوت قيمتان به يفرزهم حسب الاقل زمنا اريد تعديله إلى المطلوب بالاسفل

اريد تعديله الى ترتيب القيم تنازلي من الأصغر للأكبر حسب القيم الموجوده  في عمود مجموع الاخطاء والأقل زمن 

Sub sort()
Application.ScreenUpdating = True
 Range("B23:AA400").Activate
    ActiveWorkbook.Worksheets("SPEED").sort.SortFields.Clear
    ActiveWorkbook.Worksheets("SPEED").sort.SortFields.Add Key:=Range( _
        "H23:H400"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("SPEED").sort.SortFields.Add Key:=Range( _
        "E23:E400"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("SPEED").sort
        .SetRange Range("B23:AA400")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
      Range("E10").Activate
      
   '   Application.Visible = False
     ' فرز الفرسان

End Sub



 

ترتيب القيم قيمتين.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

استعمل هذا الماكرو الخفيف

الصف 21 يجب ان يكون فارغاً (حتى يتعرف الاكسل على الجدول بشكل صحيح)

كما يجب ان لا يكون خلايا فارغة بالجدول

Sub sort_me()
With Range("B22").CurrentRegion
      .sort Key1:=.Cells(1, 5), Order1:=1, _
     Key2:=.Cells(1, 8), Order2:=2, Header:=1
End With
End Sub

الملف مرفق

tartib.xlsm

  • Like 1
رابط هذا التعليق
شارك

أخي الكود هذا يفرز الترتيب حسب الاقل زمنا فاذا لم يكن فيه بيانات بالزمن يفرز البيانات حسب الاخطاء من الكبر للاصغر انا اريد الترتيب للاقل زمنا والاقل اخطاء معا شاكر لك مرورك الكود خفيف جدا كنت اتمنى لو يفي بالغرض 

 

المطلوب هو ترتيب القيم حسب الاقل زمنا والاقل أخطاء

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information