مصطفى كمال متولى قام بنشر أغسطس 15, 2017 مشاركة قام بنشر أغسطس 15, 2017 المطلوب : عند الترحيل يتم ترتيب الوظيفة وليس ترتيب الاسماء توزيع لجان المدرسة1.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 15, 2017 مشاركة قام بنشر أغسطس 15, 2017 السلام عليكم .. لم تحدد ورقة العمل المطلوب العمل عليها والنطاق المطلوب العمل عليه بالضبط .. لا أحب العمل على التخمين ثانياً المدخلات لابد من أن تكون صحيحة لتحصل على نتائج صحيحة .. ففي العمود الثالث في ورقة العمل "القائمة" توجد مسافات زائدة في نهاية البيانات (في معظم الوظائف وليس كلها) ، لذا يجب تصحيح البيانات قبل تنفيذ الكود .. جرب الكود التالي .. حيث يقوم بترتيب العمود الثالث بحسب الترتيب الذي تفضلت به ، ويرتب أيضاً العمود الثاني .. أي أن كل مجموعة وظائف محددة سيتم ترتيب الأسماء وفقاً لهذه الوظيفة Sub Sort_Custom() Dim n As Long Application.AddCustomList Array("كبير معلمين", "معلم خبير", "معلم اول أ", "معلم اول", "معلم", "معلم مساعد", "ادارى") n = Application.CustomListCount With Sheets("القائمة") .Range("B6:F" & .Cells(Rows.Count, 2).End(xlUp).Row).Sort Key1:=.Range("C6"), Key2:=.Range("B6"), Header:=xlYes, OrderCustom:=n + 1 End With Application.DeleteCustomList n End Sub رابط هذا التعليق شارك More sharing options...
مصطفى كمال متولى قام بنشر أغسطس 15, 2017 الكاتب مشاركة قام بنشر أغسطس 15, 2017 السلام عليكم ورحمة الله الاستاذ ياسر شكرا على سرعة الرد ده شيت الاستاذ عبد الله خبور كان لترحيل الطلبة على الفصول وانا عدلت فيه ترحيل اللجان ورقة العمل المطلوب العمل عليها هى (ترحيل المعلمين) عند الضغط على ترحيل kh-start وعند الترحيل فى شيت (القائمة ) يتم ترتيب الوظيفة وليس ترتيب الاسماء رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 15, 2017 مشاركة قام بنشر أغسطس 15, 2017 في الكود المقدم عدل اسم ورقة العمل وعدل النطاق .. واضبط العمود المطلوب الترتيب على أساسه الكود بسيط يمكن التعديل عليه بما يتناسب مع الورقة الأخرى .. رابط هذا التعليق شارك More sharing options...
مصطفى كمال متولى قام بنشر أغسطس 16, 2017 الكاتب مشاركة قام بنشر أغسطس 16, 2017 لو سمحت حاولت دون جدوى التعديل فى شيت القائمة برجاء اضافة الكود على الملف والتجربة وشكرا لاهتمامكم ورقة العمل المطلوب العمل عليها هى (ترحيل المعلمين) عند الضغط على ترحيل kh-startوعند الترحيل فى شيت (القائمة ) وهو المطلوب للطباعة ترحل الاسماء بترتيب الوظيفة وليس ترتيب الاسماء رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 16, 2017 مشاركة قام بنشر أغسطس 16, 2017 يمكن إضافة الكود المقدم في الموديول بشكل عادي .. وفي الكود المسمى kh_start قبل سطر النهاية End Sub ضع هذا السطر Call Sort_Custom رابط هذا التعليق شارك More sharing options...
مصطفى كمال متولى قام بنشر أغسطس 16, 2017 الكاتب مشاركة قام بنشر أغسطس 16, 2017 اسف تعبتك معايا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 16, 2017 مشاركة قام بنشر أغسطس 16, 2017 الصورة معناها أنه لم يتم وضع الكود الذي وضعته لك في الموديول .. قم بوضع الكود في نفس الموديول وجرب مرة أخرى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان