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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil نتيجة تقرير اكسيل اسئله واجابات


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



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





استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه

السلام عليكم ورحمة الله وبركاته هل من الممكن استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه... مثال : اروي علي مصطفي ..



05-10-2018 02:42 مساء
نصر الإيمان
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 559
الاعجاب : 10
 offline 

السلام عليكم ورحمة الله وبركاته
هل من الممكن استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه...
مثال : اروي علي مصطفي الازهري-------   يتم استبدالها بــــ " اروى على مصطفى الازهرى"
جزاكم الله خيرا
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  names.rar   تحميل rar مرات التحميل :(6)
الحجم :(82) KB







05-10-2018 05:43 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6427
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17705
الاعجاب : 439
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
وعليكم السلام يا دكتور

جرب الدالة التالية علها تفي بالغرض
Sub Test_ReplaceYLetter_UDF()
    Dim s           As String

    s = "اروي علي مصطفي الازهري"
    Debug.Print ReplaceYLetter(s)
End Sub

Function ReplaceYLetter(ByVal txt As String) As String
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "ي(\s|$)"
        ReplaceYLetter = Trim(.Replace(txt, "ى "))
    End With
End Function


سيتم طباعة النتيجة في النافذة الفورية ، ويمكن استخدام الدالة في ورقة العمل بشكل مباشر





05-10-2018 06:51 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 559
الاعجاب : 10
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
جزاك الله خيرا استاذ ياسر
لكني اريد تطبيقها على كافة الأسماء بالملف المرفق





05-10-2018 08:28 مساء
مشاهدة مشاركة منفردة [3]
نصر الإيمان
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 559
الاعجاب : 10
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
مشكور جداااااااااا استاذ اسلام 
لكن عند استخدام الكود يحدث مشكله الا وهي: 
ان الياء التي في وسط الكلمه يتم تحويلها ايضا الى "ى" 
وانا اريد التي باخر الكلمه فقط





05-10-2018 08:53 مساء
مشاهدة مشاركة منفردة [4]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1395
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 73
قوة السمعة : 8611
الاعجاب : 78
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
جزاك الله خيرا استاذى الحبيب ياسر
استخدام ممتاز للتعابير النمطية

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


Sub Test_ReplaceYLetter2()
Dim cell As Range
    For Each cell In Range("B2:B" & Cells(Rows.Count, 2).End(3).Row)
        With CreateObject("VBScript.RegExp")
            .Global = True
            .Pattern = "ي(\s|$)"
            cell = Trim(.Replace(cell, "ى "))
        End With
    Next cell
End Sub

 





05-10-2018 08:54 مساء
مشاهدة مشاركة منفردة [5]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1395
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 73
قوة السمعة : 8611
الاعجاب : 78
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
اعتذر لاحظت ان المطلوب فى نهاية الاسم بعد تقديم الحل
وكنت حذفت التعليق وعدلت على كود الاستاذ ياسر للوصول للمطلوب





05-10-2018 09:05 مساء
مشاهدة مشاركة منفردة [6]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 336
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 14
قوة السمعة : 2929
الاعجاب : 88
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
المشاركة الأصلية كتبت بواسطة:YasserKhalil
وعليكم السلام يا دكتور

جرب الدالة التالية علها تفي بالغرض
Sub Test_ReplaceYLetter_UDF()
    Dim s           As String

    s = "اروي علي مصطفي الازهري"
    Debug.Print ReplaceYLetter(s)
End Sub

Function ReplaceYLetter(ByVal txt As String) As String
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "ي(s|$)"
        ReplaceYLetter = Trim(.Replace(txt, "ى "))
    End With
End Function


سيتم طباعة النتيجة في النافذة الفورية ، ويمكن استخدام الدالة في ورقة العمل بشكل مباشر

المشاركة الأصلية كتبت بواسطة:YasserKhalil
وعليكم السلام يا دكتور

جرب الدالة التالية علها تفي بالغرض
Sub Test_ReplaceYLetter_UDF()
    Dim s           As String

    s = "اروي علي مصطفي الازهري"
    Debug.Print ReplaceYLetter(s)
End Sub

