الحامد الشاكر قام بنشر ديسمبر 13, 2012 مشاركة قام بنشر ديسمبر 13, 2012 السادة الأعضاء المحترمين السلام عليكم ورحمة الله وبركاته يرجى الإطلاع على الملف المرفق والذي يبين الطلب مع جزيل الشكر Top Ten.zip رابط هذا التعليق شارك More sharing options...
عبد العزيز كمال قام بنشر ديسمبر 13, 2012 مشاركة قام بنشر ديسمبر 13, 2012 رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر ديسمبر 13, 2012 مشاركة قام بنشر ديسمبر 13, 2012 أليك أخي ماطلبت إظهار الزبائن العشرة.rar رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر ديسمبر 13, 2012 مشاركة قام بنشر ديسمبر 13, 2012 السلام عليكم هذة محاوله ارجو ان تكون ما طلبت تحياتي Top Ten+.rar رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر ديسمبر 13, 2012 مشاركة قام بنشر ديسمبر 13, 2012 أليك أخي بكل الطرق إظهار الزبائن العشرة 3.rar رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر ديسمبر 13, 2012 مشاركة قام بنشر ديسمبر 13, 2012 هذا بعد تعديل بسيط في الكود تحياتي Top Ten++++.rar رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر ديسمبر 13, 2012 مشاركة قام بنشر ديسمبر 13, 2012 السلام عليكم ورحمة الله وبركاته الاستاذ والحبيب محمود حفظك الله سبحانه وتعالى ورعاك وزادك من فضله علما ومعرفة ما شاء الله تبارك الرحمن معادلات وحلول رائعة تدل على امكانيات فائقة لتطويع المعادلات اللهم زد وبارك على استاذنا الفاضل محمود بالخير والبركات والسلام عليكم ورحمة الله وبركاته رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر ديسمبر 13, 2012 مشاركة قام بنشر ديسمبر 13, 2012 بارك الله فى إخوتى الأحبة المشاركين فى الموضوع على هذا المجهود الرائع ولاثراء الموضوع هذا حل باستخدام كود آخر Sub ragab() Application.ScreenUpdating = False LR = [A1000].End(xlUp).Row [H3:I1000].ClearContents For Each cl In Range("A3:A" & LR) x = Application.WorksheetFunction.CountIf(Range("A3:A" & cl.Row), cl) If x = 1 Then Arr = Arr & cl & "," Next Arr = Left(Arr, Len(Arr) - 1) For Each c In Split(Arr, ",") Cells([H1000].End(xlUp).Row + 1, 8) = c Next For Each cll In Range("H3:H" & [H1000].End(xlUp).Row) For Each cel In Range("A3:A" & LR) If cel = cll Then cll.Offset(0, 1) = cll.Offset(0, 1) + cel.Offset(0, 1) End If Next Next Range("H3:I" & [I1000].End(xlUp).Row).Sort Key1:=Range("I3"), Order1:=xlDescending Range("H13:I" & [I1000].End(xlUp).Row) = "" Application.ScreenUpdating = True End Sub Top Ten 2.rar رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر ديسمبر 13, 2012 مشاركة قام بنشر ديسمبر 13, 2012 أخي الحبيب ( عباس ) بصراحة كلماتك وتعبيراتك إن دلت فإنما تدل علي إنسان دمث الخلق ومحب لزملائة لأن هذه الكلمات لاتمت لي بصلة فكلمة الأستاذية لطالب يتلمس طريقة للعلم داخل هذا الصرح وفي وسط ا الخضم الهائل من عباقرة الوطن العربي كبيرة بل مستحيلة الثاني - تطويع وإجادة الحل في بعض المشاركات إنما هو توفيق من الله ورغبة في محاولة تقديم مايناسب الحلول العبقرية التي يقدمها أساتذتي في هذا الصرح وإن كان شتان بين ماأقدمة ومايقدمونة فشكرا جزيلا علي تشجيعك الطيب هذا وإن كان يدل علي مانكنة لبعضنا من حب وود كأعضاء وهذا أجمل مافي هذا الصرح أستاذي الجميل الرائع ( رجب جاويش ) أعمالك ومشاركاتك أصبحت مرجعا لنا نتعلم منها ماشاء الله وبارك الله فيك وزادك علما وأدام الله عز وجل المحبة بيننا كأخوة وأساتذة وأعضاء لأن هذا مايميز أعضاء هذا المنتدي رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر ديسمبر 14, 2012 مشاركة قام بنشر ديسمبر 14, 2012 أخى الحبيب / محمود لا يوجد ما يقال بعد هذا الكلام الرقيق جدا والبليغ جدا فجزاك الله عنا خير الجزاء رابط هذا التعليق شارك More sharing options...
الحامد الشاكر قام بنشر ديسمبر 14, 2012 الكاتب مشاركة قام بنشر ديسمبر 14, 2012 الأخوة بإذن الله محمود و رجب و دهمور و عبد العزيز ومع حفظ الألقاب شكراااااااااا لمساهمتكم القيمة بحق سلمت يداكم وجعلها في ميزان حسناتكم وفقككم الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان