ياسر خليل أبو البراء

أخي الكريم يوسف عطا جرب الكود التالي ..ستظهر النتائج في العمود O ..يمكنك التعديل في الكود لتضع النتائج في العمود المناسب لك Sub Split() Dim Arr, I As Long, StrA As String, StrB As String Arr = Range("F2", Cells(Rows.Count, "F").End(xlUp)).Value For I = LBound(Arr) To UBound(Arr) StrA = VBA.Split(Arr(I, 1), " ")(0) StrB = VBA.Split(Arr(I, 1), " ")(1) If StrB = "MIN" And Val(StrA) = "0" Then Cells(I + 1, "O") = 0.01 ElseIf StrB = "MIN" Then Cells(I + 1, "O") = Val(StrA) ElseIf StrB = "KBs" Then Cells(I + 1, "O") = Val(StrA) / 1000 Else Cells(I + 1, "O") = StrA End If Next I End Sub أرجو أن يفي بالغرض .. ملحوظة : تم التعامل مع الأصفار 00:00 بجانب كلمة MIN على أنها 0.01 كما أدرجت في النتائج المرفقة رغم أنه غير منطقي .. تقبل تحياتي

بالنسبة للأسماء المركبة سيكون الأمر بنسبة كبيرة ولكن لن تكون بنسبة 100% ... فكرتك جميلة ولكن مرهقة في أنك ستضظر إلى كتابة 1 أو 2 لكل اسم ...فهل هذا منطقى؟

تم الرد في رسالة خاصة

أخي الكريم سامي فهمت قصدك من كون أن الأرقام 0 - 2 - 5 - 8 لابد أن تكون موجودة في الرقم ..تمام ماذا تريد أن تفعل في هذه الحالة ؟ وهل لابد أن تكون الأرقام الغير مكررة 4 ؟؟ أم أنه يمكن أن يكون مع الأرقام 0 - 2 - 5 - 8 أرقام أخرى ؟؟؟ أفضل أن ترفق شكل النتائج المتوقعة ..ماذا تريد من الكود أو المعادلة أن يحقق ؟؟ وماذا عن توزيع الأرقام إلى أرقام فردية كما فعل أخونا رجب هل هو مطلوب أم أنك تريد الحصول على النتائج إذا أمكن بدونها صراحة أسئلة كثيرة تدور في الموضوع .. وعدم إرفاق شكل النتائج المتوقعة يزيد الموضوع غموض أفضل إرفاق ملف به بعض البيانات للعمل عليها (بيانات خااااااااااااام بدون أية معادلات وبدون أعمدة زائدة) فقط البيانات الخام التي تريد العمل عليها وتوضح في الأعمدة المجاورة شكل النتائج المتوقعة تقبل تحياتي

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

أبي الحبيب أبو يوسف حاشا لله أن تكون مقصوص الجناح ولديك إخوان في كل مكان ..فنحن لك أجنحة حلق بها إلى حيث تشاء إليك الملف فيه المثال المذكور مرتين مرة بدون مسافات قبل وبعد الاسم ومرة بمسافة قبل وبعد الاسم .. والمعادلات تعطي نفس النتيجة أي لا تتأثر المعادلة بالمسافات قبل وبعد إذا أردت أن تكون النتائج بشكل مختلف أخبرنا في الحال تقبل تحياتي Test.rar

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

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

أخي الكريم سامي مشكور على تغيير اسم الظهور للغة العربية حاولت أفهم المشاركة الأخيرة لك ولكن يبدو ان التوضيح يحتاج لمزيد من التوضيح هلا أرفقت بعض من شكل النتائج المتوقعة لكي يسهل الوصول لحل تقبل تحياتي

أخي الكريم سامي أهلاً بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية كما يرجى توضيح المطلوب أكثر ..هل الأرقام التي سيتم معها أرقام ثابتة في الطول (7 أرقام لكل رقم)؟ .. هل هناك بيانات أخرى غير رقمية ضمن النطاق ؟ .. هل تريد توزيع الأرقام في الأعمدة المجاورة وفقط ؟ أم أنك تريد توزيعها بشروط ؟؟ وإذا كانت الشروط كما ذكرت أن الأرقام لابد أن تحتوي على 0 أو 2 أو 5 أو 8 ..فماذا لو لم ينطبق الشرط؟

أخي الحبيب محمد حسن أبو يوسف قم بتجربة المعادلات على ملف مرفق وضع مسافات قبل وبعد الكلمات وجربها ..وشوف النتائج وأخبرنا .. في انتظار التجربة ونتائجها

قم بضغط ملفك ثم قم برفع الملف لتتضح صورة طلبك وتجد استجابة من إخوانك بالمنتدى

حاشا لله أن يعاندني الحق ..أخي الغالي أحمد عاندك حق !!! ومن أنا حتى أقف في وجه الحق .. وفقني الله وإياكم لما فيه الخير والصلاح تقبل هزاري

وجزيت خيراً أخي الحبيب بمثل ما دعوت لنا قم بالإطلاع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى لمعرفة التعامل بشكل أفضل مع المنتدى تقبل تحياتي

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

العنوان الموضوع من قبل كلمة واحدة فقط "سؤال" وكما تعلم "السؤال لغير الله مذلة" .. طبعاً إلا السؤال لطلب العلم فهو أمر محبوب تقبل تحياتي

ملحوظة أخرى : جرب تدخل اسم ثنائي أو رباعي أو خماسي ..بخلاف الاسم الثلاثي ...النتائج لن تكون صحيحة في أي حالة أخرى من ثم أرى أن الدالة المعرفة ما زالت الأقوى فيما يخص تلك المشكلة أرجو أن يتسع صدرك للملاحطات

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

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

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

أخي الكريم أحمد محمد جرب المعادلة التالية في الخلية C3 .. =IF(A3="","",(LEN(" "&SUBSTITUTE(A3," "," ")&" ")-LEN(SUBSTITUTE(" "&SUBSTITUTE(A3," "," ")&" "," "&B3&" ","")))/LEN(" "&B3&" ")) إذا لم تعمل معك المعادلة قم باستبدال الفاصلة العادية الموجودة في المعادلة بفاصلة منقوطة تقبل تحياتي

عايز تسأل خليك واحدة واحدة عشان الأعضاء يقدروا يردوا عليك في كل نقطة بالنسبة لسؤالك عن INSTR أنصحك بالحلقة الـ 11 من حلقات افتح الباب

أخي الكريم محي الدين تم تغيير العنوان ليتناسب مع الموضوع ..يراعى ذلك الأمر عند طرح موضوعات جديدة تقبل تحياتي

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

أخي الحبيب محمد حاول توضح المشكلة بشيء من التفصيل ولو مدعم بالصور ليدرك الأعضاء المشكلة ويبدأون في التعامل معها .. موضوع مشاركة الملفات لا تجد الكثيرين على علم به فالرجاء الصبر وتوضيح المشكلة بشكل تفصيلي تقبل تحياتي