ابراهيم الحداد

السلام عليكم ورحمة الله الان شيت كنترول الصف الثانى التجارى نظام 3 سنوات كل الاخطاء التى عرضت لشيت كنترول الصف الاول تم تحاشيها بالنسبة لشيت كنترول الصف الثانى اهم مميزات هذا الشيت هو مايتعلق بمشاركة الاربع شعب مثل العشرة الاوائل : يمكن ايجاد العشرة الاوائل لكل شعبة منفردة و العشرة الاوائل على مستوى جميع الشعب يعنى يمكن ان تجد 3 من شعبة و 2 من شعبة اخرى و شعبة ليس لها نصيب من المتفوقين وهكذا بالنسبة لامتحان الدور الثانى : مما يستلزم لجان جديدة وربما ارقام جلوس جديدة يمكن استدعاء المتخلفين فى هذه المواد مجتمعين وخاصة فى المواد المشتركة فى كل او بعض الشعب كل ذا تجده فى ورقة لجان الملاحق تم تصحيح حساب السن : بما يتوافق مع الدالة المدمجة مع برنامج الاكسل الملف المرفق تم تعبئته ب 320 اسم اغلبها حقيقى فى كل شعبة يعنى حوالى 1200 اسم و ذلك لاختبار كفاءة وجودة الشيت تم الاختبار من قبلى لشعبة الادارة فقط من اول تسجيل البيانات حتى نتيجة امتحان الدور الثانى و تركت باقى الشعب لمن يريد تكرار الاختبار بنفسه تم وضع درجات عشوائية فى كل الشيتات قد تلاحظ نسبة الرسوب التام ضعيفةاو منعدمة فى بعض الشيتات قم بتعديل بعض الدرجات لبعض المواد بنفسك لزيادة فاعلية الاختبار يمكن ايضا وضع حرف غ للغياب لان ذلك لم يتم وضعة الا فى شعبة الادارة فقط هذا العمل كله خالصا لله فى هذا الشهر الكريم لا نرجو سوى دعوة بظهر الغيب هذا والله ولى التوفيق خالص تحياتى اخيكم / ابراهيم الحداد شيت كنترول ثانية تجارة.xlsm

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

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

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

السلام عليكم ورحمة الله بعد عودة المنتدى مرة اخرى شيت كنترول الصف الاول بعد اعادة ترتيب مادة الجغرافيا مما استلزم اعادة الترتيب لحوالى خمس اوراق اخرى و تعديل ما يقرب من عشر اكواد كنترول اولى.xlsm

السلام عليكم ورحمة الله بارك الله فيك اخى الكريم / محمد حسن اسعدنى و شرفنى مرورك الكريم على الموضوع اما بالنسبة للاخ الكريم / عبد الفتاح بدوى اشكرك على تعلقك اللطيف اما الكود الذى تسأل عنه هو كود و احد يصلح للعديد من الازرار لفتح ورقة معينة فقط ان يكون الاسم المكتوب على الزر مطابق تماما لاسم الشيت المراد فتحه و ربط الكود بالزر اليك الكود Sub OpenSheet() Dim x As String On Error Resume Next x = ActiveSheet.Buttons(Application.Caller).Caption Sheets(x).Visible = xlSheetVisible Sheets(x).Select End Sub

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

السلام عليكم ورحمة الله ..ضع المعادلة الاولى فى الخلية G12 =LOOKUP(2;1/($B$4:$M$4>0);$B$4:$M$4) اما المعادلة الثانية فضعها فى الخلية F12 =INDEX($B$4:$H$4;MATCH($G$12;$B$4:$M$4;0)-1)

السلام عليكم ورحمة الله فى الكود الاول اجعل آخر سطرين هكذا End With Call Macro2

السلام عليكم ورحمة الله تفضل sample.xlsx

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

السلام عليكم ورحمة الله اليكم شيت كنترول الصف الثانى التجارى بعد التعديل الثالث فى انتظار تعليقاتكم و ارائكم .. و الله ولى التوفيق 880863412_3_.xlsm

