(تمت االاجابة) تحديد أكبرقيمة بين الأكواد التي تحتوي على أحرف ثابته وأرقام غير متسلسلة

[ابو تميم]

تحياتي من الأعماق إلى علمائنا الاعزاء

يوجد لدينا ملف اكسل يحتوي على مجموعة من الأكواد التي تتكون من أحرف ثابته وأرقام غير متسلسلة وغير مرتبه تسلسليا

المطلوب من الملف هو إيجاد القيمة الأكبر في هذه الأكواد من ناحية الرقم طبعا لأن الأحرف ثابته وكتابة الكود الأكبر في الخلية ذات اللون الأصفر

ولكم أجمل تحية وتقدير على جهودكم

إيجاد أكبر قيمة من مجموعة أكواد تحتوي على أرقام وحروف ثابته.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، في الملف المرفق تجد معادلة صفيف وليس كودا تقوم بتعيين المطلوب...

أخوك بن علية

إيجاد أكبر قيمة من مجموعة أكواد تحتوي على أرقام وحروف ثابته.rar

[Ahmed Elbhiry]

الاخ الفاضل بن علية

السلام عليكم

بكل الحب والتقدير احيك

احسنت قم بمسح بعض الارقام وتابع الناتج او قم باضافة اكواد وتابع

[ابو تميم]

شكرا أخي بن عليه

ولكن الملف الذي أرفقته لي لا يعمل ويعطيني رسالة خطأ عند فتحه ويتم إغلاقه تلقائيا

أرجو التأكد من الملف وإعادة رفعه لطفا

شكرا لتعاونك

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم والحبيب أحمد البحيري لقد قمت بتعديلات على المعادلة مع إضافة التسمية Plage لنطاق عمود الأكواد (باعتبار الفراغات -فقط- في خلايا هذا العمود)... بالنسبة للأخ أبو تميم أعتقد أن المشكل هو أن الملف الذي عملته في نسخة أوفيس 2003 يحتوي على كود VBA في Module1 وإن كان فارغا لكن في العادة عند فتحه في أوفيس 2007 أو 2010 يقوم بإلغاء الأكواد ثم يعيد فتحه مصححا ودون أكواد... وقد حذفت الأكواد من الملف من المفروض أنك لا تجد أي خلل في الملف... وإن ظهر لك أي مشكل أعيد إرسال الملف بنسخة أوفيس 2010...

أخوكم بن علية

إيجاد أكبر قيمة من مجموعة أكواد تحتوي على أرقام وحروف ثابته.rar

[Ahmed Elbhiry]

احسنت حبيبى كده تمام

استاذ معادلات

[رجب جاويش]

السلام عليكم

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

إيجاد أكبر قيمة من مجموعة أكواد تحتوي على أرقام وحروف ثابته حل آخر2.rar

[عبدالله المجرب]

السلام عليكم

الاستاذ الفاضل بن عليه حل جميل سلمت يمينك (اما تتبعني واما اتبعك)

الاخ رجب معادلة رائعة (ان شاء الله نراك متفاعلاً دوماً)

===

اخي ابو تميم هذا حل بالكود وبه ميزة معادلة الاخ رجب

Sub Abu_Ahmed_Max()

For i = 6 To [b1000].End(xlUp).Row

w = Mid(Cells(i, 2), 1, InStr(Cells(i, 2), "-"))

ww = Val(Mid(Cells(i, 2), InStr(Cells(i, 2), "-") + 1, 6))

If ww > k Then k = ww: R = w

Next

[d6] = R & k

End Sub

[ابو تميم]

شكرا للجميع على التعاون وعلى هذه الحلول الرهيبة

شكرا أخي ابو احمد

حقيقة أنا كنت بحاجة إلى كود لأن الملف الذي عندي يحتوي على كود وأرغب بدمج مجموعة الأكواد معا في كود واحد لتنفيذ أكثر من موضوع بنفس الزر لذلك طرحت السؤال بطلب كود على وجه التحديد

الكود الذي تفضل به الاخ عبد الله المجرب ابو احمد يعمل بشكل جيد وتم حل المشكلة وتمت الاجابة على السؤال

شكرا للجميع دائما أستفيد منكم بما هو مفيد وممتع سواء من ناحية الاكواد او من ناحية المعادلات

جزاكم الله خيرا وبارك الله فيكم

[رجب جاويش]

الأستاذ الفاضل / عبد الله المجرب

الف شكر على هذا التشجيع الجميل الذى يدفعنى الى بذل مزيد من الجهد

وسلمت يمينك على هذا الكود الرائع

أخوك / رجب جاويش