logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



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





28-09-2017 03:02 مساءً
بسم الله الرحمن الرحيم

اقدم لكم دالة معرفة لفصل القيم النصية عن القيم الرقمية

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

887788989877

كود الدالة
CODE
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  

طريقة كتابة الدالة


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

أو
CODE
=SplitText($A2;False)


للقيم الرقمية
CODE
=SplitText($A2;1)

أو
CODE
=SplitText($A2;TRUE)


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


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

 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

<code> </code>
لتحميل الملف اضغط هنا
ياسر العربي 142



توقيع :Yasser Elaraby
663013020

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




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




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




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




look/images/icons/i1.gif فصل القيم النصية والرقمية Split Text & Number
  21-08-2019 08:32 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
56811



توقيع :Yasser Elaraby
663013020

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

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




look/images/icons/i1.gif فصل القيم النصية والرقمية Split Text & Number
  23-08-2019 02:36 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
أخي الكريم
يفضل طرح طلبك في موضوع مستقل في قسم أسئلة الإكسيل




اضافة رد جديد اضافة موضوع جديد



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

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









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

الساعة الآن 11:42 AM