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

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

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




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





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

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



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

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


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





05-10-2018 05:43 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 333
قوة السمعة : 14756
الاعجاب : 5509
 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


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

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




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

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




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

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




05-10-2018 08:53 مساء
مشاهدة مشاركة منفردة [4]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1294
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 64
قوة السمعة : 7840
الاعجاب : 2229
 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
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1294
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 64
قوة السمعة : 7840
الاعجاب : 2229
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
اعتذر لاحظت ان المطلوب فى نهاية الاسم بعد تقديم الحل
وكنت حذفت التعليق وعدلت على كود الاستاذ ياسر للوصول للمطلوب

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




05-10-2018 09:05 مساء
مشاهدة مشاركة منفردة [6]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 240
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 8
قوة السمعة : 2399
الاعجاب : 541
 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|$)" 
لعل هناك مسافات زائدة في الاسم

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




05-10-2018 09:35 مساء
مشاهدة مشاركة منفردة [7]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1294
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 64
قوة السمعة : 7840
الاعجاب : 2229
 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]
نصر الإيمان
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 222
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 7
يتابعونه : 2
قوة السمعة : 516
الاعجاب : 164
 offline 
look/images/icons/i1.gif استبدال الياء المنقوطه بآخر الكلمة بياء غير منقوطه
بارك الله في حضرتك استاذ اسلام
جزاك الله خيرا

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




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

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




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

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




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

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




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







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


 







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



الساعة الآن 02:11 صباحا

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