ملخص مبادئ المحاسبة

نستعرض فى هذة التدوينة شرح لطريقة فصل أو أستخلاص الأرقام من خلية بها بيانات تشمل أرقام و نصوص و كذلك العكس كيفية أستخلاص نصوص "الحروف" من خلايا تحتوي على بيانات عبارة عن ارقام و نصوص (مثال خلية : شيك 5462450012445 المطلوب هنا فصل رقم الشيك في خلية لوحده) .

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

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

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

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

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

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

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

كود إستخراج الأرقام

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

** حفظ الأكواد و الرجوع لصفحة شيت الأكسيل و كتابة المعادلات و بس ^_^

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

تعديل المقال