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

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


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



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





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

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



23-08-2019 07:18 مساء
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 67
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 

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

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







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

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




23-08-2019 08:09 مساء
مشاهدة مشاركة منفردة [2]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 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


 

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


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

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


23-08-2019 08:26 مساء
مشاهدة مشاركة منفردة [3]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 67
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 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
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
جرب التعديل بالمشاركة رقم اتنين تعديل رقم اتنين

 

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


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

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


23-08-2019 11:25 مساء
مشاهدة مشاركة منفردة [5]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1440
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 9048
الاعجاب : 195
 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



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




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

شبوه يا د ف ع ه smile

حبيبي biggrin2

أثارت هذه المشاركة إعجاب: Eslam Abdullah، الصقر،


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

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


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

شبوه يا د ف ع ه smile

حبيبي biggrin2

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

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




23-08-2019 11:48 مساء
مشاهدة مشاركة منفردة [8]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 67
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 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
المشاركات : 67
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 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
المشاركات : 1440
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 9048
الاعجاب : 195
 offline 
look/images/icons/i1.gif طلب تعديل في دالة معرفة لفصل القيم النصية
ايه دا فى الكودين مره واحده ، ايه اللى جرا فى العالم ياجودعااااااان blink
وبعدين تطلع مشكله فى اكواد المنتدى دا كوم وتيجى عندى وتعشق وتركن على جنب ومعلش احنا بنتكلم
ليه بقى انت هنا تتعامل مع جندى مدرب على احدث الاسلحه فى العالم وممكن فى اى لحظة تهور اطخك بالنار

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

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

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

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



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




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

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


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

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

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




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

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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فورم اضافة ومسح وحذف وتعديل و بحث بعددة طرق مختلفة مجدى يونس
7 80 مجدى يونس
فورم اضافة وتعديل وحذف وحفظ الملف مجدى يونس
7 46 YasserKhalil
مساعدة في تعديل كود جمع القيم المبتدأ
8 53 YasserKhalil
اريد برنامج قابل للتعديل يعتبر مثل قاعدة البيانات للموظفين لدي في الشركة عبد الله السعيد
6 80 ابراهيم الحداد
تعديل كود ترحيل من صفحة الى أخرى بدون تكرار اسم الفندق فى نفس التاريخ مهند محسن
16 336 مهند محسن

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


 







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



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

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