سالم سالم قام بنشر أغسطس 10, 2018 مشاركة قام بنشر أغسطس 10, 2018 السلام عليكم ورحمة الله وبركاته برجاء التعديل على كود الترتيب الموجود بحيث المجموع الأكبر أولاً وإذا تساوى المجموع فالسن الأصغر يكون أولاً جزاكم الله خيراً sort.xlsm رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أغسطس 10, 2018 مشاركة قام بنشر أغسطس 10, 2018 السلام عليكم ورحمة الله استخدم هذا الكود بدلا من الكود السابق Sub sort() Range("b3:f24").Select Selection.sort Key1:=Range("D3"), Order1:=xlDescending, Key2:=Range("e3"), Order2:=xlAscending Dim C As Range, x As Integer For Each C In Range("D3:D24") x = WorksheetFunction.Rank(C, Range("D3:D24")) If C.Offset(-1, 0) = C.Value Then C.Offset(0, 3) = x + 1 Else C.Offset(0, 3) = x End If Next Range("b3").Select End Sub رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 10, 2018 مشاركة قام بنشر أغسطس 10, 2018 السلام عليكم ورحمة الله أولا أبدل الكود الموجود في الملف بالكود التالي (تبسيط): Sub sort() Range("B3:F24").sort Key1:=Range("D3"), Order1:=xlDescending, _ key2:=Range("E3"), Order2:=xlAscending End Sub وثانيا أعد حجز الأعداد الموجودة في عمودي "المجموع" و "السن" (لأن فيها خلل لم أستطع فهمه) خاصة التي فيها المجاميع متساوية... والله أعلى وأعلم رابط هذا التعليق شارك More sharing options...
سالم سالم قام بنشر أغسطس 11, 2018 الكاتب مشاركة قام بنشر أغسطس 11, 2018 السلام عليكم الأخ /ابراهيم الحداد بارك الله فيك تم استبدال الكود ولم يتم المطلوب الأخ/ بن علية حاجي بارك الله فيك تم استبدال الكود ولم يتم المطلوب شاهدا المرفق sort.xlsm رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 11, 2018 مشاركة قام بنشر أغسطس 11, 2018 السلام عليكم ورحمة الله نعم قمت باستبدال الكود ولكن لم تقم بما طلبته منك ثانيا: "أعد حجز الأعداد الموجودة في عمودي "المجموع" و "السن" (لأن فيها خلل لم أستطع فهمه) خاصة التي فيها المجاميع متساوية..." وأرسل لك الملف ثانية بعد إعادة حجز قيم المجاميع (من جديد) بالنسبة للمجاميع المتساوية... ثم تنفيذ الكود الذي أرسلته لك والذي قام بالعملية بنجاح... والله أعلى وأعلم sort (2).xlsm رابط هذا التعليق شارك More sharing options...
سالم سالم قام بنشر أغسطس 12, 2018 الكاتب مشاركة قام بنشر أغسطس 12, 2018 السلام عليكم الأخ/ بن علية حاجي بارك الله فيك وجزاك خيراً ... الملف اصبح تمام .... ولكن كيف تتم ثانيا وثانيا أعد حجز الأعداد الموجودة في عمودي "المجموع" و "السن" (لأن فيها خلل لم أستطع فهمه) خاصة التي فيها المجاميع متساوية... رابط هذا التعليق شارك More sharing options...
سالم سالم قام بنشر أغسطس 14, 2018 الكاتب مشاركة قام بنشر أغسطس 14, 2018 السلام عليكم الأخ/ بن علية حاجي بارك الله فيك وجزاك خيراً ... الملف اصبح تمام .... ولكن كيف تتم ثانيا وثانيا أعد حجز الأعداد الموجودة في عمودي "المجموع" و "السن" (لأن فيها خلل لم أستطع فهمه) خاصة التي فيها المجاميع متساوية... رابط هذا التعليق شارك 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.