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

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

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

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

1- نستخدم فى هذة الشيت المعادلتين التاليتين :-
 (الخلية المراد التطبيق عليها لأستخلاص الأرقام)=letterout 
 (الخلية المراد التطبيق عليها لأستخلاص النصوص)=numperout
و لكن هذا المعادلات لا تعمل فى الاكسيل الإ باضافة أكواد فى مديول .
لأستخلاص الأرقام
2- أضافة الاكواد فى مديول
  • نضغط على في شيت الأكسيل alt+f11 علشان نفتح VBA .
  • نختار insert module
  • نضع الكود فى المديول والداله هتظهر فى الشيت ضع كل كود فى مديول لوحده
كود VBN لأستخلاص الأرقام , النصوص

استخدام كود 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 وقم بكتابة المعادلات، وهذا كل شيء ^_^

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

تعليقات



حجم الخط
+
16
-
تباعد السطور
+
2
-