حسن الحاوى

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

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

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

أرجو أن يكون هذا هو المطلوب إضافة.rar

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

يوجد بالملف المرفق كودين لفواصل الصفحات الأول : يصلح فى شيتات الناجحين والراسبين والدور الثانى الثانى : يصلح فى ورقة عمل كشوف المناداة التى يكون لها مسلسل متكرر فى كل صفحة من صفحات ورقة العمل بالتوفيق إن شاء الله HPageBreaks.rar

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

عمل رائع للأستاذ عبد الله باقشير جزاك الله كل خير لقد استخدمت كود إضافة الصورة فى الشهادات عندى وقمت بالتعديل عليه ليتناسب مع طريقة عرض الشهادات عندى أرجو أن تعطينى رأيكم . و إذا كان الكود يحتاج لتعديل أو اختصار عبقرى من عندك فأرجوا أن توافينى به هذا هو رابط التحميل http://www.mediafire.com/?5q3x8w33g2230jk

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

إذا قمت بعمل كلمة سر لفتح ملف أوفيس وضاع منك فلا تنزعج البرنامج التالى يقوم بإخبارك عن كلمة السر التى ضاعت منك https://hotfile.com/dl/190788247/08e4489/__.rar.html أو http://www.mediafire.com/download.php?q7xhdp2qs3yhddq

إذا قمت بعمل كلمة سر لفتح ملف أوفيس وضاع منك فلا تنزعج البرنامج التالى يقوم بإخبارك عن كلمة السر التى ضاعت منك https://hotfile.com/dl/190788247/08e4489/__.rar.html أو http://www.mediafire.com/download.php?q7xhdp2qs3yhddq

ممكن يظهر محرر المعادلات الرياضية حتى بدون ملفات أو برامج جديدة من قائمة إدراج Insert نختار حقل Field . يظهر مربع حوارى من إسم الحقل Field Name نختار Eq ومن الناحية الأخرى من المربع الحوارى ننقر زر محرر المعادلات بعدها قد يسألك الإنتظار حتى يقوم بتثبيت الميزة الجديدة . بعدها تظهر نافذة جديدة لمحرر المعادلات شبيهة بالقالب الذى عرضته بمشاركة سابقة بالتوفيق انشاء الله

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

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

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

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

الله عليك يا أستاذ / عبدالله المجرب حضرتك حليت لى مشكلة كبر حجم الكود بطريقة بسيطة ورائعة شكراً جزيلاً

أنظر إلى هذا التعديل ستجد ما تريد شهادات2.rar

