اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

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

قام بنشر

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

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

أخوك بن علية

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

قام بنشر

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

السلام عليكم

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

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

قام بنشر

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

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

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

شكرا لتعاونك

قام بنشر

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

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

أخوكم بن علية

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

قام بنشر

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

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

قام بنشر

السلام عليكم

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

إيجاد أكبر قيمة من مجموعة أكواد تحتوي على أرقام وحروف ثابته حل آخر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

قام بنشر

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

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

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

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

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

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

قام بنشر

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information