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

[ابو حمادة]

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

الاخوة الاجلاء

ممكن المساعده في وضع كود لفصل الارقام والحروف كما موضح في الصوره الاتيه

مرفق ملف للمطلوب 

ولكم جزيل الشكر

فصل الارقام عن الحروف.rar

 

 

 

 

 

 

[ياسر خليل أبو البراء]

وعليكم السلام

قم بإدراج موديول جديد وضع الدالة المعرفة التالية فيه

Function AlphaNum(txt As String, Optional numOnly As Boolean = True) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = IIf(numOnly = True, "\D+", "-?\d+(\.\d+)?")
        .Global = True
        AlphaNum = .Replace(txt, "")
    End With
End Function

ثم في حدث الفورم ضع الكود التالي

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox3.Value = AlphaNum(TextBox1.Value, 0)
    TextBox2.Value = AlphaNum(TextBox1.Value, 1)
End Sub

 

[ابو حمادة]

الف الف شكر استاذي الغالي جزاك الله خيرا

 

[ياسر خليل أبو البراء]

وجزيت خيراً أخي الكريم أبو حماده بمثل ما دعوت لي

[حليم ناصر]

سلام عليكم

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

زجزاك الله خيرا وكل الاغضاء

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

[ابو حمادة]

8 ساعات مضت, حليم ناصر said:

سلام عليكم

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

زجزاك الله خيرا وكل الاغضاء

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

حاضر اخي الكريم

الملف 

جاهز

فصل الارقام عن الحروف.rar

 

[ياسر خليل أبو البراء]

أخي الكريم حليم

لابد من معرفة الأساسيات للتعامل مع المنتدى بشكل ميسر لك ولغيرك

وقد خصصت لذلك موضوع من فترة أرجو أن يفيدك إن شاء الله

رابط الموضوع من هنا

[حليم ناصر]

سلام عليكم 

اخي ابو حمادة  اخي ياسر خليل أبو البراء 

جزاكم الله خيرا وكل الاغظاء وجعلها في ميزان حسناتكم

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