Function ReplaceYLetter(ByVal txt As String) As String
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "ي(s|$)"
        ReplaceYLetter = Trim(.Replace(txt, "ى "))
    End With
End Function


سيتم طباعة النتيجة في النافذة الفورية ، ويمكن استخدام الدالة في ورقة العمل بشكل مباشر

بارك الله فيك اخي ياسر و لكن عندي اقتراح
استبدال  .Pattern = "ي(s|$)"
بــــ         .Pattern = "ي(+s|$)" 
لعل هناك مسافات زائدة في الاسم





05-10-2018 09:35 مساء
مشاهدة مشاركة منفردة [7]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1395
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 73
قوة السمعة : 8611
الاعجاب : 78
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
المشاركة الأصلية كتبت بواسطة:salim
المشاركة الأصلية كتبت بواسطة:YasserKhalil
وعليكم السلام يا دكتور

جرب الدالة التالية علها تفي بالغرض
Sub Test_ReplaceYLetter_UDF()
    Dim s           As String

    s = "اروي علي مصطفي الازهري"
    Debug.Print ReplaceYLetter(s)
End Sub

Function ReplaceYLetter(ByVal txt As String) As String
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "ي(s|$)"
        ReplaceYLetter = Trim(.Replace(txt, "ى "))
    End With
End Function


سيتم طباعة النتيجة في النافذة الفورية ، ويمكن استخدام الدالة في ورقة العمل بشكل مباشر

المشاركة الأصلية كتبت بواسطة:YasserKhalil
وعليكم السلام يا دكتور

جرب الدالة التالية علها تفي بالغرض
Sub Test_ReplaceYLetter_UDF()
    Dim s           As String

    s = "اروي علي مصطفي الازهري"
    Debug.Print ReplaceYLetter(s)
End Sub

Function ReplaceYLetter(ByVal txt As String) As String
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "ي(s|$)"
        ReplaceYLetter = Trim(.Replace(txt, "ى "))
    End With
End Function


سيتم طباعة النتيجة في النافذة الفورية ، ويمكن استخدام الدالة في ورقة العمل بشكل مباشر

بارك الله فيك اخي ياسر و لكن عندي اقتراح
استبدال  .Pattern = "ي(s|$)"
بــــ         .Pattern = "ي(+s|$)" 
لعل هناك مسافات زائدة في الاسم

اخى الكريم سليم
هذا الامر لا ضرورة له ابدا فالشرط الاساسى هو وجود المسافه بغض النظر عن عددها





05-10-2018 10:05 مساء
مشاهدة مشاركة منفردة [8]
نصر الإيمان
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 559
الاعجاب : 10
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
بارك الله في حضرتك استاذ اسلام
جزاك الله خيرا





05-10-2018 10:34 مساء
مشاهدة مشاركة منفردة [9]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1395
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 73
قوة السمعة : 8611
الاعجاب : 78
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
وبارك الله فيك أستاذ نصر
والشكر لله ثم لصاحب الحل الاول حبيب القلب أبو البراء
كل ما فعلته هو تغيير مسار عمل الكود ليلبى احتياجك منه لا اكثر
والحمد لله ان تم الامر على خير





06-10-2018 07:43 صباحا
مشاهدة مشاركة منفردة [10]
نصر الإيمان
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 559
الاعجاب : 10
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
استاذي ابو البراء ... غالي على القلب.....وصاحب فضل عليّ....بارك الله فيه





06-10-2018 08:26 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6427
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17705
الاعجاب : 439
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
بارك الله فيكم إخواني وأحبابي في الله
والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات





06-10-2018 08:58 صباحا
مشاهدة مشاركة منفردة [12]
khaled alborene
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 637
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 9
يتابعونه : 8
قوة السمعة : 760
الاعجاب : 27
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
صباح الخير 
عندي مشكلة لما اعمل نسخ للكود بحط محل الحروف العربية علامة سؤال ؟ شو حل هاي المشكلة 







الكلمات الدلالية
استبدال ، الياء ، المنقوطه ، بآخر ، الاسم ، بياء ، منقوطه ،


 







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



الساعة الآن 01:41 مساء

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