يوسف عطا

الف شكر يا استاذنا الغالى

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

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

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

الرقم القومى دلالاته كالتالى أول 5 أرقام من اليمين هم ترتيب تسجيل المولود فى سجل المواليد العام على مستوى مصر كلها الرقمين التاليين هم كود المحافظة ويكون من اليسار القاهرة 01 مثلاً وباقى المحافظات كل محافظة لها كود بالترتيب من 01 حتى 30 (هم 30 محافظة حالياً مش كدة ؟؟ بعد فصل حلوان عن القاهرة و6 أكتوبر عن الجيزة) الـ 6 أرقام التالية هى تاريخ الميلاد رقمين لليوم ورقمين للشهر ورقمين للعام آخر رقم يعبر عن القرن أى أن مواليد من 1901 حتى عام 2000 يوضع لهم رقم 2 مواليد 2001 و حتى عام 2100 يوضع لهم رقم 3 و مواليد 2101 حتى 2200 يوضع لهم رقم 4 و هكذا مثلاً رقم قومى 26711120123456 يعبر عن التالى 23456 رقم تسجيل المولود فى يوم مولده 01 مواليد محافظة القاهرة 671112 مولود يوم 12 نوفمبر سنة 67 2 الأخيرة تعبر عن 1900 القرن العشرين هذا إجتهاد شخصى والله أعلم

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

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

للأسف الملف لازال قيد التصميم ولا استطيع إرفاقه حالياً ولكن الكود بتاع حضرتك بيعمل الآتى: 1. إضافة شيت أو عدد محدد من الشيتات على الملف 2. حذف شيت محدد من شيتات الملف 3. تغيير إسم شيت محدد من شيتات الملف والمطلوب أن يتم إضافة على الكود فيقوم بوظيفة رابعة هى : نسخ شيت محدد من شيتات الملف عدد محدد من النسخ أعتقد طلبى اصبح واضحاً شاكر لك سعة صدرك

عزيزى الغالى يمكن إستخدام التذكير والتأنيث فى الديانة وحالة القيد وكذلك فى النتيجة (ناجح - ناجحة) وغيرها عن طريق عمل قوائم منسدلة مرتبطة بمعادلة IF

الله ينور عليكم

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

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

أخى العزيز الأستاذ الفاضل عادل بك حنفى بعد التحية قرأت موضوع لك فى هذا الرابط http://www.officena.net/ib/index.php?showtopic=24575 كود إضافة وحذف أوراق داخل مصنف والكود ممتاز هل يمكن عمل تعديل عليه بحيث تكون هناك إمكانية للنسخ مع الإضافة نسخ عدد محدد من النسخ من أحد الشيتات داخل نفس المصنف مع مراعات إمكانية تغيير إسم الشيت والحفاظ على نفس خصائصه والأكواد الموجودة به لك خالص تحياتى الملف الأصلى بتاعك مرفق وعلى فكرة أنا قدرت أعمل جزء من المطلوب عن طريق ماكرو لكن طبعاً الماكرو نسخ الورقة بكامل أكوادها وخصائصها لكنه لا يغير إسمها كمان لابد من ضغط زر الماكرو عدد من المرات لأنه ينسخ ورقة واحدة كل مرة ولكن الكود بتاعك أتعشم أنه ينسخ العدد المطلوب من الورقة بضغطة واحدة الف شكر لسعة صدرك Last_Add_Remove_____________.rar

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

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

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

رجاء من الأخوة المتابعين لكأس العالم واللذين إستخدموا برنامج الأخ خبور بعد إكتمال الدور الأول يتم رفع نسخة بالنتائج وبعد إكتمال المونديال يتم رفع نسخة بالنتائج كاملة الف شكر

عزيزى الغالى وضعت هذا الكود Private Sub Workbook_Open() Select.("الشيت")Sheets Columns("A:I").Select Selection.EntireColumn.Hidden = True Range("J5:J5").Select End Sub ما الخطأ الذى وقعت فيه هذه المرة ولكنه لم يعمل أى شئ أليس الكود مثل الكود الذى ذكرته حضرتك منذ أيام بالأعلى ؟؟

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

الف شكر

عجباً الموضوع متميز ومفيد لماذا تم إلغاء تثبيته ولماذا قل تفاعل الأخوة مع الموضوع أتعشم إعادة التثبيت وإستمرار التجديد فى الموضوع

أعتقد لسة بدرى على إكتمال العمل جارى الدراسة والمراجعة

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

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

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