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

ارجو المساعدة في ايجاد دالة ترتيب حسب الوقت


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

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

السلام عليكم ورحمة الله وبركاتة 
لو تكرمت يا اخوان بس عايز دالة ترتب العامود علي حسب الوقت المرفق فيه كمثال
عمود A يحتوي علي
AX;10:00;sf

cd;10:04;wf

ds;10:02;re

wr;10:05;tf

cx;10:03;sf

اريد دالة لترتيب تلك البيانات ولاكن علي حسب الوقت كمثال ستكون بهذا الشكل بعد الترتيب

AX;10:00;sf

ds;10:02;re

cx;10:03;sf

cd;10:04;wf

wr;10:05;tf

وشكراً جزيلاً لكم مقدماً 

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

  • أفضل إجابة

جرب هذا النموذج (فقط اضغط على الزر Sort Please)

Option Explicit

Sub Creezy_Sort()
Dim arr, itm, k%
Dim txt
Dim Col As Object
 Set Col = CreateObject("System.Collections.Sortedlist")
 With Sheets("Salim")
        arr = .Range("A1").CurrentRegion
        arr = Application.Transpose(arr)
        .Range("C1").CurrentRegion.ClearContents
     For Each itm In arr
        If InStr(itm, ":") Then
         txt = Split(itm, ":")
           If UBound(txt) = 1 Then
            Col.Add CStr(txt(1)), CStr(txt(0))
           End If
        End If
     Next itm
    
      If Col.Count Then
        For k = 0 To Col.Count - 1
           .Cells(1, 3).Offset(k) = _
            Col.GetByIndex(k) & ":" & Col.GetKey(k)
        Next
      End If
End With

End Sub

الملف مرفق

ellatef.xlsm

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

لم يقم بالغرض كاملاً اخي شكر لجهودك 
ولكن الفكرة انني أردت دالة ترتيب كالتي تكون تلقائية من أ الي ي 

ولكن سيكون الترتيب استنادا الي الوقت المكتوب 

للعلم اخي الكريم كما ذكرت سابقاً انه الخلية يوجد بها حروف وكلمات وبينهم التاريخ

اردت ترتيب القيم استنادا الي التاريخ تنازلياً او تصاعدياً 

شكرا جزيلاً اخي نزار

أعتذر منك اخي سليم ولكن لم يفتح معي الملف
لا أعلم لماذا كلما حملت ملف ينتهي بإمتداد xlsm
يفتح فارغ وتاتي عليه علامة تعجب صفراء 

لا اعلم سبب ذلك الحقيقة 

مشكور جدا لك اخي 

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

لا اعلم ما المشكلة عندك ( ظهور علامة التعجب يشير ان الملف يحتوي على ماكرو)

لكن عندي يعمل يكل كفاءة ( اضغط على الزر Sort Please)  الصورة1 

بعد فتج الملف اضغط على الزر (Enable Editing) كما في الصورة 2

Ric_1.png

pic_2.png

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

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