فصل الأرقام والنصوص في Excel: دليل شامل لاستخراج الأرقام والحروف بسهولة

في هذه المقالة، سنقدم شرحاً حول كيفية فصل الأرقام والنصوص في Excel. سنركز على كيفية استخراج الأرقام من خلية تحتوي على بيانات متنوعة تشمل أرقام ونصوص، بالإضافة إلى كيفية استخراج النصوص (الحروف) من خلايا تحتوي على أرقام ونصوص. على سبيل المثال، إذا كان لدينا خلية تحتوي على بيانات مثل "شيك 5462450012445"، فإن الهدف هو فصل رقم الشيك في خلية منفصلة.

استخراج الأرقام والحروف في Excel

خطوات تطبيق فصل الأرقام عن النصوص أو العكس

1- نستخدم فى هذة الشيت المعادلتين التاليتين :-

 (الخلية المراد التطبيق عليها لأستخلاص الأرقام)=letterout 

 (الخلية المراد التطبيق عليها لأستخلاص النصوص)=numperout

و لكن هذا المعادلات لا تعمل فى الاكسيل الإ باضافة أكواد فى مديول .

2- أضافة الاكواد فى مديول

• نضغط على في شيت الأكسيل alt+f11 علشان نفتح VBA .
• نختار insert module
• نضع الكود فى المديول والداله هتظهر فى الشيت ضع كل كود فى مديول لوحده

استخدام كود VBA لاستخراج الأرقام في Excel

Function LetterOut(rng As Range)

Dim i As Integer

For i = 1 To Len(rng)

Select Case Asc (Mid(rng.Value, i, 1))

Case 0 To 64, 123 To 197

LetterOut = LetterOut & Mid(rng.Value, i, 1)

End Select

Next i

End Function

استخدام كود VBA لاستخراج النصوص في Excel

Function NumberOut(rng As Range)

Dim i As Integer

For i = 1 To Len(rng)

Select Case Asc (Mid(rng.Value, i, 1))

Case 0 To 64, 123 To 197

Case Else

NumberOut = NumberOut & _

Mid(rng.Value, i, 1)

End Select

Next i

End Function

** قم بحفظ الأكواد ثم انتقل إلى صفحة ورقة العمل في Excel وقم بكتابة المعادلات، وهذا كل شيء ^_^

تحميل الشيت المطبق عليه الاكواد