ابو تميم قام بنشر مارس 2, 2012 مشاركة قام بنشر مارس 2, 2012 تحياتي من الأعماق إلى علمائنا الاعزاء يوجد لدينا ملف اكسل يحتوي على مجموعة من الأكواد التي تتكون من أحرف ثابته وأرقام غير متسلسلة وغير مرتبه تسلسليا المطلوب من الملف هو إيجاد القيمة الأكبر في هذه الأكواد من ناحية الرقم طبعا لأن الأحرف ثابته وكتابة الكود الأكبر في الخلية ذات اللون الأصفر ولكم أجمل تحية وتقدير على جهودكم إيجاد أكبر قيمة من مجموعة أكواد تحتوي على أرقام وحروف ثابته.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مارس 2, 2012 مشاركة قام بنشر مارس 2, 2012 السلام عليكم ورحمة الله أخي الكريم، في الملف المرفق تجد معادلة صفيف وليس كودا تقوم بتعيين المطلوب... أخوك بن علية إيجاد أكبر قيمة من مجموعة أكواد تحتوي على أرقام وحروف ثابته.rar رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر مارس 2, 2012 مشاركة قام بنشر مارس 2, 2012 الاخ الفاضل بن علية السلام عليكم بكل الحب والتقدير احيك احسنت قم بمسح بعض الارقام وتابع الناتج او قم باضافة اكواد وتابع رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر مارس 2, 2012 الكاتب مشاركة قام بنشر مارس 2, 2012 شكرا أخي بن عليه ولكن الملف الذي أرفقته لي لا يعمل ويعطيني رسالة خطأ عند فتحه ويتم إغلاقه تلقائيا أرجو التأكد من الملف وإعادة رفعه لطفا شكرا لتعاونك رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مارس 2, 2012 مشاركة قام بنشر مارس 2, 2012 السلام عليكم ورحمة الله أخي الكريم والحبيب أحمد البحيري لقد قمت بتعديلات على المعادلة مع إضافة التسمية Plage لنطاق عمود الأكواد (باعتبار الفراغات -فقط- في خلايا هذا العمود)... بالنسبة للأخ أبو تميم أعتقد أن المشكل هو أن الملف الذي عملته في نسخة أوفيس 2003 يحتوي على كود VBA في Module1 وإن كان فارغا لكن في العادة عند فتحه في أوفيس 2007 أو 2010 يقوم بإلغاء الأكواد ثم يعيد فتحه مصححا ودون أكواد... وقد حذفت الأكواد من الملف من المفروض أنك لا تجد أي خلل في الملف... وإن ظهر لك أي مشكل أعيد إرسال الملف بنسخة أوفيس 2010... أخوكم بن علية إيجاد أكبر قيمة من مجموعة أكواد تحتوي على أرقام وحروف ثابته.rar رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر مارس 2, 2012 مشاركة قام بنشر مارس 2, 2012 احسنت حبيبى كده تمام استاذ معادلات رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مارس 2, 2012 مشاركة قام بنشر مارس 2, 2012 السلام عليكم إثراء للموضوع هذا حل آخر بمعادلة صفيف أخرى لا تتأثر بتغيير نوع أو عدد الحروف الثابتة الموجودة فى الكود إيجاد أكبر قيمة من مجموعة أكواد تحتوي على أرقام وحروف ثابته حل آخر2.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مارس 3, 2012 مشاركة قام بنشر مارس 3, 2012 السلام عليكم الاستاذ الفاضل بن عليه حل جميل سلمت يمينك (اما تتبعني واما اتبعك) الاخ رجب معادلة رائعة (ان شاء الله نراك متفاعلاً دوماً) === اخي ابو تميم هذا حل بالكود وبه ميزة معادلة الاخ رجب 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 رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر مارس 3, 2012 الكاتب مشاركة قام بنشر مارس 3, 2012 شكرا للجميع على التعاون وعلى هذه الحلول الرهيبة شكرا أخي ابو احمد حقيقة أنا كنت بحاجة إلى كود لأن الملف الذي عندي يحتوي على كود وأرغب بدمج مجموعة الأكواد معا في كود واحد لتنفيذ أكثر من موضوع بنفس الزر لذلك طرحت السؤال بطلب كود على وجه التحديد الكود الذي تفضل به الاخ عبد الله المجرب ابو احمد يعمل بشكل جيد وتم حل المشكلة وتمت الاجابة على السؤال شكرا للجميع دائما أستفيد منكم بما هو مفيد وممتع سواء من ناحية الاكواد او من ناحية المعادلات جزاكم الله خيرا وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مارس 3, 2012 مشاركة قام بنشر مارس 3, 2012 الأستاذ الفاضل / عبد الله المجرب الف شكر على هذا التشجيع الجميل الذى يدفعنى الى بذل مزيد من الجهد وسلمت يمينك على هذا الكود الرائع أخوك / رجب جاويش رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان