الدالة NUMBEROUT

[bachiri401]

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

الاخوة الخبراء

قمت بنسخ كود الدالة NUMBEROUT  من احد الملفات التى وجدتها على الانترنت  لكن وجدت به بعض المشاكل

فهو لا يتعرف على الحرف الف بالهمزة 

ويقوم بدمج الاسماء  اي هو لا يتعرف الفراغ بين الكلمتين

لذا الرجاء تصحيح الكود

فصل الاسم عن الرقم الملتصق به.xlsm

[بن علية حاجي]

السلام عليكم

تم عمل المطلوب في الملف المرفق...

بن علية حاجي

فصل الاسم عن الرقم الملتصق به.xlsm

[سليم حاصبيا]

بعد اذن اخي بن علية 

رب هذه الدالة

Option Explicit
Function Text_in(rng As Range)
With CreateObject("VbScript.RegExp")
  .Global = True
  .Pattern = "([\u0621-\u064A]+)"
  If Not (.Test(rng.Value)) Then _
   Text_in = vbNullString: Exit Function
   Text_in = .Execute(rng.Value)(0)
End With
End Function

الملف مرفق

 

 

separate_names.xlsm

[bachiri401]

بارك الله فيكم جميعا خبراء المنتدى وجعل عملكم في ميزان حسناتكم

ملف الاخ بن علية يعمل 100 ب 100  وهو ما طلبته

اما ملف الاخ سليم عند كتابة اكثر من كلمة في الخلية فانه لا يستدعي الا الكلمة الاولى 

 

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

[سليم حاصبيا]

انت لم تقل انك تريد كل الكلمات

على كل حال  حاري العمل على استخراج الكل

لكن بداية هل تريد ان تكون النتيجة في خلية واحدة  اما  كل كلمة في خلية

في البداية الكل مجتمعين

الكود

Option Explicit

Function Text_ALL(rng As Range)
Dim i%, x$
With CreateObject("VbScript.RegExp")
  .Global = True
  .Pattern = "([\u0621-\u064A]+)"
  If Not (.Test(rng.Value)) Then _
      Text_ALL = vbNullString: Exit Function
   For i = 0 To .Execute(rng.Value).Count - 1
      x = x & " " & .Execute(rng.Value)(i).Value
   Next i
   Text_ALL = x
End With
End Function

الملف

 

separate_names_new.xlsm

[bachiri401]

بارك الله فيك اخ سليم عمل ممتاز مثلما طلبت بالضبط

ادامك الله عونا لنا 

الكود يعمل 100 ب 100