فصل الأرقام عن الحروف

[Mostafa Moawad]

السلام عليكم

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

Search.xlsx

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

ربما يكون الحل

Function Salim_Extract(Txt$, Patt$, Optional Itm = 1)
 Dim Regex As Object
 Dim My_match As Object
 On Error GoTo Bay_Bay
 Set Regex = CreateObject("VBScript.RegExp")
  With Regex
   .Pattern = Patt
   .Global = True
  End With
  If Regex.test(Txt) Then
   Set My_match = Regex.Execute(Txt)
   Salim_Extract = My_match(Itm - 1)
   Exit Function
  End If
Bay_Bay:

Salim_Extract = ""
End Function

الملف مرفق

Mostafa Moawad.xlsm

[Mostafa Moawad]

متشكر جدا لمجهود حضرتك ربنا يباركلك ودائما بنستفاد من اجاباتك

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

تم تعديل ديسمبر 13, 2020 بواسطه Mostafa Moawad

[ابو يحيى1]

السلام عليكم اخى الكريم

يمكنك مراجعة رد استاذنا سليم حاصبيا جزاه الله خيراً فى الموضوع ادناه

https://www.officena.net/ib/topic/79368-فصل-الارقام-عن-النص/?tab=comments#comment-508669

 

[خيماوي كووول]

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

يوجد لديك طريقتين .. اخوي العزيز ..

اضافة .. تم وضع معادلة .. في الخلية F2 .. لإظهار الارقام

ايضا تم وضع كود .. في الخلية C2 .. لاظهار الرقم ..

extractnameandnumber.xlsm

[Mostafa Moawad]

ماشاء الله بارك الله فيكم جميعا متشكر جدا لمجهودكم العظيم ومتشكر جدا للعضو خيماوي

وشكر خاص جدا لاستاذنا سليم اللي دايما بيبهرنا باجاباته الجميله