شمس الثورة قام بنشر سبتمبر 2, 2011 مشاركة قام بنشر سبتمبر 2, 2011 هذا الكود هو لاحد الاخوة قد قام بعمله لى وهو الاستاذ هشام شلبى ما اريده هو تعديل بسيط وهو اريد ان يقوم الكود بترتيب الذكور اولا ثم يرتب بعدهم الاناث فهل هذا ممكن وجزاكم الله خيرا الترتيب البنين اولا ثم البنات .rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر سبتمبر 3, 2011 مشاركة قام بنشر سبتمبر 3, 2011 السلام عليكم ورحمة الله أخي الكريم هذه محاولة في الملف المرفق إن شاء الله تجد فيها المطلوب... أخوك بن علية الترتيب البنين اولا ثم البنات.rar رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر سبتمبر 3, 2011 مشاركة قام بنشر سبتمبر 3, 2011 أخى الفاضل / بن علية كل عام وأنتم بخير الاسم الأول ( الصف السادس ) لا يدخل فى الترتيب عند تغيير النوع ( عندى ) شكرا رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر سبتمبر 3, 2011 مشاركة قام بنشر سبتمبر 3, 2011 السلام عليكم ورحمة الله أخى الفاضل / بن علية كل عام وأنتم بخير الاسم الأول ( الصف السادس ) لا يدخل فى الترتيب عند تغيير النوع ( عندى ) شكرا أخي الحبيب جمال، استبدل الكود في الملف Private Sub Worksheet_Change(ByVal Target As Range) Range("C6:AY1000").Sort Key1:=Range("C5"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("C6:AY1000").Sort Key1:=Range("AP5"), Order1:=xlDescending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub بالكود التالي: Private Sub Worksheet_Change(ByVal Target As Range) Range("C6:AY1000").Sort Key1:=Range("C5"), Order1:=xlAscending, Header:= _ xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("C6:AY1000").Sort Key1:=Range("AP5"), Order1:=xlDescending, Header:= _ xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub والمشكل كان في الجزء Header:= xlGuess من الكود واستبدلته بـ Header:= xlNo أخوك بن علية رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر سبتمبر 3, 2011 مشاركة قام بنشر سبتمبر 3, 2011 السلام عليكم ورحمة الله شكرا أخى الكريم بعلمه على سرعة الرد رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر سبتمبر 3, 2011 مشاركة قام بنشر سبتمبر 3, 2011 الاخ بن علية كود رائع جزاك الله الخير ونورلك طريقك لى سؤال بسيط فى نفس الموضوع لو غيرنا بدل بنين وبنات مدارس ولنفرض اسماء 4 مدارس كيف يكون التغيير مجدى يونس رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر سبتمبر 3, 2011 مشاركة قام بنشر سبتمبر 3, 2011 تفضل /اخى مجدى تغيير بسيط فى الكود لكى يرتب الطلاب حسب الاسم بنين ثم بنات لكل مدرسةعلى حده ترتيب بنين بنات لكل مدرسة.rar رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر سبتمبر 3, 2011 مشاركة قام بنشر سبتمبر 3, 2011 الله ينور عليك عمل رائع والرد سريع مجدى يونس 1 رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر سبتمبر 3, 2011 مشاركة قام بنشر سبتمبر 3, 2011 الأخ / مجدى يونس الله ينور عليك وعلى والديك رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر سبتمبر 3, 2011 مشاركة قام بنشر سبتمبر 3, 2011 (معدل) السلام عليكم ورحمة الله إخواني الكرام تبسيطا للكود الذي وضعه أخي الحبيب جمال أضع بين أيديكم الكود التالي (الفرز لثلاثة أعمدة):[ Private Sub Worksheet_Change(ByVal Target As Range) Range("C6:AY1000").Sort Key1:=Range("AY6"), Order1:=xlAscending, Key2:=Range("AP6"), _ Order2:=xlDescending, Key3:=Range("C6"), Order3:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:= _ xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal End Sub أخوكم بن علية تم تعديل سبتمبر 3, 2011 بواسطه hben 1 رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر سبتمبر 3, 2011 مشاركة قام بنشر سبتمبر 3, 2011 أخى بن علية شكرا على ما تقدمه من علم أثابكم الله رابط هذا التعليق شارك 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.