اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  • تمت الإجابة
قام بنشر

اذا كان ما فهمته صحيحاً هذا الكود (فقط اضغط الزر Run)

Option Explicit
Sub Creezy_sort()
 Dim CoL As Object
 Dim Lr%, i%, x%
 Dim arr
 Dim Ws As Worksheet
 Set Ws = Sheets("EN")
 
 With Ws
    .Range("E1").CurrentRegion.Offset(1).ClearContents
    Set CoL = CreateObject("System.Collections.sortedlist")
    Lr = .Cells(Rows.Count, 1).End(3).Row
    For i = 2 To Lr
       CoL.Add Len(.Cells(i, 1)) + i / 1000, .Cells(i, 1) & _
       "*" & .Cells(i, 2)
     Next i
     x = 2
     For i = 0 To CoL.Count - 1
     .Cells(x, "E") = Split(CoL.GetByIndex(i), "*")(0)
     .Cells(x, "F") = Split(CoL.GetByIndex(i), "*")(1)
      arr = Split(Split(CoL.GetByIndex(i), "*")(1), ",")
     .Cells(x, "G") = UBound(arr) + 1
      x = x + 1
     Next
End With
Set Ws = Nothing: Set CoL = Nothing
End Sub

الملف مرفق

Hitari.xlsm

  • Like 2
قام بنشر

أحسنت استاذ سليم عمل ممتاز الكود يعمل بكل كفاءة ولا يوجد به اى مشكلة بالفعل وتم تجربته

علي الهتاري كما أخبرك استاذنا الكبير سليم حاصبيا فالملف يعمل بكل كفاءة فإن كان هناك مشكلة لديك فمن عندك فربما تكون بالفعل نسخة الأوفيس عندك أقدم من 2010 كما اخبرك استاذنا الكريم فعليك بتحديث الأوفيس لديك وشكرا ... عليك وضع هذه المعادلة بداية من الخلية C2 سحباً للأسفل

=LEN(B2)-LEN(SUBSTITUTE(B2,",",""))+1

Hitari.xlsm

  • Like 2

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information