هناك تعديل بسيط فى أول الكود ممكن حضرتك تلاحظه فى أول 3 أسطر Sub إضافة_الدوائروالمربعات_شهادات2_نقر() Application.ScreenUpdating = False Application.EnableEvents = False حذف_الدوائر_والمربعات_شهادات2_نقر إضافة_الدوائر_شهادات2_نقر Application.EnableEvents = True Application.ScreenUpdating = True End Sub Sub إضافة_الدوائر_شهادات2_نقر() ' ' إضافة_الدوائر_شهادات2_نقر ماكرو ' الماكرو مسجل ‎17/05/2012 بواسطة ‎مجدى الحاوى ' Activewindow.Zoom = 100 ActiveSheet.Unprotect '===================================================== ' رسم شكل بيضاوى ActiveSheet.Shapes.AddShape(msoShapeOval, 0.75, 0.75, 36, 17).Select 'تنسيق الشكل البيضاوى Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 1.5 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.Fill.Visible = msoFalse Selection.Name = "oval 1" '===================================================== 'تحديد لشكل البيضاوى وقصه المسمى oval 1 ActiveSheet.Shapes.Range(Array("oval 1")).Select Selection.Cut '===================================================== ' الشهادة الأولى ' الشهادة الأولى Dim R As Integer 'تحديد أول خلية فى مادة اللغة العربية R = 15 Range("E16").Select For i = 1 To 9 If ActiveCell.Value < Cells(R, ActiveCell.Column) Or ActiveCell.Value = "غ" Then ActiveSheet.Paste End If ActiveCell.Offset(0, 1).Select Next '===================================================== 'تحديد أول خلية فى مادة التربية الدينية ActiveCell.Offset(0, 2).Select If ActiveCell.Value < Cells(R, ActiveCell.Column) Or ActiveCell.Value = "غ" Then ActiveSheet.Paste End If ActiveCell.Offset(0, 1).Select '===================================================== 'اللغة الفرنسية ليست مادة نجاح ورسوب وبالتالى لا يتم رسم دوائر لها '===================================================== ' الشهادةالثانية 'تحديد أول خلية فى مادة اللغة العربية R = 29 Range("E30").Select For i = 1 To 9 If ActiveCell.Value < Cells(R, ActiveCell.Column) Or ActiveCell.Value = "غ" Then ActiveSheet.Paste End If ActiveCell.Offset(0, 1).Select Next '===================================================== 'تحديد أول خلية فى مادة التربية الدينية ActiveCell.Offset(0, 2).Select If ActiveCell.Value < Cells(R, ActiveCell.Column) Or ActiveCell.Value = "غ" Then ActiveSheet.Paste End If ActiveCell.Offset(0, 1).Select '===================================================== 'اللغة الفرنسية ليست مادة نجاح ورسوب وبالتالى لا يتم رسم دوائر لها '===================================================== '===================================================== 'الشهادة الثالثة 'تحديد أول خلية فى مادة اللغة العربية R = 43 Range("E44").Select For i = 1 To 9 If ActiveCell.Value < Cells(R, ActiveCell.Column) Or ActiveCell.Value = "غ" Then ActiveSheet.Paste End If ActiveCell.Offset(0, 1).Select Next '===================================================== 'تحديد أول خلية فى مادة التربية الدينية ActiveCell.Offset(0, 2).Select If ActiveCell.Value < Cells(R, ActiveCell.Column) Or ActiveCell.Value = "غ" Then ActiveSheet.Paste End If ActiveCell.Offset(0, 1).Select '===================================================== 'اللغة الفرنسية ليست مادة نجاح ورسوب وبالتالى لا يتم رسم دوائر لها '===================================================== ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowSorting:=True, AllowFiltering:=True ' ' End Sub Sub حذف_الدوائر_والمربعات_شهادات2_نقر() ' ' ' كود الحذف ActiveSheet.Unprotect '===================================================== ' حذف الدوائر Dim V As Shape For Each V In ActiveSheet.Shapes If V.Name = "oval 1" Then V.Delete Next ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowSorting:=True, AllowFiltering:=True End Sub

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

الكود مشروح بنسبة كبيرة جزئية جزئية داخل الماكرو ومثل ما أخبرت حضرتك فى رسالتى أنا متبع أسلوب مختلف عن باقى شيتات الكنترول الأخرى تعتمد على فكرة القص واللصق أى 1- كتابة كود رسم شكل بيضاوى ويمكن عمله بتسجيل ماكرو لعملية رسم شكل بيضاوى 2 - كتابة أكواد لتنسيق هذا الشكل البيضاوى 3 - إعطاء إسم للشكل البيضاوى ( وهذا مهم لتوحيد إسم جميع الأشكال البيضاوية التى سيتم لصقها بعد ذلك ) 4 - كتابة كود لقص الشكل البيضاوى 5 - كتابة كود تحديد أول خلية خاصة باللغة العربية ثم نقوم بكتابة شرط للصق الشكل البيضاوى (السابق قصه) بشرط أن تكون قيمة هذه الخلية أقل من قيمة الخلية التى بها النهاية الصغرى ثم كتابة أمر لإضافة العدد 1 لمتغير حتى نحسب عدد مرات لصق الشكل البيضاوى 6 - تكرار ذلك مع باقى المواد أما كود الحذف فيتم كتابة الكود الذى يقوم بحذف الشكل البيضاوى الذى غيرنا أسمه فى الخطوة رقم 3 السابقة مع وضعها داخل أمر تكرار ( عدد مرات التكرار = قيمة المتغير الذى كنا نقوم بإضافة العدد 1 له فى الخطوة رقم 5 ) أرجوا أن أكون قد أوصلت لكم الفكرة قد تكون طويلة ولكنها مكررة لنفس الخطوات وتعتمد على أوامر بسيطة للغة vb العادية

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

