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

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


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


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





طلب تعديل في دالة معرفة لفصل القيم النصية

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



23-08-2019 07:18 مساء
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 201
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 472
الاعجاب : 49
 offline 
طلب تعديل في دالة معرفة لفصل القيم النصية عن التاريخ
الموجوده في هذا الموضوع
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

اريد ان يكون كلمة شيك بتاريخ في خانه
والتاريخ في خانه
مثلا : ( شيك بتاريخ ٢٥-٨ )





23-08-2019 07:48 مساء
مشاهدة مشاركة منفردة [1]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1461
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
قوة السمعة : 9277
الاعجاب : 1
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
عشان بس دخل فى دماغى كام استفسار
ارفع ملف بكام مثال وقول النتيجه عايزها كذا حلها يدوى يعنى
بس وكل شئ بسيط بإذن الله تعالى




23-08-2019 08:09 مساء
مشاهدة مشاركة منفردة [2]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4309
الاعجاب : 0
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
على العموم جرب التعديل التالى بعد اذن الاستاذ اسلام عبدالله لحين التوضيح اكثر وانا متأكد عندها ستجد حلول افضل بكثير

الدالة الجديده 
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 (xStr = "-" And Number)) Or (Not (VBA.IsNumeric(xStr)) And Not (Number) And Not xStr = "-")) Then
       SplitText = SplitText + xStr
     End If
   Next
 End Function


على فرض انك تكتب باى خلية كلمة        شيك بتاريخ 25-8-2019

ولكن يجب ان يكون التنسيق بعلامه - وليس / 

عندها ستجد النتيجه النصية : شيك بتاريخ
والنتيجه الرقمية : 25-8-2019


او

جرب التعديل التالى اذا كان الفاصل بين الارقام / او - سيتم اضافته الى الارقام
Public Function SplitText(WorkRng As Range, Number As Boolean) As String
   Dim xLen As Long
   Dim xStr As String
   Dim n    As String
   xLen = VBA.Len(WorkRng.Value)
   For i = 1 To xLen
     xStr = VBA.Mid(WorkRng.Value, i, 1)
     If xStr = "-" Then n = "-" Else n = "/"
     If (((VBA.IsNumeric(xStr) And Number) Or (xStr = n And Number)) Or (Not (VBA.IsNumeric(xStr)) And Not (Number) And Not xStr = n)) Then
       SplitText = SplitText + xStr
     End If
   Next
 End Function


 



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

23-08-2019 08:26 مساء
مشاهدة مشاركة منفردة [3]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 201
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 472
الاعجاب : 49
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
 
 
  Book1.zip   تحميل zip مرات التحميل :(6)
الحجم :(6.639) KB





23-08-2019 08:38 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4309
الاعجاب : 0
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
جرب التعديل بالمشاركة رقم اتنين تعديل رقم اتنين

 



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

23-08-2019 11:25 مساء
مشاهدة مشاركة منفردة [5]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1461
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
قوة السمعة : 9277
الاعجاب : 1
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
اليك هذا التاتش ياحوده
الدالة المعرفه TND على اساس T=Text و N=Number و D=Date biggrin2 
كود الدالة

Function TND(txt As String, v As String)
Dim i%, chk$, t$, n$, d$, b$, break As Boolean
    b = Mid(v, 2, 1)
        For i = 1 To Len(txt) + 1
            If Len(v) = 2 Then break = Mid(txt, i, 2) Like b & "#" Or Mid(txt, IIf(i - 1 = 0, 1, i - 1), 2) Like "#" & b
            If IsNumeric(Mid(txt, i, 1)) Or break Then
                chk = chk & Mid(txt, i, 1)
            Else
                If IsDate(Replace(chk, b, "/")) Then d = d & IIf(d = "", Replace(chk, b, "/"), "") Else n = n & Replace(chk, b, "")
                chk = ""
                t = t & Mid(txt, i, 1)
            End If
        Next i
        Select Case LCase(v)
            Case "t", "t" & b: TND = t
            Case "d" & b: If d = "" And b <> "" Then TND = "" Else TND = DateValue(d)
            Case "n", "n" & b: TND = IIf(n = "", "", Val(n))
            Case Else: TND = CVErr(xlErrValue)
        End Select
End Function

طيب الدالة بتعمل ايه (قلبظ بجنيه)
اول باراميتر دخل النص
والتانى
اما T لاستخراج النص او T/  اى T والفاصل بين التاريخ وذلك لاستبعاد تنسيقات التاريخ من النص
واما N لاستخراج الرقم او N/ اى N والفاصل بين التاريخ وذلك لاستبعاد تنسيقات التاريخ من الرقم
واما /D لاستخراج التاريخ نفس الكلام هنا / الفاصل ولازم تكتب الفاصل لو هتستخرج تاريخ (تقدر تكتب اى فاصل عدا علامة * وعلامة ؟)

فى حالة استخراج رقم او تارخ هتخرج بقيمتها الرقميه
يعنى لما تطلع تاريخ نسق انت الخلية بالشكل اللى انت عايزه ياغالى

يعنى اسم الدالة كل حرف فيها يستخرج حاجه ، شوفت بسيطه ازاى biggrin2






