ترتيب حرف ظ حسب ترتيب ابجذ هوز

[زاكي بوشلاغم]

السلام  عليكم   اخي  كلمة  التي  تكون  فيها  حرف  ظا  لا  ترتب  حسب  الترتيب  ابجد  هوز    مثال   لقب : ظافري  لا  يرتب  حسب  الترتيب  ابجد  هوز  اريد  ترتيب  اي  اسم  ولقب  يكون  فيه  حرف  ظا  حسب  ترتيب  ابجد  هوز  وشكرا

جدول-تصفية-المنح-ابجد-هوز-صحيح.rar

[ياسر خليل أبو البراء]

أخي الكريم زاكي

اطلعت على الملف وتهت بين الأوراق كي أجد الورقة المطلوب العمل عليها لعلي أفهم المطلوب

فما أدري الورقة المطلوب العمل عليها .. وما أدري المطلوب بشكل واضح

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

عدد مشاركاتك أكثر من 300 وما زلت لم تطلع على التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة التعامل بشكل أفضل مع المنتدى

تقبل وافر تقديري واحترامي

 

[زاكي بوشلاغم]

اخي الورقة المطلوبة هيdonnee تظغط على زر ابجد هوز ترتب الاسماء. وذلك بعد ادخال اسماء كلها 

تم تعديل يناير 31, 2016 بواسطه زاكي بوشلاغم

[أبو قاسم]

تفضل عسى يكون المطلوب 

.جدول-تصفية-المنح-ابجد-هوز-صحيح.rar

[ياسر خليل أبو البراء]

أخي الكريم كاسر الأمواج

ما التعديل الذي قمت به ؟؟

والنتائج غير صحيحة بعد التعديل حيث أنه من المفترض أن يكون الاسم المبتديء بحرف الظاء في أواخر الأسماء إذ أن الترتيب على أبجد هوز

..... وقد جاءت الأسماء بحرف الظاء بعد الطاء ..

هذا والله أعلم

في انتظار الأخ الكريم زاكي

 

[ياسر خليل أبو البراء]

أخي الفاضل

جرب التعديل التالي وإن شاء الله يحل المشكلة

وسأخبرك بالتعديل بعد التجربة

Sub AL_KHALEDI()
    Dim Arr     As Variant
    Dim Rn      As Range
    Dim C       As Range
    Dim Lr      As Long
    Dim T1      As String
    Dim T2      As String
    Dim Str     As String
    Dim S       As Variant
    Dim R       As Integer
    Dim A       As Integer
    
    Set Rn = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
    Lr = Rn.Rows.Count
    ReDim Arr(Lr - 1)
    
    For Each C In Rn.Cells
        T1 = ""
        T2 = ""
        Str = Application.Trim(C)
        
        For R = 1 To Len(Str)
            T1 = Mid(Str, R, 1)
            S = Application.Search(T1, "أبجدهوزحطيكلمنسعفصقرشتثخذضظغ", 1)
            If Not IsError(S) Then T1 = Mid("أبتثجحخدذرزسشصضطظعغفقكلمنهوي", S, 1)
            T2 = T2 & T1
        Next R
        
        Arr(A) = T2
        A = A + 1
    Next C
    
    Range("K2").Resize(Lr).Value = WorksheetFunction.Transpose(Arr)
    Range("B2:K2").Resize(Lr).Sort Range("K2"), xlAscending
    
    Range("K2").Resize(Lr).ClearContents
    Set Rn = Nothing
    Erase Arr
End Sub

تقبل تحياتي

[أبو قاسم]

كلامك صحيح اخ ياسر والان انشاء الله يكون صح

جدول-تصفية-المنح-ابجد-هوز-صحيح.rar

[ياسر خليل أبو البراء]

أخي الكريم كاسر الأمواج

أفضل أن يكون اسم الظهور معبر عن شخصكم الكريم

بدلاً من إضافة مسافة بعد حرف الضاد .. لما لم تصحح الكود بالشكل الصحيح كما فعلت وأزلت الشرطة التالية ــ في السطر التالي له بعد حرف الهاء

 

هذا هو التعديل الذي قمت به :

قمت بالإعلان عن المتغيرات لأن الكود لم يكن يحتوي على الإعلان عن المتغيرات

فضلت أن يكون التعامل مع الأسماء بدون استخدام المسافات قبل وبعد الاسم فاستخدمت الدالة Trim

وأخيراً قمت بتصحيح الوضع وإزالة الشرطة الملصوقة في الهاء بحيث تعطي نتائج صحيحة

هذا والله أعلى وأعلم

تقبل تحياتي

 

[أبو قاسم]

وفقك الله ومنك نتعلم وجزاك الله خير وربنا يوفقك 

[زاكي بوشلاغم]

اخي  اريد  ان  ادخل  جميع  معطيات  في  الورقة DONNEE    ولما  انهي   اظغط  على  الزر  ترتيب  ابجد  هوز  يرتب  كل  معطيات  الجدول    حيث  ادخال  التلاميد  يكون  عشوائي  ولما  انهي ادخال التلاميذ   واقسام  وتاريخ  الميلاد  لكل  التلاميذ اظغط على  الزر ترتيب  ابجد  هوز  يرتبهم  مع  اقسام  وتاريخ  الميلاد

والترتيب يكون  حسب  الترتيب 

 

 

ترتيب يكون حسب الترتيب ( أبجد هوز حطيكلمنسعفصقر شتثخذ ضظغ )   اي  ترتيب  لقب  الذي يكون  ب ظا  في  اواخر  القائمة 

تم تعديل فبراير 1, 2016 بواسطه زاكي بوشلاغم
أبجدهوزحطيكلمنسعفصقرشتثخذضظغ"

[ياسر خليل أبو البراء]

أخي الكريم زاكي

لم افهم المطلوب الجديد..يرجى إرفاق بعض النتائج المتوقعة ...

ألم يصحح الكود مسار الترتيب بالشكل المطلوب؟

أم أنك تريد الترتيب على أكثر من عمود ..عمود الاسم ثم عمود القسم مثلاً ..في هذه الحالة اذكر الترتيب الذي تريده بترتيب الأعمدة المطلوبة

تقبل تحياتي

[زاكي بوشلاغم]

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

[أبو قاسم]

جرب هذا عسى يكون هو الحل

جدول-تصفية-المنح-ابجد-هوز-صحيح.rar

[زاكي بوشلاغم]

شكرا بارك الله فيك  اخي  ممكن  طلب  في  صفحة  donnee 2   اظع القسم  واضغط  على  على زر  التصفية  تخرج  جميع  التلاميذ  في  نفس  القسم  مثال  اريد  جميع  تلاميذ  القسم 3أف1 أو المستوي  السنة ثالثة  علوم تجربية  3ع ت أضع  في  خانة  التصفية  القسم 3أف1 أو 3ع ت  واضغط  على  الزر  لكي  ينقل  جميع  تلاميذ  السنة  3 أف 1 أو كل سنوات  السنة 3 ع ت  من  صفحة donnee  الى  صفحة  donnee2