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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





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

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



28-09-2017 03:02 مساء
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8656
الاعجاب : 465
موقعي : زيارة موقعي
 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


أثارت هذه المشاركة إعجاب: مراد، YasserKhalil، محمود ابو الدهب،


توقيع :Yasser Elaraby
663013020




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





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





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





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





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



توقيع :Yasser Elaraby
663013020



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


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


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






23-08-2019 02:36 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif فصل القيم النصية والرقمية Split Text & Number
أخي الكريم 
يفضل طرح طلبك في موضوع مستقل في قسم أسئلة الإكسيل

أثارت هذه المشاركة إعجاب: hassona229،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل في دالة معرفة لفصل القيم النصية hassona229
20 229 Eslam Abdullah

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


 







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



الساعة الآن 07:43 مساء

أعلن هنا
أعلن هنا
أعلن هنا