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



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





كود لحذف المسافات الزائدة بين الحروف في بعض الجمل

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



14-04-2018 10:45 مساء
وائل شعبان
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-10-2017
رقم العضوية : 1182
المشاركات : 14
الجنس : ذكر
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 6
 offline 
السلام عليكم
عند كتابة البعض لجملة ما يستخدم في كتابتها مسافة لتكبير أو تمديد الكلام والتي يمكن كتابتها بين الحروف من خلال الضغط علي مفتاحي ( شفت + حرف ت = ـــــــ ) أثناء الكتابة باللغة العربية مثل: بـــــســـــم الله الــــرحـــمــــن الــــرحــــيـــــم

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





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





14-04-2018 10:54 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3625
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 285
قوة السمعة : 10084
الاعجاب : 3476
 offline 
look/images/icons/i1.gif كود لحذف المسافات الزائدة بين الحروف في بعض الجمل
وعليكم السلام أخي الكريم وائل
جرب الدالة المعرفة التالية
Function Cleanup(s As String) As String
    Dim i           As Long
    Dim c           As String
    Dim t           As String

    For i = 1 To Len(s)
        c = Mid(s, i, 1)
        Select Case AscW(c)
            Case 32, 1726, 1569 To 1590, 1591 To 1594, 1601 To 1612
                t = t & c
        End Select
    Next i

    Cleanup = t
End Function


بفرض أن النص لديك في الخلية A1 قم بوضع المعادلة التالية في الخلية B1
=Cleanup(A1)

أثارت هذه المشاركة إعجاب: وائل شعبان، محمد الدسوقى، ظفر الله عسكر، الصقر، حارثة ابو زيد1، Eslam Abdullah، ناصر سعيد1، محمد أبو عبدو،




14-04-2018 11:34 مساء
مشاهدة مشاركة منفردة [2]
وائل شعبان
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-10-2017
رقم العضوية : 1182
المشاركات : 14
الجنس : ذكر
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 6
 offline 
look/images/icons/i1.gif كود لحذف المسافات الزائدة بين الحروف في بعض الجمل
جزاك الله خيراً أخي أبو البراء وجعل ما تفضلت به في ميزان حسناتك 

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




15-04-2018 07:35 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3625
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 285
قوة السمعة : 10084
الاعجاب : 3476
 offline 
look/images/icons/i1.gif كود لحذف المسافات الزائدة بين الحروف في بعض الجمل
وجزيت خيراً أخي الكريم وائل بمثل ما دعوت لي وزيادة
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات
تقبل تحياتي

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




15-04-2018 10:22 صباحا
مشاهدة مشاركة منفردة [4]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1273
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 321
قوة السمعة : 9312
الاعجاب : 2285
 offline 
look/images/icons/i1.gif كود لحذف المسافات الزائدة بين الحروف في بعض الجمل

الله ينور يا غالى شغل عالى ومحترف
لا حرمنا الله من ابداعاتك
يا ميسترو الاكسيل
123


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




15-04-2018 11:31 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3625
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 285
قوة السمعة : 10084
الاعجاب : 3476
 offline 
look/images/icons/i1.gif كود لحذف المسافات الزائدة بين الحروف في بعض الجمل
تسلم أخي الغالي حسام خطاب ومشكور على كلماتك الطيبة ..
بارك الله فيك وجزاك الله خيراً

بس ايه حكايتك النهاردة .. مايسترو وبتغني .. وبترقص !! مالك قلبتها روتانا ميوزيك ليه كدا؟! 121

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




15-04-2018 11:53 صباحا
مشاهدة مشاركة منفردة [6]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1273
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 321
قوة السمعة : 9312
الاعجاب : 2285
 offline 
look/images/icons/i1.gif كود لحذف المسافات الزائدة بين الحروف في بعض الجمل
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
تسلم أخي الغالي حسام خطاب ومشكور على كلماتك الطيبة ..
بارك الله فيك وجزاك الله خيراً

بس ايه حكايتك النهاردة .. مايسترو وبتغني .. وبترقص !! مالك قلبتها روتانا ميوزيك ليه كدا؟! 121

التغيير مطلوب ههههههههههههههههههههه

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




15-04-2018 03:05 مساء
مشاهدة مشاركة منفردة [7]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 787
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 428
قوة السمعة : 5344
الاعجاب : 1396
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود لحذف المسافات الزائدة بين الحروف في بعض الجمل
تفضل المثال دا لاثراء الموضوع
Sub Button1_Click()
    Dim MyArray As Variant
    Dim i As Integer
    MyArray = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    For i = LBound(MyArray) To UBound(MyArray)
        MyArray(i, 1) = Replace(MyArray(i, 1), "ـ", "")
    Next i
    Range("B1:B" & Cells(Rows.Count, 1).End(xlUp).Row) = MyArray
End Sub


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  Replace.zip   تحميل zip مرات التحميل :(15)
الحجم :(13.913) KB


أثارت هذه المشاركة إعجاب: الصقر، Eslam Abdullah، YasserKhalil، ali mohamed ali، وائل شعبان، ناصر سعيد1، Aml Ahmed، محمد أبو عبدو،


توقيع :Yasser Elaraby
663013020



15-04-2018 05:13 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3625
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 285
قوة السمعة : 10084
الاعجاب : 3476
 offline 
look/images/icons/i1.gif كود لحذف المسافات الزائدة بين الحروف في بعض الجمل
الله ينور يا عربي .. والله ليك وحشة ووحشتنا أكوادك
تسلم يا غالي ومشكور على الحل الرائع

أثارت هذه المشاركة إعجاب: Yasser Elaraby، أباالحسن،




15-04-2018 06:12 مساء
مشاهدة مشاركة منفردة [9]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 260
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 14
قوة السمعة : 1663
الاعجاب : 401
 offline 
look/images/icons/i1.gif كود لحذف المسافات الزائدة بين الحروف في بعض الجمل
بارك الله فيك أستاذ ياسر العربى كود رائع وممتاز جعله الله فى ميزان حسناتك

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




15-04-2018 07:06 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3625
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 285
قوة السمعة : 10084
الاعجاب : 3476
 offline 
look/images/icons/i1.gif كود لحذف المسافات الزائدة بين الحروف في بعض الجمل
وممكن ببساطة استخدام معادلة الإكسيل البسيطة دي
=SUBSTITUTE(A1,"ــ","")

أثارت هذه المشاركة إعجاب: وائل شعبان، ali mohamed ali، ناصر سعيد1، Yasser Elaraby،




15-04-2018 07:07 مساء
مشاهدة مشاركة منفردة [11]
وائل شعبان
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-10-2017
رقم العضوية : 1182
المشاركات : 14
الجنس : ذكر
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 6
 offline 
look/images/icons/i1.gif كود لحذف المسافات الزائدة بين الحروف في بعض الجمل
السلام عليكم
جزاكم الله خيراً فقد أثريتم الموضوع بحسن تفاعلكم الإيجابي جعل الله اسهماتكم في ميزان حسناتكم ونفعنا بها شكرا للجميع
 

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




15-04-2018 07:22 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3625
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 285
قوة السمعة : 10084
الاعجاب : 3476
 offline 
look/images/icons/i1.gif كود لحذف المسافات الزائدة بين الحروف في بعض الجمل
وجزيت خيراً بمثل ما دعوت لنا أخي العزيز وائل .. وفقني الله وإياك لكل خير
تقبل تحياتي







الكلمات الدلالية
لحذف ، المسافات ، الزائدة ، الحروف ، الجمل ،


 







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



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

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