شمس الثورة قام بنشر سبتمبر 2, 2011 قام بنشر سبتمبر 2, 2011 هذا الكود هو لاحد الاخوة قد قام بعمله لى وهو الاستاذ هشام شلبى ما اريده هو تعديل بسيط وهو اريد ان يقوم الكود بترتيب الذكور اولا ثم يرتب بعدهم الاناث فهل هذا ممكن وجزاكم الله خيرا الترتيب البنين اولا ثم البنات .rar
بن علية حاجي قام بنشر سبتمبر 3, 2011 قام بنشر سبتمبر 3, 2011 السلام عليكم ورحمة الله أخي الكريم هذه محاولة في الملف المرفق إن شاء الله تجد فيها المطلوب... أخوك بن علية الترتيب البنين اولا ثم البنات.rar
دغيدى قام بنشر سبتمبر 3, 2011 قام بنشر سبتمبر 3, 2011 أخى الفاضل / بن علية كل عام وأنتم بخير الاسم الأول ( الصف السادس ) لا يدخل فى الترتيب عند تغيير النوع ( عندى ) شكرا
بن علية حاجي قام بنشر سبتمبر 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 أخوك بن علية
دغيدى قام بنشر سبتمبر 3, 2011 قام بنشر سبتمبر 3, 2011 السلام عليكم ورحمة الله شكرا أخى الكريم بعلمه على سرعة الرد
مجدى يونس قام بنشر سبتمبر 3, 2011 قام بنشر سبتمبر 3, 2011 الاخ بن علية كود رائع جزاك الله الخير ونورلك طريقك لى سؤال بسيط فى نفس الموضوع لو غيرنا بدل بنين وبنات مدارس ولنفرض اسماء 4 مدارس كيف يكون التغيير مجدى يونس
دغيدى قام بنشر سبتمبر 3, 2011 قام بنشر سبتمبر 3, 2011 تفضل /اخى مجدى تغيير بسيط فى الكود لكى يرتب الطلاب حسب الاسم بنين ثم بنات لكل مدرسةعلى حده ترتيب بنين بنات لكل مدرسة.rar
مجدى يونس قام بنشر سبتمبر 3, 2011 قام بنشر سبتمبر 3, 2011 الله ينور عليك عمل رائع والرد سريع مجدى يونس 1
بن علية حاجي قام بنشر سبتمبر 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
دغيدى قام بنشر سبتمبر 3, 2011 قام بنشر سبتمبر 3, 2011 أخى بن علية شكرا على ما تقدمه من علم أثابكم الله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.