أ / محمد صالح

رائع أخي خبور خير ما أجمل بساطة الأكواد جزاك الله خيرا

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

لعبة جميلة أخي خبور خير بارك الله فيك هذه أول محاولاتي تم تنزيل 10 كرات في 16 حركة

أخي الكريم أنا من أنصار الحديث دائما لأن شركة برمجية كبرى مثل مايكرو سوفت لن تخرج علينا ببرنامج تشك ول لحظة أنه أقل من سابقه ومن هذا المنطلق أدعوك وأدعو جميع الإخوة إلى الانتقال إلى الإصدار الأحدث حاليا وهو 2007 يوجد 2010 ولكنه نسخة تجريبية ولم تصدر النسخة النهائية حتى الآن للعلم لمن يملك أوفيس 2007 ويريد تحويل البرنامج لصيغة 97-2003 فلن يعمل البرنامج بعد تغيير الصيغة لأن يوجد بعض الأكواد خاصة بإكسل 2007 أو أحدث سعيد بمروركم جميعا وبانتظار الملاحظات

شكرا لك أخي قطان وبانتظار ألعاب أخرى من ألعاب الإكسل كما هو واضح من عنوان الموضوع

سعيد بمرورك أخي نادر سلمك الله من كل سوء

مشكور على مرورك الكريم أخي طارق وبانتظار ملاحظات واقتراحات المهتمين بالمجال التعليمي والقائمين عليها

بسم الله الرحمن الرحيم من خلال الواقع عملية وضع الجدول المدرسي عملية مرهقة وتحتاج لكثير من التركيز من حيث عدد الحصص لكل مدرس أو سقوط فصل من الجدول ( ليس موكلا إلى أحد الأساتذة) أو تضارب الحصص ( وجود الفصل الواحد عند أكثر من مدرس) وبعد الانتهاء من الجدول نأتي لعمليات الاستخلاص استخلاص جدول مدرس أو استخلاص جدول فصل أو استخلاص جدول مشرف في يوم معين أو مشرف لدور معين وبفضل الله تم الانتهاء من تصميم برنامج بسيط يوفر كل ماسبق ملاحظة: البرنامج لا يقوم بوضع جدول من الألف إلى الياء وإنما يساعد مسئول الجدول في إنجاز مهمته البرنامج يعمل على أوفيس 2007 وبانتظار اقتراحات المهتمين بالمجال لتطويره ولا تنسوني من صالح دعائكم mas-school-timetable.rar

أخي الكريم برجاء استعمال البحث قبل كتابة موضوع جديد ولعل هذا الرابط يفيدك http://www.officena.net/ib/index.php?showtopic=29911

سعيد بمرورك أخي سالم أنت المميز وردودك دائما مميزة سلمك الله من كل سوء

كود رائع وبسيط في نفس الوقت لاحرمنا الله منك يا مشرفنا الرائع وفقك الله

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

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

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

أخي قطان بعد التأكد منك أن لها حلا تفضل هذا هو هو نفس فكرة سبيكة الذهب التي طولها 7 سم وتريد إعطاء كل يوم سم بقطع السبيكة مرتين فقط ففي فزورة السبيكة نقطع عند نهاية 1 سم وعند نهاية 3 سم فسيتكون معنا ثلاث قطع الأولى طولها 1 سم والثانية طولها 2 سم والثالثة طولها 4 سم ففي اليوم الأول يتم إعطاؤه 1 سم وفي اليوم الثاني يتم أخذ 1سم وإعطاؤه 2 سم وفي اليوم الثالث يتم إعطاؤه 1 سم بالإضافة إلى 2 سم وفي اليوم الرابع يتم أخذ 1سم و2 سم وإعطاؤه 4 سم وفي اليوم الخامس يتم إعطاؤه 1 سم بالإضافة إلى 4 سم وفي اليوم السادس يتم أخذ 1سم وإعطاؤه 2 سم بالإضافة إلى 4 سم وفي اليوم السابع يتم إعطاؤه 1 سم بإضافة إلى 2 سم و 4 سم وبالنسبة لفزورتنا سبع سلاسل مرتبطة يتم قطع السلسلة عند الحلقة الثالثة ونستخلص الأربعة حلقات الموجودة على يسار الحلقة المقطوعة ثم نستخلص الحلقتين الموجودتين على يمين الحلقة المقطوعة وبهذا لدينا حلقة منفصلة وحلقتان متصلتان وأربع حلقات متصلة ويكون الحل هكذا ففي اليوم الأول يتم إعطاؤه 1 وفي اليوم الثاني يتم أخذ 1 وإعطاؤه 2 وفي اليوم الثالث يتم إعطاؤه 1 بالإضافة إلى 2 وفي اليوم الرابع يتم أخذ 1 و2 وإعطاؤه 4 وفي اليوم الخامس يتم إعطاؤه 1 بالإضافة إلى 4 وفي اليوم السادس يتم أخذ 1 وإعطاؤه 2 بالإضافة إلى 4 وفي اليوم السابع يتم إعطاؤه 1 بإضافة إلى 2 و 4 تحياتي للجميع وبانتظار ألعاب إكسل أخرى من الإخوة والأخوات

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

شريط آخر المشاركات الذي يظهر أعلى المنتدى توقف ابتداء من اليوم 28/10/2009 وجربت فتح الموقع في أكثر من متصفح ونفس المشكلة

أخي قطان أنا حليت مثل هذه الفزورة ولكن كانت سبيكة ذهب طولها سبعة سم والمسموح القطع مرتين ولكن سبعة بقطع مرة واحدة!!!! جديدة بس نحاول معاها المهم يكون ليها حل

وإياك أخي الكريم نفعنا الله وإياك بما علمنا وعلمنا ما ينفعنا

أعتقد أن المشكلة لديكما واحدة وهي حماية الملف بكلمة مرور اثناء حفظ الملف من خلال الضغط على قائمة أداوات في نافذة الحفظ وهذه الحماية لا تنفع معها هذه الإضافة وهي حقا غير مجانية أما كلمة المرور التي تفكها الإضافة هي كلمات مرور المصنف الناتجة عن الضغط على حماية المصنف protect workbook أو حماية ورقة العمل protect worksheet شاكر لمروركم الكريم

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

أخي الكريم جلال وفقك الله معنى السطر الأول هو تحديد المدى المسمى my_rng بالمدى range("h7:hz") حيث z هي رقم آخر صف في العمود h كما هو موضح في السطر السابق لهذا السطر z = Range("H6").End(xlDown).Row ومعنى السطر الثاني هو الشرط الثاني لتنفيذ التلوين If cell.Value < Range("Min") Or cell.Offset(0, -2).Value < Range("f6").Value Then ويعني الشرط ككل إذا كانت قيمة الخلية أقل من الدرجة الصغرى أو كانت قيمة الخلية المجاورة للخلية الحالية بخليتين في نفس الصف باتجاه العمود الأول(الخلية التي تحتوي على درجة امتحان الفصل الثاني) أقل من قيمة الخلية f6 التي بها ربع درجة امتحان الفصل الثاني ينفذ عملية التلوين بنفس لون الخلفية ولون الخط الموجود في خلية الدرجة الصغرى للمجموع وإذا لم ينطبق الشرط يتم تلوين الخلفية بالأبيض ولون الخط بالأسود أتمنى أن يكون اتضح الأمر

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

أخي الكريم استعمل هذا الماكرو لعمل المطلوب Sub removetoolbars() Dim username As String, objwsh, fso As Object Set objwsh = CreateObject("WScript.Network") usrname = objwsh.username Set fso = CreateObject("scripting.filesystemobject") On Error Resume Next fso.deletefile "C:\Documents and Settings\" & usrname & "\Application Data\Microsoft\Excel\excel*.xlb" MsgBox "تم حذف جميع شرائط الأدوات الزائدة" End Sub مع ملاحظة أن الكود اعتمد أن قرص النظام هو C وفي حالة كونه قرصا آخر يمكنك تغييره في الكود أتمنى أن يكون هو المطلوب

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