My Blog My WordPress Blog
فصل-الارقام-عن-النصوص-بالأكسيل.png" alt="" class="wp-image-579"/>
فصل-الارقام-عن-النصوص-بالأكسيل.png" alt="" class="wp-image-580"/>نستعرض فى هذة التدوينة شرح لطريقة فصل أو أستخلاص الأرقام من خلية بها بيانات تشمل أرقام و نصوص و كذلك العكس كيفية أستخلاص نصوص “الحروف” من خلايا تحتوي على بيانات عبارة عن ارقام و نصوص (مثال خلية : شيك 5462450012445 المطلوب هنا فصل رقم الشيك في خلية لوحده) .
خطوات تطبيق فصل الأرقام عن النصوص أو العكس
1- نستخدم فى هذة الشيت المعادلتين التاليتين :-
(الخلية المراد التطبيق عليها لأستخلاص الأرقام)=letterout
(الخلية المراد التطبيق عليها لأستخلاص النصوص)=numperout
و لكن هذا المعادلات لا تعمل فى الاكسيل الإ باضافة أكواد فى مديول .
فصل** نضغط على في شيت الأكسيل alt+f11 علشان نفتح VBA .
** نختار insert module
** نضع الكود فى المديول والداله هتظهر فى الشيت ضع كل كود فى مديول لوحده
النصوص" border="0" height="360" src="https://post.acc-arabs.com/wp-content/uploads/2023/05/1683808366_401_فصل-الارقام-عن-النصوص-بالأكسيل.png" title="كود VBN لأستخلاص الأرقام , النصوص" width="640"/>كود إستخراج الأرقام
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
كود إستخراج الحروف
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
** حفظ الأكواد و الرجوع لصفحة شيت الأكسيل و كتابة المعادلات و بس ^_^