ابو عبدالبارى

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

استاذى العزيز / ناصر محمد سأقوم بشرح الجزئ الذى قدمت بالتعديل فيه فقط اما باقى الكود فهو يخص عالمنا الكبير / عبدالله باقشير لقد ذكرت فى المشاركة السابقة ان مواد الدور الثانى تحسب على المجموع الكلى للمادة ثم العمود الذى يسبقة وهود درجة التحريرى بالمادة اى العمود الذى يسبقة على العكس فى عمود المجموع فهو عمود واحد فقط يحسب علية النجاح والرسوب أنظهر لهذا الكود If IsNumeric(Cells(صف_الدرجات, c.Column)) And Not IsEmpty(Cells(صف_الدرجات, c.Column)) _ And (c.Value < Cells(صف_الدرجات, c.Column) Or Cells(c.Row, c.Column - 1) < Cells(صف_الدرجات, c.Column - 1) Or Cells(c.Row, c.Column - 1) = "غ" Or Cells(c.Row, c.Column - 1) = "غـ") Then If Cells(c.Row, c.Column - 1) = "غ" Or Cells(c.Row, c.Column - 1) = "غـ" Then N = N + 1 والذى يذهب الى العمود السابق لمجموع كل مادة وعند حسابة لخانة المجموع الكلى يذهب للعمود السابق له مباشرة وهو عمود الميكانيكا فاذا كان الطالب راسب بمادة الميكانيكا يحبة كأنه راسب المجموع الكلى اما بالنسبة لتسريع الكود فانا قمت بتغيير الكود التالى بدلا من النطاق الكبير 65529 قمت باستبدالة 1000 لأنة اقصى عدد اى طلبة فى اى مدرسة لا يتجاوز 1000 طالب ولا يمكن ان يكون هناك هذا العدد الكبير ارجو ان تكون الفكرة وضحت Set MyRng_All = Range("p13:ax65529") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ x = ActiveWindow.Zoom Application.ScreenUpdating = False Range("ay13:az65529").ClearContents

شكرا لك استاذى العزيز / ناصر سعيد وعلى كلماتك الرقيقة

بعد اذن الأستاذ رجب جاويش قمت بالتعديل على الملف لحل مشكلة ترحيل ناجح وراسب بوضع زر فى صفحة الشيت للترحيل اما بالنسبة للأستاذ غريب لم افهم ما المقصود بالنسبة واليكم التعديل فى هذا الملف http://www.mediafire.com/download/4sczzx1xk1fkoyw/كنترول_الإعدادى__رجب_جاويش_الإصدار__15.rar

تم التعديل ليكون الكود اسرع عندك لأنه بطئ عندى وعندكم ايضا وعند الأستاذ جلال محمد اما طبيعة المشكلة انه عند حساب مواد الرسوب ينظر الكود الى شيئين الأول عمود المجموع الخاص بأى مادة ثانيا العمود الذى قبلة لربع الدرجة فى التحريرى وهذا لا ينفع مع عمود المجموع الكلى . ولكنى عندى بعض الملاحظات على الأستاذ جلال محمد لماذا لم يرسل الملف الذى يعمل علية كاملا لنستفيد به فى المنتدى لأنى لاحظت عدة ملاحظات به ولا اعرف كيفية تفاديها ومنها ( المواد بعد المجموع الكلى هى مواد نجاح ورسوب لماذا لا يأخذها فى الأعتبار فى مواد الرسوب ويأخذ فقط المواد ما قبل المجموع الكلى ) ارجو من الأستاذ جلال محمد الرد علينا تعديل مواد الصف الثاني.rar

اخى العزيز ارجو ان يفى هذا الملف بالغرض المطلوب تحياتى السن فى 1-10.rar

جارى التعديل للرفع

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("j1") <> "" Then Range("i1") = 10 Else Range("i1") = "" End Sub فى الحدث SELECTION CHANGE وضعت الكود التالى

اعتقد ان هذا المطلوب الثانى الدرجة.rar

استاذى العزيز ناصر سعيد بعد التحية أولا هذا الملف قد قمت بطرحة فى احد الموضوعات السابقة فى المنتدى تحت اسم شيت كنترول الصف الثانى الثانوى بقسمية العلمى والأدبى والمنازل وقد سبق ان قلت فى الموضوع الأصلى ان كلمة السر للصفحات ومحرر الأكواد هى 123 هلى هذا يفى بالجواب على سؤالك ثانيا الملف الذى ارسلة الأستاذ جلال محمد يخص كنترول الصف الأول الثانوى وقد اقتص من الملف وكذلك من الأكواد التى بداخلة فلم استطع التعامل معها فأرسلت له لينك لهذا الشيت لعله يستفيد به لأنه لم يرسل لنا الملف كاملا وفى هذه الحالة كنا نستطيع ان نعدل له ليتحقق طلبه وشكرا على ملاحظاتك

كنترول الصف الثانى الثانوى شامل المجموعة العلمية والمجموعة الأدبية والمنازل السلام عليكم ربما يساعدك هذا الموضوع فى سؤالك

ممكن توضح المطلوب بالتفصيل

ارجو ان يفى هذا الملف بطلبك اخى العزيز الصف الاول.rar

رائع

QQQ.rar

بعد اذن الأستاذ رجب حاويش ان شاء الله استاذ محمد حسان بعد قرائتك لهذا الموضوع ستجد حلا لمشكلتك

استاذ ياسر العربى ولا اجمل ولا اروع من هذا الكود

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

جزيت خيرا - وحفظكم الله وسلمكم ودفع عنكم كل مكروه وسوء .

اخى العزيز ارجو ان يفى هذا الملف بالغرض test.rar

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

كلمة السر للمصنف ومحرر الفيجوال هى كما ذكرت 123

السلام عليكم بعد اذن اساتذة المنتدى الكرام هذه اول مشاركة لى بملف على هذا المنتدى العظيم .قمت يالتعديل والأضافة على بعض الشيتات الخاصة بالكنترول للصف الثانى الثانوى لما وجدت من بعض القصور فقمت ببعض الأضافات وأهمها ( ضم القسم العلمى والأدبى بكل فروعهم فى شيت واحد - كما ضميت كذلك طلبه المنازل ) ( تقريب الكسور فى المجموع الكلى للدرجة ) واتوجة بالشكر الى كل الأساتذة الموجودين بالمنتدى الذين تعلمت منهم الكثير وأخص بالذكر الأستاذ رجب جاويش على افكارة الرائعة فى الشيت كنترول الخاص بالثانوى العام التى اخذت منها الكثير واضفته للبرنامج وكذلك الأستاذ سامى الهادى وكذلك الأستاذ العلامة عبدالله باقشير الذى افادنى كثيرا فى تفقيط مجموع الطالب وهذه نسخة اولية ارجو التفضل بابداء ملاحظاتكم عليها. كلمة السر 123 ونظرا لكبر حجم الملف قمت بوضعه على هذا الرابط http://www.mediafire.com/download/l4lg47ckt7zobb8/%D8%A7%D9%84%D8%AB%D8%A7%D9%86%D9%89.rar

كل يوم تثبت لنا انك عملاق استاذ سليم بارك الله فيك