فضل حسين قام بنشر يناير 30, 2012 مشاركة قام بنشر يناير 30, 2012 الى خبراء واعضاء منتداى العزيز والعظيم سلام الله عليكم ورحمته وبركاته مرفق ملف موضح به المطلوب .............. وجزاكم الله كل خير . وشكرا معرفة اول واخر رقم جلوس للقسم.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يناير 30, 2012 مشاركة قام بنشر يناير 30, 2012 السلام عليكم أخي الحبيب ضع المعادلة التالية في الخلية L7 =COUNTIF($C$2:$C$20,K5) ثم المعادلة التالية في الخلية K7 =SUMPRODUCT(MAX((B2:B20)*(C2:C20=K5))) ثم المعادلة التالية في الخلية J7 =SUMPRODUCT(SMALL((B2:B20)*(C2:C20=K5),COUNTA(C2:C20)-L7+1)) رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 30, 2012 مشاركة قام بنشر يناير 30, 2012 السلام عليكم اخي الفاضل فضل وبعد إذن الباشمهندس هذا الحل بالاكواد معرفة اول واخر رقم جلوس للقسم.rar رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر يناير 30, 2012 مشاركة قام بنشر يناير 30, 2012 (معدل) ما شاء الله أستا ذنا طارق حل بالمعادلات جميل جداً وأستاذنا المايسترو حل بالأكواد ولا أجمل قمت بتطبق المعادلات أستاذنا طارق في الصف الثامن ونفس نتائج الكود تم تعديل يناير 30, 2012 بواسطه الشهابي رابط هذا التعليق شارك More sharing options...
فضل حسين قام بنشر يناير 30, 2012 الكاتب مشاركة قام بنشر يناير 30, 2012 البشمهندس / طارق تسلم الايادى وتسلم العقول الجميلة التى سطرت هذه المعادلات الخطيرة . افكار للمعادلات رائعة مثل البشمهندس طارق الرائع . الف شكر يابشمهندس وربنا يخليك لنا دوما بفكرك العالى فأنت والله وبدون مبالغة شخصية فاضلة وعظيمة وتأتى دائما بحلول عظيمة . جزاك الله كل خير . المايسترو حبيب قلبى انت حكايتك معاية حكاية فأنت منظومة ابداعية غير عادية . متجدد دائما فى اكوادك ونرى الجديد دائما فى اكوادك . تشعرنى دائما بأنك ممكن تقود المطلوب باكثر من لحن وبأكثر من شكل ولكن دائما تفضل الاحدث . متمرد دائما على الافكار القديمة ودائما تأتى بالجديد وبدون نشاذ . ودائما تجعل امثالى الغلابة لابد ان يسألوا ويتعلموا من هذا الفن والجمال . فأرجو من سيادتك شرح بسيط لى trim و split و ubound الذين جاءوا بالكود الجميل . والف شكر لك يامايسترو حبيب قلبى . وللبشمهندس طارق الرائع رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يناير 31, 2012 مشاركة قام بنشر يناير 31, 2012 السلام عليكم و رحمة الله وبركاته بعد خالص التحية و التقدير الأستاذ المهندس طارق الأستاذ عبدالله مجرب هذا حل آخر باستخدام المصفوفات يعني تضع الداله ثم تضغط shift+ctrl+entr =MIN(IF($C$2:$C$27=$K$5;$B$2:$B$27)) =MAX(IF($C$2:$C$27=$K$5;$B$2:$B$27)) والتي تعلمتها من الأستاذ عمر الحسيني جزاه الله كل خير معرفة اول واخر رقم جلوس للقسم.rar رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر يناير 31, 2012 مشاركة قام بنشر يناير 31, 2012 أٍستاذنا الكبير / أحمد زمان ما شاء الله معادلات روعة ومختصرة جداً جزاكم الله خير بس عفواً يا جماعة ما الفرق بين معادلات الصفيف وغيرها ولماذا نضغط على shift+ctrl+entr بعد وضع الدالة أرجو أن توضحوا لنا ذلك والعفو منكم رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 31, 2012 مشاركة قام بنشر يناير 31, 2012 السلام عليكم اخي فضل اولاً هذا الشرح لما طلبت انت والاخ الفاضل الشهابي ثانياً هذا الكود الجديد (مع التعديل الصحيح) Sub Abu_Ahmed1() Application.ScreenUpdating = False Dim cl As Range For Each cl In [C2:C20] If cl = [K5] Then m = m & Trim(cl.Offset(0, -1)) & "," Min_V = Trim(cl.Offset(0, -1)) End If Next No_V = UBound(Split(m, ",")) For Each c In Split(Mid(m, 1, Len(m) - 1), ",") If Val(c) > Val(max_V) Then max_V = c If Val(c) < Val(Min_V) Then Min_V = c Next [j9] = Min_V: [K9] = max_V: [L9] = No_V Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر يناير 31, 2012 مشاركة قام بنشر يناير 31, 2012 جزاك الله خير استاذنا / أبو أحمد رابط هذا التعليق شارك More sharing options...
فضل حسين قام بنشر فبراير 1, 2012 الكاتب مشاركة قام بنشر فبراير 1, 2012 استاذى الكبير / المايسترو الف الف الف شكر على هذا الشرح الوافى الجميل .استمتع بهذا الشرح واستفد منه . بارك الله فيك وجزاك الله كل خير . ربنا يباركلك ويزيدك علما . رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 1, 2012 مشاركة قام بنشر فبراير 1, 2012 حياك الله اخي فضل وان شاء الله نراك عما قريب من عباقرة الاكواد رابط هذا التعليق شارك More sharing options...
فضل حسين قام بنشر فبراير 2, 2012 الكاتب مشاركة قام بنشر فبراير 2, 2012 (معدل) حبيب قلبى المايسترو ربنا يخليك ليه وشكرا ياحبيبى على المجاملة الجميلة دى ويسمع منك ربنا واصبح كما قلت . اثلجت صدرى واشعرتنى بالامل . وعلى فكرة انت مثلى الاعلى فى العطاء والعلم . والله مش عارف اقولك ايه يامايسترو غير اننى احبك فى الله . تم تعديل فبراير 2, 2012 بواسطه فضل 1 رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 2, 2012 مشاركة قام بنشر فبراير 2, 2012 السلام عليكم اخي فضل احبك الله الذي احببتني فيه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.