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

مشكلة في فرز الأسماء التي تبدأ بحرف الألف


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

السلام عليكم

أواجه مشكلة في فرز الأسماء التي تبدأ بحرف الألف (أ - إ - آ - ا)

اريد فرز الأسماء كما هو موضح في المرفق

تقبلوا تحياتي

 

الهمزة أول الاسم.rar

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

عليكم السلام ورحمة الله وبركاته

الاستاذ الفاضل ابوعيد

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

جزاه الله كل خير وزاده من فضله وعلمه

وهو يقوم بحذف الهمزة واستبدال التاء المربوطة بهاء وايضا يحذف النقط من اسفل الياء

تحياتي لك

Sub kh_Replace()
Dim ch
With Range("B2:B100")
    For Each ch In Array("إ", "أ", "آ")
        .Replace CStr(ch), "ا"
    Next
    .Replace "ة", "ه"
    .Replace "ى", "ي"
End With
End Sub


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

شكرا

أخي وليد فتحي

أخي محمد الخازمي

أنا الأن عند كتابة الاسم الذي يبدأ بحرف الألف أكتبه بدون همزة (ا) في الاسم الأول فقط أما أسم الأب والجد   وجد الجد فأكتب الهمزة فيه ولا إشكال

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

إذا وجد كود يفرز بدون حذف الهمزة سيكون هو المطلوب

شكرا جزيلا على سرعة تفاعلكما

تحياتي

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

الاستاذ الفاضل ابو عيد

بعد البحث الكثير في هذا الموضوع وجدت انه لا يوجد افضل من هذا الكود

لانه يقوم بحذف جميع الهمزات التي تؤثر علي عملة الفرز

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

ونحن بانتظار أن يقوم أحد الاساتذة بمداخلة جديدة وادارج كود جديد

تحياتي لك

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

السلام عليكم

مبرووووووووووووووووووك

تم حل المشكلة والحمد لله وبدون حذف الهمزات

 

لو كان الإكسل مش راضي يفرز حسب الطلب , فإننا سنحتال عليه حتى نحقق مطلوبنا

تفضلوا

الهمزة أول الاسم.rar

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

السلام عليكم ورحمة الله

ايضا محاولة بكود اخر بدون استخدام عمود اضافي

في امان الله

تم تعديل واصلاح الكود في مشاركتي اللاحقة

فرز الهمزة.rar

تم تعديل بواسطه الخالدي
  • Like 3
رابط هذا التعليق
شارك

السلام عليكم

أنا معلم وأحتاج إلى فرز الطلاب حسب النتيجة (ناجح راسب) أو حسب الشعبة  ( 1 , 2 )

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

تقبلوا تحياتي

فرز الهمزة بحسب الشعبة والنتيجة.rar

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

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