أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


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





فصل القيم النصية والرقمية Split Text & Number

بسم الله الرحمن الرحيم اقدم لكم دالة معرفة لفصل القيم النصية عن القيم الرقمية لمشاهدة الروابط يلزمك التسجيل في أكاد ..



28-09-2017 03:02 مساء
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 

بسم الله الرحمن الرحيم
 
اقدم لكم دالة معرفة لفصل القيم النصية عن القيم الرقمية
 
كل ما علينا هو ان نضيف هذ الكود للدالة المعرفة بموديل كما بالصورة
 

كود الدالة
Public Function SplitText(WorkRng As Range, Number As Boolean) As String  
   Dim xLen As Long  
   Dim xStr As String  
   xLen = VBA.Len(WorkRng.Value)  
   For i = 1 To xLen  
     xStr = VBA.Mid(WorkRng.Value, i, 1)  
     If ((VBA.IsNumeric(xStr) And Number) Or (Not (VBA.IsNumeric(xStr)) And Not (Number))) Then  
       SplitText = SplitText + xStr  
     End If  
   Next  
 End Function  
طريقة كتابة الدالة


للقيم النصية
  =SplitText($A2;0)
 أو
=SplitText($A2;False)

للقيم الرقمية
=SplitText($A2;1)
أو
=SplitText($A2;TRUE)

كود اخر لفصل كل قيمة على حدا


الكود المستخدم للقيمتين

 Sub split_Text()  
   Dim xLen As Long  
   Dim xStr As String  
   Dim Rng As Range  
   For Each Rng In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)  
     xLen = VBA.Len(Rng.Value)  
     Rng.Offset(, 4).ClearContents  
     For i = 1 To xLen  
       xStr = VBA.Mid(Rng.Value, i, 1)  
       If Not (VBA.IsNumeric(xStr)) And Not (Number) Then  
         Rng.Offset(, 4) = Rng.Offset(, 4) + xStr  
       End If  
     Next i  
   Next Rng  
 End Sub  
 Sub Split_NUM()  
   Dim xLen As Long  
   Dim xStr As String  
   Dim Rng As Range  
   For Each Rng In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)  
     xLen = VBA.Len(Rng.Value)  
     Rng.Offset(, 5).ClearContents  
     For i = 1 To xLen  
       xStr = VBA.Mid(Rng.Value, i, 1)  
       If (VBA.IsNumeric(xStr)) And Not (Number) Then  
         Rng.Offset(, 5) = Rng.Offset(, 5) & xStr  
       End If  
     Next i  
   Next Rng  
 End Sub

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
ياسر العربي
142

توقيع :Yasser Elaraby
663013020


28-09-2017 03:38 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif فصل القيم النصية والرقمية Split Text & Number
بارك الله فيك أخي الحبيب ياسر العربي ومشكور على هذا الموضوع الهام .. جعله الله في ميزان حسناتك يوم القيامة

15-02-2018 12:51 مساء
مشاهدة مشاركة منفردة [2]
تاج الدين
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-02-2018
رقم العضوية : 4153
المشاركات : 38
الجنس : ذكر
تاريخ الميلاد : 4-11-66
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 46
 offline 
look/images/icons/i1.gif فصل القيم النصية والرقمية Split Text & Number
بارك الله فيك اخي العزيز

15-02-2018 04:43 مساء
مشاهدة مشاركة منفردة [3]
بكار للأبد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-01-2018
رقم العضوية : 3730
المشاركات : 282
الجنس : ذكر
تاريخ الميلاد : 13-9-1973
الدعوات : 2
يتابعهم : 6
يتابعونه : 10
قوة السمعة : 2206
 offline 
look/images/icons/i1.gif فصل القيم النصية والرقمية Split Text & Number
مبدع أينما كنت جزاك الله عنا خير الجزاء

21-08-2019 08:10 صباحا
مشاهدة مشاركة منفردة [4]
مراد
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1851
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 17-7-1979
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
 offline 
look/images/icons/i1.gif فصل القيم النصية والرقمية Split Text & Number
رائع جزاك الله خيراً

21-08-2019 08:32 صباحا
مشاهدة مشاركة منفردة [5]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 
look/images/icons/i1.gif فصل القيم النصية والرقمية Split Text & Number
56811
توقيع :Yasser Elaraby
663013020


22-08-2019 02:15 مساء
مشاهدة مشاركة منفردة [6]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif فصل القيم النصية والرقمية Split Text & Number
بارك الله فيك أخي وجعل الله لك هذا العمل في ميزان حسناتك يوم القيامة
 


لي طلب بعد إذن حضرتك


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





الكلمات الدلالية
القيم ، النصية ، والرقمية ، Split ، Text ، & ، Number ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 04:36 مساء