السلام عليكم ورحمة الله بالنسبة للطالب الاول فى الشيت الذى لدى هو راسب فى جميع المواد ومن ضمنها مادة ادارة الاعمال ودرجة هذه المادة صحيحة و لا توجد اخطاء اما ان كنت تقصد الطالب الاول فى شيت الدور الثانى فهو ناجح فى هذه المادة ----- تم تعديل درجة المواطنة و اعتقد ان الخطأ فى هذا لان احدهم قد عبث بالملف و قام بمسح المعادلة فى الشيت الاصلى ----- فعلا كان هناك خطأ بجمع نصف العام بسبب تبديل الاعمدة و تم تدارك الامر ----- كشف النسبة يعمل بامتياز و عندما تقلب الكشف لرقم 2 لن تجد اسماء اخرى لان الكشف الواجد يحتوى على 80 اسم اما مازاد عن ذلك فسيظهر فى الكشوف التالية و للعلم عدد من تجاوزوا نسبة 75% فى هذا الشيت 16 فقط ----- تم تغيير مجموع المادة بحيث اذا كان الطالب غائبا فى امتحان نهاية العام لا يتم جمع المادة بل يكتب فى خانة المجموع "غ" ------ اليكم نسخة من الملف للاطلاع عليه مرة اخرى و ابداء الرأى هذا و الله ولى التوفيق 2086539957_-201999.xlsm

السلام عليكم ورحمة الله تم اصلاح مواد الرسوب و الدور الثانى تم اصلاح شهادة نصف العام و كشف الراسبين ترتيب الاوائل لنصف او آخر العام موجود بالفعل تعمل بكفاءة تعذر عمل تفرقة بين البنين و البنات فى مسألة ناجح - ناجحة -راسب - راسبة وذلك لعدم وجود عمود النوع (بنين - بنات) و ذلك لصعوبة اضافة عمود جديد للنوع مما يستلزم اصلاح جميع الاكواد هذا و الله ولى التوفيق 1865372352_-201999.xlsm

السلام عليكم ورحمة الله الملف بعد آخر التعديلات ارجو الاطلاع عليه و ابداء ملاحظاتكم عليه وفقنا الله واياكم لما فيه السداد و الرشاد 280194394_2_.xlsm

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

السلام عليكم ورحمة الله سؤال الى الاخ الكريم /صوت الحق هل توجد شعب اخرى بخلاف شعبتى التسويق و القانون اخى الكريم / الاهلاوى 2007 من تبويب عرض او "View"يمكنك اختيار ازالة الالواح او "Unfreeze" على العموم ساقوم فى مشاركة لاحقة بتحميل الملف مرة اخرى بعد اجراء بعض التعديلات الاخرى

السلام عليكم ورحمة الله اخى الكريم اليك ملف الصف الاول و للعلم انا اعمل علية من بعد توقيت الموضوع بفترة وجيزة و لكن العمل على شيت جديد اهون كثيرا من اصلاح او تعديل شيت قديم اما شيت الدور الثانى فارجو امهالى من الوقت ما يكفى الا اذا كنت مستعجل فشيت الصف الثانى اصعب بكثير و الله ولى التوفيق 879671290_-201999.xlsm

السلام عليكم ورحمة الله استخدم المعادلة التالية =COUNTIF(A1:A100;"?*")

السلام عليكم ورحمة الله فى كل كود من الاكواد الاربعة السابقة لهذا الكود استبدل تلك السطور If Sheets(2).Cells(19, 13) = "" And Sheets(2).Cells(3, 13) <> "" Then Sheets(2).Range("a1:p15").PrintOut End If بهذه السطور If Sheets(2).Cells(19, 13) = "" And Sheets(2).Cells(3, 13) <> "" Then Call InsetPics Sheets(2).Range("a1:p15").PrintOut End If

السلام عليكم ورحمة الله لم يعمل معك الكود بسبب لبخلايا المدمجة ... اليك الملف saad.rar

السلام عليكم ورحمة الله استخدم الكود التالى ملحوظة هامة : الكود يعمل على ارقام الجلوس و ليس الاسماء لان اسماء الصور بارقام الجلوس Sub InsetPics() Dim ws As Worksheet Dim Pth As String, SName As String Dim Pic As Object, C As Range, Rng As Range Set ws = Sheets("شهاده محدده ترم2") Application.ScreenUpdating = False For Each Pic In ws.Pictures Pic.Delete Next Pth = ActiveWorkbook.Path On Error Resume Next For i = 3 To 19 Step 16 Set C = ws.Range("M" & i) Set Rng = ws.Range("N" & i - 1) SName = Pth & "\photo\" & C & ".jpg" Set Pic = ActiveSheet.Pictures.Insert(SName) If Not IsEmpty(Pic) Then With Pic .Top = Rng.Top .Left = Rng.Left .Width = Rng.Width .Height = Rng.RowHeight .Name = C.Value End With End If Next Application.ScreenUpdating = True End Sub

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

السلام عليكم ورحمة الله اليك المطلوب مطلوب لكشف المناداة.xlsx

السلام عليكم ورحمة الله تفضل new-2 (1) (2).xlsm