شيت كنترول إعدادى ( الحاوى ) تعديل 28/11/2012م. وفقاً للقرار 313 لسنة 2011 1000 طالب للتعليم العام والتجريبى واللغات + الدور الثانى معد بالكامل بالإكسيل وبأبسط المعادلات بواجهتين إرضاءً لأعضاء المنتدى الواجهة الأولى : 30 درجة حضور ونشاط وشفوى و 70 درجة تحريرى الواجهة الثانية : 50 درجة حضور ونشاط وشفوى وتحريرى نصف التيرم و 50 درجة تحريرى آخر التيرم 1000 طالب يجب قراءة ملف "تعليمات التشغيل" المرفق قبل فتح الشيت كشوف المناداة أرقام جلوس رصد برقم الجلوس أو بالسرى شهادات تيرم أول وتيرم ثانى بالدرجة فقط وبالدرجة والتقدير ( طباعة شهادة واحدة أو كل الشهادات بنقرة واحدة أو مدى من الشهادات) أوائل تيرم أول وتيرم ثانى ناجحون وراسبون تيرم ثانى أسماء الراسبين ومواد الرسوب تيرم ثانى إحصائيات خاصة للمدرسة تيرم أول وثانى إحصائيات خاصة بالإدارة التعليمية تيرم أول وثانى إدخال أرقام الجلوس والسرى تلقائياً نتيجة كل تيرم بالتقديرات وبدون التقديرات نتيجة مجمعة بالدرجات الفعلية تيرم أول وثانى الدور الثانى (ناجحون – راسبون ولهم حق الإعادة – راسبون وليس لهم حق الإعادة) شهادات الدور اثانى إحصائيات الدور الثانى إدراج المربعات والدوائر للراسبين والدور الثانى و شهادات تيرم 2 وشهادات الدور الثانى عمل فواصل الصفحات عمل تذييل للصفحات وامكانيات أخرى كثيرة سكتشفها بنفسك يعنى من الآخر كل ما عليك إدخال الدرجات فقط وبعض التعديلات البسيطة على بيانات الطلاب رجاء موافاتى باقتراحاتكم وهذا هو رابط التحميل الواجهة الأولى : 30 و 70 أى 30 درجة حضور ونشاط وشفوى و 70 درجة تحريرى http://www.mediafire...7amg34m4awxm6hq الواجهة الثانية : 50 و 50 أى 50 درجة حضور ونشاط وشفوى وتحريرى نصف التيرم و 50 درجة تحريرى آخر التيرم http://www.mediafire...mwk0emikd56hbjg برجاء إطلاعى على آرائكم بعد تجربة الشيت

إلى الأستاذ / فضل 1 الكود ActiveSheet.Shapes.AddShape(msoShapeOval, -7354.5, 1.5, 54#, 50#).Select وهو يعنى رسم أو إضافة شكل من نوع بيضاوى Oval بإحداثى س -7354.5 وإحداثى ص 1.5 وعرض الشكل البيضاوى 54 وإرتفاعه 50 بما يعنى رسمه فى أقصى يمين ورقة العمل أى الخلية A1 ملحوظة 1 - الإحداثى X و Y يتم إحتسابه من الزاوية العليا اليسرى للشاشة أو ورقة العمل حسب البرنامج المستخدم 2 - الشكل البيضاوى ليس له نصف قطر ولكن له عرض القطر الأفقى وله إرتفاع القطر الرأسى

شكراً للأساتذة / دغيدى / مجدى يونس / فضل1 على إقتراحاتهم التى كنت منتظرها منكم وشكراً على عطائكم الذى بلا حدود