كيفيه فصل النصوص عن الارقام في برنامج الاكسل Excel وجعل الارقام في عامود والنصوص في عامود

  

كيفيه فصل نصوص عن الارقام  في برنامج الاكسل Excel وجعل الارقام في عامود والنصوص في عامود 

مقدمه 

يعد إتقان صيغ Excel الأساسية أمرًا بالغ الأهمية للمبتدئين ليصبحوا على درجة عالية من الكفاءة في التحليل المالي . يعتبر Microsoft Excel قطعة برمجية قياسية في الصناعة في تحليل البيانات. يعد برنامج جداول بيانات Microsoft أيضًا أحد أكثر البرامج المفضلة من قبل المصرفيين الاستثماريين والمحللين الماليين في معالجة البيانات والنمذجة المالية والعرض التقديمي. سيوفر هذا الدليل نظرة عامة وقائمة بوظائف Excel الأساسية.

يمكن استخدام الصيغ لإجراء العديد من العمليات والمهام تلقائيًا. يمكن للمستخدمين كتابة الأرقام مباشرة في الصيغ أو استخدام مراجع الخلايا ، لذلك ستستخدم الصيغة أي بيانات تحتويها الخلايا المرجعية. 

يسمح لك التعامل الجيد مع الصيغ ببناء حلول أنيقة تتجنب التعقيد. لا يوجد شيء في Excel أكثر خطورة من التعقيد غير الضروري - فهو يجعل من المستحيل فهم ما إذا كان جدول البيانات يعمل بشكل صحيح بالفعل.

مما لا شك فيه ، ان استخدام صيغ تسهل الكثير وهي سهلة الاستخدام وستوفر لمستخدمي الإكسل الكثير من وقت العمل وتحسين كفاءة العمل بشكل كبير ,…

#فصل_النصوص_عن_الارقام_او_العكس

طبعا هناك عده طرق لفصل الارقام عن نصوص او العكس وكل طريقه لها متطلبات سواء عن طريق تحميل اداه للـ Excel او عن طريق المعالادات  والصيغ ومن هذه الطرق هي :

 الطريقة الاولى  Flash Fill 

هذه الميزه متوفره باصدارات اكسل 2013 فما فوق  ويمكن الوصول اليها عن طريق اختيار تبويب بيانات Data ثم Flash Fill 

 الطريقه الثانيه كتابه صيغ في الخليه طبعا هذه الصيغ متوفره ضمن مكتبه صيغ الاكسل لكن مطوله نوعا ما

 الطريقه الثالثه وهي اضافه اكواد في VBA وهي التي اريد اتطرق لها لانه باستطاعه اي شخص استخدامها بغض النظر عن اصدار الاكسل سواء كان 

2007،2010،2013،2016،2019 

الكل مستفاد من هذه الطريقه

صوره توضح الطريقه الاولى Flash Fill فصل الارقام عن نصوص او العكس في الاكسل

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

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

نفتح ملف عمل في الاكسل الذي يتواجد فيه بيانات  ثم نفتح محرد VBA بالضغط على Alt + F11 من كيبورد لتفتح لنا شاشه microsoft visual basic ,,

ثم نضغط على تبويب insert ونضيف Module ونكتب معادله الاولى ثم نكرر العمليه لاضافة 4 معادلات في كل Module معادله

بعد ما نضيف المعادلات ناتي الى استخدام المعادله في الخلية 

طبعا انه سويت جدولين حته ابين الكم اختلاف بين المعادلات الاربعه 

لنفرض عدنه بيانات نصوص + ارقام في الجداول الاول كالتالي : 

akram 489324

Fatema 2285

ahmed130

Zaynab 998812

karar 00113

Ali45567

 ونريد ان نفصل النصوص اي الاسماء عن الارقام او العكس ونضع الارقام في عامود والنصوص في عامود ثاني ومثل ما تعرفون الاكسل مبني على اعمده ونصوص وخلايا ،،،الاعمده بالاحرف الانجليزيه  والصفوف ارقام 

وفي مثالنا اعلاه البيانات في عامود N وصف 6 

🔸باستخدام معادله الاولى 

نضع مؤشر ماوس في خلية فارغه  ونكتب الصيغه التاليه 

=LetterOut(N6) 

ونضغط على مفتاح Enter من الكيبورد  سنلاحظ تم فصل الارقام عن نص ثم نضع مؤشر ماوس على خليه الرقم الى ان يصبح مؤشر على شكل علامه + ونضغط عليه نسحب الى نهايه البيانات لدينا وسنلاحظ تم فصل الارقام كالتالي 

849324

2285

130

998812

00113

45567

🔸اما لفصل النصوص نستخدم معادله ثانيه مع تطبيق الخطوات في المعادله الاولى وتكون صيغه ثانيه كالتالي 

=NumberOut(N6)

 اما اذا كان لدينا جدول فيه بيانات كالتالي نصوص + ارقام + نصوص في نفس الخليه ولفصل الارقام عن النصوص او العكس نستخدم المعادله الثالثه والرابعه ولنفرض لدينا جدول ثاني يحتوي على بيانات كالتالي

akram 482324 ail

Fatema 2275 Hussain

ahmed 130 muhsin

Zaynab 998812 karim

karar 00113 Tareq

Ali 45567 Mustafa

نلاحظ وجود اسم + ارقام + اسم في نفس الخليه وللعلم بيانات في عامود N وصف 15 

🔸ولفصل الارقام عن نصوص في عامود جديد نطبق نفس خطوات معادلات سابغه ونكتب الصيغه التاليه

=GetText(N15)

سنلاحط تم فصل الارقام عن نصوص 

ahmed ali 

Fatema  Hussain

ahmed  muhsin

Zaynab  karim

karar  Tareq

Ali  Mustafa

🔸 ولفصل الارقام عن نصوص في عامود جديد نكتب الصيغه التاليه 

=GetNumeric(N15)

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

ايضا سويت الكم فيديو يوضح خطوات الاربعه بالتفصيل 

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

صور توضح المعادلات كتابه الصيغ الأربعة في الخلايا

 فيديو يوضح كيف تم اضافه الاكواد في VBA وكيف تم كتابه الصيغ في الخلايا للمعادلات الاربعه

اكواد الاربعه التي تم اضافتها في VBA

#فصل النصوص

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

===================
#فصل النصوص

Function GetText(CellRef As String)
Dim StringLength As Integer
StringLength = Len(CellRef)
For i = 1 To StringLength
If Not (IsNumeric(Mid(CellRef, i, 1))) Then Result = Result & Mid(CellRef, i, 1)
Next i
GetText = Result
End Function

==========================
  #فصل الارقام

Function GetNumeric(CellRef As String)
Dim StringLength As Integer
StringLength = Len(CellRef)
For i = 1 To StringLength
If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1)
Next i
GetNumeric = Result
End Function

-------------------------------------

صلي على محمد وال محمد
اللهم صل على محمد وال محمد
=========================

قنواتي على التليكرام

@Computer_professionalism       هندسة الحاسبات
@book_pc_pro                          مكتبة خاصة بالكتب الحاسوب والبرمجة
@Vbs_net                       احتراف لغات البرمجة   
================================


دعائكم لوالدية 

# 

تعديل المقال