23-08-2019 11:29 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4309
الاعجاب : 0
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
يا راجل يا مستقظ كل ده ما السطرين حلوبن وخلاص بس نعمل ايه للتاتشات بتاعتك 

شبوه يا د ف ع ه smile

حبيبي biggrin2



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

23-08-2019 11:36 مساء
مشاهدة مشاركة منفردة [7]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1461
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
قوة السمعة : 9277
الاعجاب : 1
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب
يا راجل يا مستقظ كل ده ما السطرين حلوبن وخلاص بس نعمل ايه للتاتشات بتاعتك 

شبوه يا د ف ع ه smile

حبيبي biggrin2

انا مستقظ blink لا مسمحش بكدا طول عمرى مستنام مش بستيقظ انا biggrin2




23-08-2019 11:48 مساء
مشاهدة مشاركة منفردة [8]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 201
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 472
الاعجاب : 49
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
جزاكم الله خيرا وجعل الله هذا العمل في ميزان حسناتكم يوم القيامه

يوجد مشكله بسيطة بالنسبه للكود الأول مرفق ملف يوضح المشكله
 
 
 
  SplitText.zip   تحميل zip مرات التحميل :(2)
الحجم :(20.714) KB





23-08-2019 11:58 مساء
مشاهدة مشاركة منفردة [9]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 201
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 472
الاعجاب : 49
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
جزاكم الله خيرا وجعل الله هذا العمل في ميزان حسناتكم يوم القيامه

يوجد مشكله بالنسبه للتاتش الاستاذ Eslam Abdullah
مرفق ملف يوضح المشكله
 
 
  Text.zip   تحميل zip مرات التحميل :(1)
الحجم :(14.22) KB





24-08-2019 12:21 صباحا
مشاهدة مشاركة منفردة [10]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1461
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
قوة السمعة : 9277
الاعجاب : 1
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
ايه دا فى الكودين مره واحده ، ايه اللى جرا فى العالم ياجودعااااااان blink
وبعدين تطلع مشكله فى اكواد المنتدى دا كوم وتيجى عندى وتعشق وتركن على جنب ومعلش احنا بنتكلم
ليه بقى انت هنا تتعامل مع جندى مدرب على احدث الاسلحه فى العالم وممكن فى اى لحظة تهور اطخك بالنار

احم احم من غير لوك لوك بقى انت كتبت D وبس، اولم اقل اكتب D والفاصل بين التاريخ
يعنى انت الفاصل هنا عامله العلامة - يبقى تكتب كدا D- ولو علامة / يبقى تكتب كدا D/ تمام اغالى biggrin2

او شغلها على الاتنين كدا مثلا وكبر الدى وروق الجى

=TND($A2,"d"&IF(ISNUMBER(FIND("-",A2)),"-","/"))

وفيه طرق كتير اسهل تستخدم اكتر من فاصل فى وقت واحد بس زى ما تقول كدا كسلت biggrin2
سيبك انت من الكلام دا وتعالى اشرب شيشه تفاااااااح 121






24-08-2019 12:30 صباحا
مشاهدة مشاركة منفردة [11]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 201
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 472
الاعجاب : 49
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
المشاركة الأصلية كتبت بواسطة: Eslam Abdullah
ايه دا فى الكودين مره واحده ، ايه اللى جرا فى العالم ياجودعااااااان blink
وبعدين تطلع مشكله فى اكواد المنتدى دا كود وتيجى عندى وتعشق وتركن على جنب
ليه بقى انت هنا تتعامل مع جندى مدرب على احدث الاسلحه فى العالم وممكن فى اى لحظة تهور اطخك بالنار

احم احم من غير لوك لوك بقى انت كتبت D وبس، اولم اقل اكتب D والفاصل بين التاريخ
يعنى انت الفاصل هنا عامله العلامة - يبقى تكتب كدا D- ولو علامة / يبقى تكتب كدا D/ تمام اغالى biggrin2


سيبك انت من الكلام دا وتعالى اشرب شيشه تفاااااااح 121

جزاكم الله خيرا وتسلم ايديك




24-08-2019 12:33 صباحا
مشاهدة مشاركة منفردة [12]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1461
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
قوة السمعة : 9277
الاعجاب : 1
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
وجزاك الله خيرا ياغالى
سايب حقك من الشيشا تفاح برضوا مستنيك biggrin2

عارف ليه عشان انت ابن حلال واسمك فكرنى بالذى مضى
فكرنى بالواد حسونه اللى مع بكار ورشيده
ابو كف رئيئ وصغير بكاااار biggrin2






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل على معادلة لمنع تكرار الاسماء في نتائج القائمة المنسدلة ابو طيبه
7 100 ابو طيبه
تعديل على كود الترحيل واستدعاء بيانات من شيت لاخر وعمل قائمة منسدله ابو طيبه
14 298 ابو طيبه
اكسل | كيفية فتح ملف اكسل للقراءة فقط والتعديل علية Excel VBA emad ghazi
1 54 emad ghazi
تعديل على معادله القائمة المنسدلة ابو طيبه
1 90 ابو طيبه
تعديل على كود التوزيع علي بطيخ سالم
2 68 علي بطيخ سالم

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


 







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

الساعة الآن 02:13 مساء

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