عادل جلال

الأخ/ عمر الحسينى ( أبو تامر ) السلام عليكم ورحمة الله وبركاته اللغة العربية بكل كلماتها و ألفاظها ومعانيها تعجز عن أن تصفك و تشكرك على تعاونك مع تلميذك بارك الله فيك وفى ذريتك وجعله فى ميزان حسناتك بالمناسبة أعتزر لك عن عدم تكملة المحادثة معك عبر الماسنجر وذلك لظرف خارج عن إرادتى وهو إنقطاع التيار الكهرباء وعندما وصلت لم أجدك أتمنى أن تتكرر المحادثة مع تحياتى

هل يمكن تعديل مدى تنفيذ كود دون الدخول للمديول السلام عليكم ورحمة الله وبركاته [sub MacroFil1() Sheets("Adel").Range("a7:r7").Select Selection.AutoFill Destination:=Range("a7:r10") Range("A4").Select End Sub الكود السابق يقوم بتكرار نسخ الصف السابع حتى الصف العاشر بطريقة ألية كما موضح فى المدىRange("a7:r10") أود تكراره حتى الصف العشرين مثلاّ (دون الدخول إلى الموديول ) . أود التعديل فى المديول وربطه بخلية معينة فى أحد أوراق العمل وعندما أريد التعديل فى عدد الصفوف أعدل فقط فى هذه الخلية وهذا العديل يتم مباشرة فى الكود بمعنى جعل رقم 10 مرتبط بخلية فى أحد أوراق العمل أو بأى طريقة أخرى تؤدى المطلوب تحياتى

بارك الله فيك ممتاز أكمل

الأخ الفاضل / مجاهد السلام عليكم ورحمة الله وبركاته أشكرك على تعاونك معى هل الموضوع أغلق من وجهة نظرك ؟ أم ننتظرك تحياتى

الأخ الفاضل / مجاهد السلام عليكم ورحمة الله وبركاته فى إنتظارك الأن الساعة العاشرة

الأخ الفاضل / مجاهد السلام عليكم ورحمة الله وبركاته أشكرك على تعاونك معى بحمد الله تمت التجربة والنتيجة ممتازة وفقك الله وجعله فى ميزان حسناتك ياريت تفتح الياهو عندما تكون على النت لو ما عندك مانع مع تحياتى

الأخ/ مجاهد ياريت تفتح الياهو عندما تكون على النت مع تحياتى

الأخ الفاضل / مجاهد السلام عليكم ورحمة الله وبركاته أشكرك على تعاونك معى وجارى التجربة

الأخ الفاضل السلام عليكم ورحمة الله وبركاته قف فى الخلية المرادالكتابة بها ثم من قائمة تنسيق أختر تنسيق شرطى ثم قيمة الخلية ثم أختر أقل من ثم تنسيق ثم خط أختر اللون ثم موافق مع تحياتى

بارك الله فيك ووفقك الى ما فيه الخير وجعله فى ميزان حسناتك على بركة الله أكمل

الأخ الفاضل / مجاهد السلام عليكم ورحمة الله وبركاته أشكرك على تعاونك معى وعلى بركة الله أكمل تابع معى جيداَ لقد قمت بإضافة صفحتان هما ( رصد الدور الثانى والدور الثانى ) إلى برنامج الكنترول كالآتى : - ورقة رصد الدور الثانى هى مثل ورقة رصد الترم الأول و ورقة الدور الثانى هى مثل ورقة الشيت حتى عمود الملاحظات فقط وهذه الورقة تأخذ الدرجات من الشيت الأصلى بعد الفرز مثلاَ( الصف العاشر) وتضعها فى (الصف الحادى عشر ) وتأخد درجات من ورقة رصد الدور الثانى مثلاَ ( الصف السابع ) وتضعها فى ( الصف العاشر ) ولكن عند عمل تكرار لهذين الصفين بعدد طلاب الدور الثانى أختلفت المعادلات عن المطلوب بمعنى الصف العاشر فى ورقة الدور الثانى = الصف السابع فى ورقة رصد الدور الثانى الصف الحادى عشر فى ورقة الدور الثانى = الصف العاشر فى ورقة الشيت الأصلى بعد التحديد والسحب الصف الثانى عشر فى ورقة الدور الثانى = الصف التاسع( المفروض الثامن ) فى ورقة رصد الدور الثانى الصف الثالث عشر فى ورقة الدور الثانى = الصف الثانى عشر( المفروض الحادى عشر ) فى ورقة الشيت الأصلى هل من طريقة للتصحيح مع تحياتى

الأخ الفاضل / مجاهد السلام عليكم ورحمة الله وبركاته أشكرك على تعاونك معى بالنسبة لحساب المجموع الأخ الفاضل رئيس الكنترول لديكم يشكر على إجتهاده وطريقة عمله ولكن لدى نشرة من الوزارة ترجح كلامى الموثق بالأدلة فى الصفحة رقم ( 13 ) والدليل يمكنك الحصول عليه من مديريتكم التعليمية وهو : - نشرة رقم ( 94 ) بتاريخ 7/10/2000 بشأن : تعليمات امتحانات النقل بالمرحلة الإعدادية والتقدم لامتحان النقل من الخارج لعام 2000 / 2001 تنفيذاَ لقانون التعليم 139 لسنة 1981 والمعدل بالقانون 233 لسنة 1988 والقرار الوزارى193 فى 17/6/1990 والقرار الوزارى112 فى 7/5/1996 والقرار الوزارى466 فى14/9/1999 والقرار الوزارى168 فى 19/8/2000 قد تكون النشرة قديمة لكنها مطابقة لنشرة العام الماضى وللأسف ليس لدى نشرة العام الماضى نظراَ لعدم عملى بالكنترول عدة سنوات ماضية ولوكانت موجودة لبعثتها لكم عبر الأميل فأتمنى حساب المجموع بهذه الطريقة حتى لاأثقل عليك بالنسبة للمسار الخاص عمل ممتاز أكمل على بركة الله لى فكرة ( أود عمل ورقة لإدخال درجات الدور الثانى - بها أعمدة للمواد فقط - وعمل ورقة للدور الثانى - مثل الشيت - وربطها بالأولى وبورقة الفصل الدراسى الثانى وسحب بعدد الطلاب ) والسلام عليكم ورحمة الله وبركاته

الأخ الفاضل الأستاذ/ مجاهد السلام عليكم ورحمة الله وبركاته أشكرك شكراَ جزيلاَ على سرعة ردك واتمنى لك التوفيق العمل عندكم مثل العمل عندنا ولكن فى امتحانات النقل الطالب الناجح فى امتحان الدور الثانى ينقل آليا للصف التالى بغض النظر عن المجموع فلايهتم الكثير بصحة حساب المجموع ولصحة ما أقول تتبع ما يحدث فى امتحان الدورالثانى فى الشهادات العامة حيث ينسق حسب مجموعه الجديد وتآتى شهادة الدور الثانى كل خانة مقسومة قطرياَ وبها الدرجتين قبل وبعد وقد تعلمنا ذلك من اساتذتنا الكبار فى الكنترول ورأيناه بأعيننا. وفقك الله لعمل المطلوب وجعله فى ميزان حسناتك أضيف الآتى:- طالب الدور الثانى إذا نجح إنتقل إلى الصف التالىويكتب له فى الملاحظات ناجح ومنقول للصف ..... وإذا رسب ينظر إلى حالة قيده إذاكانت حالته منقول أو مستجد يكتب له فى الملاحظات له حق الإعادة فى الصف..... أما إذاكانت حالته باق يكتب له فى الملاحظات مسار خاص مع تحياتى

الأخ/ مجاهد السلام عليكم ورحمة الله وبركاته أشكرك شكراَ جزيلاَ على سرعة ردك واتمنى لك التوفيق العمل الذى قمت به على مادة اللغة العربية ممتاز ويفى بالمطلوب والحمد لله ولكن عندما كررت الصفوف تغيرت دالة if أصبحت الخلية H5 تتغير إلى H8 وهذا غير مطلوب يجب أن تظل H5 ثابتة فكما تعلمنا منكم أساتذة المنتدى العظيم غيرتها إلى (H$5 $أو كتابة النهاية الصغرى بدل منها) لى بعض الأسئلة لو تسمح لى 1- هل يمكن ربط هذه الورقة بورقة الدور الأول وأخذ منها بيانات الطلبة الغير ناجحين وذلك بعد عملية الفرز وإستبعاد الطلبة الناجحين حتى يكون العمل أسهل ولا نقوم بإدخال البيانات مرة أخرى؟ 2-إذا أمكن تحقيق السؤال الأول كيف يمكن إدراج الصفين الجديدين ( الصف العلوى والصف السفلى - المخفى - )؟ 3- عملية تكرار الصفوف بعد طلاب الدور الثانى هل تكون يدوية ام تكون آلية بكود ؟ يفضل بكود بالنسبة لحساب المجموع فى امتحان الدور الثانى:- 1- إذا كان المجموع الكلى للطالب فى امتحان الدور الأول أصغر من 140 درجة ودخل امتحان الدور الثانى ونجح فى جميع مواد رسوبه وأصبح مجموعه الكلى 140 درجة أو أكثر يظل 140 درجة فقط. مثال المجموع الكلى للطالب فى امتحان الدور الأول 130 درجة وكانت درجة الرياضيات فى امتحان الدور الأول 20 درجة ودرجته فى الدور الثانى 40 درجة فيكون المجموع الجديد هو 140 درجة فقط وليس 150 درجة . 2- إذا كان المجموع الكلى للطالب فى امتحان الدور الأول 140 درجة أو أكثر ودخل امتحان الدور الثانى ونجح فى جميع مواد رسوبه فيتم زيادة المجموع الكلى بقيمة الفرق بين النهاية الصغرى لمادة رسوبه فى امتحان الدور الأول ودرجة الدور الأول مثال المجموع الكلى للطالب فى امتحان الدور الأول 150 درجة وكانت درجة الرياضيات فى امتحان الدور الأول 20 درجة ودرجته فى الدور الثانى 40 درجة فيكون المجموع الجديد هو 154 درجة فقط المجموع الكلى = 150 + ( 24 - 20 )= 150 +4 = 154 أو المجموع الكلى =(150 - 20 ) +24 =130+24=154 كما تحب وهكذا .... على باقى المواد أتمنى أن يكون كلامى واضح مع تحياتى

الأخ/ مجاهد السلام عليكم ورحمة الله وبركاته أشكرك شكراَ جزيلاَ على مداخلتك واتمنى لك التوفيق أولاَ شكل الشيت :- شيت الدور الثانى هو نفس شيت الدور الأول ويتم نقل درجات الطلاب غير الناجحين فى امتحان الدور الأول فقط فى شيت الدور الثانى بشرط ترك صف علوى لكل طالب بحيث توضع درجة امتحان الدور الثانى فى هذا الصف العلوى المتروك وتوضع فى خانة المجموع الكلى لكل مادة ويترك باقى الخانات لنفس المادة فارغاّ ثانياّ طريقة العمل:- الطالب الغير ناجح له الحق فى دخول امتحان الدور الثانى فى جميع المواد ( سواء نجح أو لم ينجح فيهم فى الدور الأول ) 1- فى حالة نجاح الطالب فى امتحان الدور الأول فى مادة العربى مثلاَ ودخل امتحان الدور الثانى فى مادة العربى إذا حصل على درجة أقل من درجة امتحان الدور الأول فى نفس المادة لاينظر لها ولاتتغير نتيجته وإذا حصل على درجة أكبر من درجة امتحان الدور الأول فى نفس المادة يستفيد الطالب من الفرق بين الدرجتين فى رفع المجموع الكلى حتى يصل المجموع الكلى 140 درجة 2-فى حالة رسوب الطالب فى امتحان الدور الأول فى مادة العربى مثلاَ ودخل امتحان الدور الثانى فى مادة العربى تعتبر درجة الدور الأول = صفراَ ويتم التعامل مع درجة الدور الثانى وهكذا.... فى جميع المواد .وتوجد طرق لكيفية حساب مجموع طالب الدور الثانى أتمنى ان اكون عرضت شكل العمل بامتحان الدور الثانى ومستعد لأى استفسار مع تحياتى

الأخوة الأفاضل/ مراقبين- مشرفين-أعضاء السلام عليكم ورحمة الله وبركاته هذا الموضوع مرفوع منذ أكثر من عشرة أيام ولم أجد إجابة فيه الرجا الدخول تحياتى

السلام عليكم ورحمة الله وبركاته إقتراح ممتاز أتمنى التنفيذ تحياتى

الأخ/أبو أسامة السلام عليكم ورحمة الله وبركاته أشكرك على سرعة ردك بارك الله فيك تحياتى

الأخ/أبو أسامة السلام عليكم ورحمة الله وبركاته أشكرك على سرعة تعاونك بالنسبة للقرص هو E وأسم الملف هو Adel بارك الله فيك تحياتى

الأخوة الأفاضل السلام عليكم ورحمة الله وبركاته هل من كود لحفظ نسخة احتياطيه تلقائيا في الاكسل دوماَ بمعنى: اريد ان يقوم الاكسل بحفظ نسخة من الملف تلقائي كلما تم التغير في الملف الاصلي يتم تحديث النسخة تلقائيا تحياتى

للرفع

للرفع

الأخ/تامر السلام عليكم ورحمة الله وبركاته أشكرك شكراَ كثيراَ ، وجزاك الله خيراَ ، وجعله فى ميزان حسناتك لقد قمت بتنفيذ الخطوات التى ارسلتها فى المشاركة السابقة والحمد لله كله على ما يرام. ولكن لى عدة إ ستفسارات 1- يوجد بالبرنامج كود واحد محدود المدى هل يمكن تعديل مداه ليصبح على الخلايا المطلوبة فقط - ديناميكياَ دون تدخل مدخل الدرجات - فكيف يكون ذلك ؟ الكود هو Sub MacroFil1() Sheets("sheet1").Range("B7:ev7").Select Selection.AutoFill Destination:=Range("B7:ev306") Range("A4").Select End Sub 2- هل يمكن ترحيل درجات طلاب الدور الثانى ( الملاحق ) من ورقة إلى ورقة جديدةغير موجودة ( تنشأ هذه الورقة أثناء الترحيل وتسمى بالدورالثانى ) بشرط يترك صف علوى لكل طالب توضع فية الدرجة الجديدة ( درجة امتحان الدور الثانى ) هذه الدرجة الجديدة يتم التعامل معها لاحقاَ ؟ نعم أم لا . لان الإجابة ( نعم ) يلزمها إعداد شروط الكنترول من طرفنا ، والإجابة ( لا ) ننسى موضوع الدور الثانى 3- إذا كان لايوجد لديك مانع أود محادثتكم عبر الأميل الأتى:- almokhtaser@yahoo.com بارك الله فيكم تحياتى

الأخ/ تامر السلام عليكم ورحمة الله وبركاته أشكرك على مدى تعاونك مع أعضاء المنتدى وأثقل الله موازينك أود شرح مفصل اليك الملف المطلوب تحياتى ______.rar

السلام عليكم ورحمة والله وبركاته إنا لله وإنا إليه راجعون جعله الله لكم شافعاً ومشفعاً وعوضكم الله بخير منه لله ما أعطى ولله ما أخذ ولا نقول إلا ما يرضي ربنا إنا لله وإنا إليه راجعون البقاء لله يا أخ مجاهد اصبر واحتسب تقبل عزائي