أ محمد عبد الصمد

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

الف الف شكر وبارك الله فيك وفى كل اعضاء المنتدى الكرام

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

أخى الفاضل هل هذا هو المطلوب على مافهمت من طلبك معادلة تأتى بالدرجة من عمود.rar

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

الف الف شكر أخى الكريم الشهابي تم التنزيل وجارى التجريب

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

هل يمكن ارفاق الملف

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

شكرا لك اين باقى اجزاء الكتاب

الاخ الفاضل ابو حازم قم بفك حماية الشيت قم ياضافة السطر التالى فى أول الكود سيقوم بفك حماية الشيت ActiveSheet.Unprotect والسطر التالى فى أخر الكود ActiveSheet.protect سيقوم بحماية الشيت مرة آخرى وبذلك يعمل الكود ويحمى الشيت ويفك الحماية تلقائيا

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

بارك الله فيك على فكرة انا عملتها فى المدرسة على برنامجك القديم ولكن عدلت فيه وطوعت بحيث لعملها 100 و 100

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

نعم الشيت الذى رفعته لك على المديا فير هو ده الشيت كامل وأنا أكمل شغلي على تعديلك يعنى نزله وعدله واضغطه وارفعه لى تانى وانا هنزله و اكمل عليه وانا عاجز على الشكر وبارك الله فيك

لو ما فيهاش تعبت والله لو سمحت ارفعى الشيت الاصلي كامل

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

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

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

أشكرك أخى الفاضل مقابل جديتك فى الموضوع ...تقبل منى جزيل الشكر وجزاك الله خيرا ....شكرا

الاستاذ الفاضل رجب جاويش بعد اذن حضرتك ممكن شرح الكود حتى يمكن التعديل عليه وتطويعه للاستخدام على اى شيت وبمعنى أخر نريد معرفة المتغيرا الموجودة فى الكود Sub ragab() Dim x As Integer, i As Integer, LR As Integer x = 14 Sheets("ورقة2").Range("A14:CA1000").ClearContents LR = Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False For i = 13 To LR Cells(i, 1).Resize(1, 79).Copy Sheets("ورقة2").Range("A" & x).PasteSpecial xlPasteValues x = x + 2 Application.CutCopyMode = False Next Application.ScreenUpdating = True End Sub

الاخ الفاضل الاستاذ جمال بعد التحية كلامك حضرتك عن الرموز ##### معناه ان الخلية أصغر من القيمة الموجودة بها وهذا صحيح حيث أنى قمت بتكبير الاعمدة فظهر فى الخلية خطا فى الصيغة لا اعرف سببه وبالنسية للملف سيأعيد رفعه الرابط هو ومضمون وسريع http://www.mediafire.com/?0fy3i7af739dh6a رابط آخر للاحتياط وللاهمية http://www.m5zn.com/d/?14792080

مطلوب للتعديل والرفع

الاخ الفاضل جمال قمت بنسخ المعادلات الى الشيت ولكن لم تعمل بعد طول تجريب لمعرفة مكمن الخطأ غلب حمارى على رأى المثل ولم اعرف لماذا لم يتم الترحيل ارجو التعديل على الملف المرفق وأنا أسف ارجو أن توضح لى كتابة اين الخطأ حتى لا اقع فيه مرة اخرى كلمة السر 123 الملف موجود هنا http://www.gulfup.com/?2wp8Yx

الاخ الفاضل جمال لماذا عند نسخ المعادلات فى الشيت الخاص بي تظهر الخلايا على شكل #####