أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure

السلام عليكم إخواني وأحبابي في الله أقدم لكم كود يساعدكم على ترتيب البيانات داخل مصفوفة أحادية .. بعيداً عن الترتيب ..



29-04-2018 03:22 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 

السلام عليكم إخواني وأحبابي في الله





أقدم لكم كود يساعدكم على ترتيب البيانات داخل مصفوفة أحادية .. بعيداً عن الترتيب المستخدم في ورقة العمل بشكل مباشر ..


قم بوضع بعض البيانات في العمود الأول ثم نفذ الكود وستحصل على النتائج بعد ترتيب البيانات في العمود الثالث .. النتائج ستكون مرتبة تصاعدياً





إليكم الكود



Sub Test()
    Dim a()         As Variant
    Dim i           As Long
    Dim m           As Long

    m = Range("A" & Rows.Count).End(xlUp).Row
    ReDim a(1 To m)
    For i = 1 To m
        a(i) = Range("A" & i)
    Next i

    Call Quicksort(a(), LBound(a), UBound(a))
    
    Range("C1").Resize(UBound(a)).Value = Application.Transpose(a)
End Sub

Sub Quicksort(vArray As Variant, arrLbound As Long, arrUbound As Long)
    Dim pivotVal    As Variant
    Dim vSwap       As Variant
    Dim tmpLow      As Long
    Dim tmpHi       As Long
             
    tmpLow = arrLbound
    tmpHi = arrUbound
    pivotVal = vArray((arrLbound + arrUbound) 2)

    While (tmpLow <= tmpHi)
        While (vArray(tmpLow) < pivotVal And tmpLow < arrUbound)
            tmpLow = tmpLow + 1
        Wend

        While (pivotVal < vArray(tmpHi) And tmpHi > arrLbound)
            tmpHi = tmpHi - 1
        Wend

        If (tmpLow <= tmpHi) Then
            vSwap = vArray(tmpLow)
            vArray(tmpLow) = vArray(tmpHi)
            vArray(tmpHi) = vSwap
            tmpLow = tmpLow + 1
            tmpHi = tmpHi - 1
        End If
    Wend

    If (arrLbound < tmpHi) Then Quicksort vArray, arrLbound, tmpHi    'conquer
    If (tmpLow < arrUbound) Then Quicksort vArray, tmpLow, arrUbound    'conquer
End Sub

 

أرجو أن يفيدكم إن شاء الله
تقبلوا وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: نصر الإيمان،





26-08-2019 08:35 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure
تم تحديث الملف ورفع الموضوع لمن أراد الاستفادة يا سادة

أثارت هذه المشاركة إعجاب: نصر الإيمان،




29-08-2019 07:45 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 312
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 719
الاعجاب : 73
 offline 
look/images/icons/i1.gif ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure
زادك الله علما استاذ ياسر..
جزاك الله خيرا

أثارت هذه المشاركة إعجاب: YasserKhalil،




29-08-2019 09:24 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure
بارك الله فيك يا دكتور وجزيت خيراً على دعائك الطيب





29-08-2019 09:40 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure
ياسلام على الانسانية 
يا سلام على الحنية
الله عليك يا عمده الله 
 

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


29-08-2019 10:18 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure
مشكور أخي الحبيب محمود على كلماتك الطيبة وتشجيعك الدائم






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اريد برنامج قابل للتعديل يعتبر مثل قاعدة البيانات للموظفين لدي في الشركة عبد الله السعيد
6 77 ابراهيم الحداد
مدموج :اريد طريقة ترتيب البيانات في جدول من خلال الليست بوكس محمدعبدالسلام
15 170 YasserKhalil
فورم لترحيل اى عدد معين من البيانات الى صفحة الترحيلات مجدى يونس
4 63 مجدى يونس
نقل البيانات من شيت ل اخر كريم نظيم
13 119 YasserKhalil
تشفير وفك تشفير البيانات Encrypt And Decrypt Function YasserKhalil
21 291 YasserKhalil

الكلمات الدلالية
أحادية ، مصفوفة ، ترتيب ، البيانات ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 03:23 صباحا

أعلن هنا
أعلن هنا
أعلن هنا