يوسف عطا قام بنشر نوفمبر 22, 2012 قام بنشر نوفمبر 22, 2012 الرجاء من الأخوة الأعزاء كود سهل وبسيط لوضع الدوائر الحمراء فى الشهادات وكما هو واضح فى الملف كل شيت يحتوى على 3 شهادات والدرجات توضع بالشهادات عن طريق معادلة فى لوك اب والداتا فى شيت الشهادات مربوطة بشيتات أخرى وإكتفيت برفع شيت الشهادات فقط لكبر حجم الملف الإجمالى وبطؤه فى تنفيذ الأوامر حالياً أعتمد على التنسيق الشرطى لتظليل الخلايا التى بها درجات رسوب ولكنى أريد أن يكون العمل أكثر إحترافية بوضع دوائر على الدرجة الراسبة والإستغناء عن التنسيق الشرطى الـ 60 طالبة الأوائل ناجحات كل 60 طالبة بعد ذلك راسبات فى مادة بالترتيب 60 راسبات عربى 60 بعدهم راسبات إنجليزى وهكذا مشكورين مقدماً شهادات.rar
جلال محمد قام بنشر نوفمبر 22, 2012 قام بنشر نوفمبر 22, 2012 أخي يوسف السلام عليكم شاهد المرفق هل هذا هو المطلوب شهادات.rar
يوسف عطا قام بنشر نوفمبر 22, 2012 الكاتب قام بنشر نوفمبر 22, 2012 (معدل) الله ينور عليك يا استاذ جلال لكن مش ده بالظبط إللى أنا عايزه المطلوب أن يعمل الكود تلقائياً بدون زر وتتغير الدوائر تلقائياً حسب تغيير الدرجات مع تغيير الشهادة حيث أن الطباعة تتم تلقائياً ولكن الكود الذى أرفقته سيادتكم سيتطلب منى الآتى 1. أن اقوم بإضافة الدوائر يدوياً بالضغط على الزر عند طبع كل 3 شهادات على حدة 2. ثم أقوم بإختيار الثلاث شهادات التالية ثم أزيل الدوائر عنها لأن الدوائر لن تكون مضبوطة على الدرجات 3. ثم أضع الدوائر مرة أخرى على الثلاث شهادات 4. ثم اضغط زر لطباعتها واقوم بإعادة هذه العملية 350 مرة لطبع 1111 شهادة على كل حال شاكر أفضال معاليكم وأتمنى أن تحاول معى الوصول للمطلوب دمت بود أخى الغالى وجعل الله أعمالك فى ميزان حسناتك تم تعديل نوفمبر 22, 2012 بواسطه يوسف عطا
رجب جاويش قام بنشر نوفمبر 22, 2012 قام بنشر نوفمبر 22, 2012 أخى الفاضل / يوسف عطا جرب المرفق تم اجراء بعض التعديلات فى كيفية تنفيذ الكود حيث يتم تنفيذه تلقائيا عند أى تغير مثل البحث برقم الجلوس أو بالاسم أو زيادة الصفحات ( صفحة الثلاث شهادات التالية ) وهكذا شهادات.rar 1
يوسف عطا قام بنشر نوفمبر 23, 2012 الكاتب قام بنشر نوفمبر 23, 2012 أستاذى الغالى رجب بك جاويش السلام عليكم لا أعرف لماذا لا يعمل معى الكود بالكيفية التى ذكرتها سيادتكم فبمجرد فتح الملف وجدت فعلاً دائرة حمراء على درجة راسبة ولكن بمجرد تغيير الشهادة والإنتقال لشهادة غيرها إختفت الدائرة وبالعودة للشهادة الأولى مرة أخرى لم تظهر الدائرة الحمراء كذلك شاكر على محاولتكم المساعدة وأنتظر من سيادتكم بعض المحاولات الأخرى مع الملف دمت بود 1
يوسف عطا قام بنشر نوفمبر 23, 2012 الكاتب قام بنشر نوفمبر 23, 2012 بالدمج بين الأكواد السابقة ومع تغيير حدث الكود وحذف بعض الأسطر حدث شئ أعتقد سوف يكون فيه جزء من الحل حيث أصبحت الدوائر توضع أوتوماتيكياً حول الدرجات الراسبة ويستمر الوضع الأوتوماتيكى مع تغيير الشهادة بالزر أو بالكتابة أو بالإختيار من القوائم المنسدلة وهذا جيد جداً ولكن للأسف الدائرة التى توضع تظل فى مكانها حتى لو جائت بعدها شهادة بها بيانات ناجحة جارى المتابعة لمحاولة الحل وفى إنتظار حلول حضراتكم ولو توصلت لشئ ساذكره لكم 1
يوسف عطا قام بنشر نوفمبر 23, 2012 الكاتب قام بنشر نوفمبر 23, 2012 إخوانى الأعزاء لننسى الملفات بالأعلى حتى لا نبدأ من الصفر ولنستكمل العمل الحالى مع مراعاة أنه كما يتضح من الملف المرفق أن الدوائر أصبحت توضع أوتوماتيكياً بمجرد تغيير الشهادة بأى طريقة من الطرق المستخدمة فى الملف وهكذا نكون إستطعنا حل نصف المشكلة وهى وضع الدوائر الحمراء حول الدرجات الأقل من الحد الأدنى والمطلوب حالياً حل باقى المشكلة والتى ألخصها فى النقاط التالية 1. مكان الدوائر لا يكون مضبوطاً فى حالة تغيير النسبة المئوية لحجم الشيت فالمطلوب الأول حذف الجزء من الكود المسئول عن هذه المشكلة وقد حاولت التعامل معه وكانت النتيجة غير مرضية 2. الدوائر التى توضع حول الدرجات الراسبة تظل موجودة مكانها حتى لو تغيرت الدرجات فى شهادات أخرى ناجحة فالمطلوب إضافة جزء للكود يقوم بحذف الدائرة الحمراء حول الدرجة التى لا تقل عن الحد الأدنى مع العلم بأن اللغة الفرنسية ليست مادة رسوب حتى لو كانت درجتها أقل من الحد الأدنى وقد راعيت ذلك عند وضع الدوائر فلا يطبق على اللغة الفرنسية 3. لا أرى سبب لوجود رقم الجلوس بجوار الشهادات فى العمود B فلو لم يكن له علاقة بالكود يمكن حذفه أو ذكر سبب أهميته وأتمنى أن التغلب على هذه النقاط يجعل الموضوع مكتمل شاكر حسن تعاونكم أساتذتى الكرام والمجال مفتوح لمزيد من الأفكار لو كانت أسهل فى التطبيق من تعديل الكود الحالى بدون موديول.rar 1
جلال محمد قام بنشر نوفمبر 24, 2012 قام بنشر نوفمبر 24, 2012 اخي يوسف ما رأيك في رفع الملف وبه الشهادة المطلوبة وشيت جلب البيانات وذلك لعمل الشهادات بأفكار جديدة وتحقق المطلوب ان شاء الله.. ولك حرية الاختيار 1
يوسف عطا قام بنشر نوفمبر 24, 2012 الكاتب قام بنشر نوفمبر 24, 2012 أخى الفاضل جلال بك محمد السلام عليكم بالنسبة لرفع الملف كامل ها هو رابط خارجى http://www.mediafire.com/?k9b6uw7d42s5h7f ولكن العمل على شيت الشهادات نفسه أسرع وأفضل حيث أن الشهادة تأخذ الدرجات من نفس الشيت الذى فيه الشهادات ولكن من خلايا وسيطة وهذه الخلايا بدورها تأخذها من شيت الرصد ما علينا فى الواقع أعتقد أن الملف الذى أرفقته أنا فى المشاركة رقم 7 من هذا الموضوع يجب أن نعمل عليه لأن به نصف الموضوع تم إنجازه وهو وضع الدوائر تلقائياً وكما ذكرت فى السابق يبقى أمران صغيران 1. إضافة سطر بالكود لحذف الدوائر عن الدرجات الناجحة وذلك قد يستدعى إضافة إلس أو إف فى الكود 2. حذف الجزء فى الكود المسئول عن نسبة حجم الشيت على الشاشة حيث عند تصغير وتكبير الشاشة يتغير مكان الدوائر وعلى كل حال مرفق الملف كامل وشيت الشهادات بمفرده لمن يريد المساهمة فى الحل 2
الخالدي قام بنشر نوفمبر 24, 2012 قام بنشر نوفمبر 24, 2012 2. الدوائر التى توضع حول الدرجات الراسبة تظل موجودة مكانها حتى لو تغيرت الدرجات فى شهادات أخرى ناجحة فالمطلوب إضافة جزء للكود يقوم بحذف الدائرة الحمراء حول الدرجة التى لا تقل عن الحد الأدنى قبل السطر For Each c In MyRng ضع الاسطر التالية For Each V In ActiveSheet.Shapes If V.Top = Rows(16).Top + 1 Or V.Top = Rows(30).Top + 1 Or V.Top = Rows(44).Top + 1 Then V.Delete Next 1
يوسف عطا قام بنشر نوفمبر 24, 2012 الكاتب قام بنشر نوفمبر 24, 2012 مشكور أخى الخالدى على مجهودك جارى التجربة وإخبارك بالنتيجة
يوسف عطا قام بنشر نوفمبر 24, 2012 الكاتب قام بنشر نوفمبر 24, 2012 أخى الغالى الخالدى السلام عليكم للأسف أخى الخالدى التعديل الذى ذكرته سيادتكم لم يغير من الوضع شيئاً فالدوائر الحمراء تثبت فى مكانها ولا تختفى عندما تأتى شهادة ناجحة الرجاء المحاولة بتعديل آخر مشكووووووور مقدماً
الخالدي قام بنشر نوفمبر 24, 2012 قام بنشر نوفمبر 24, 2012 بعد اعادة تجربة الكود الكود يعمل على اكسل2010 الكود لا يعمل على2003 لا علم لي بالسبب 1
يوسف عطا قام بنشر نوفمبر 25, 2012 الكاتب قام بنشر نوفمبر 25, 2012 لو تكرمت أخى الخالدى إرفاق الملف الذى قمت بتجربة الكود به حيث أنى حاولت تجربته على 2010 كذلك ولم ألحظ أى تغيير فلعل المشكلة فى الملف الذى أعمل عليه لقد فتحت الملف وهو بإصدارة 2003 على إيكسيل 2010 فهل هذا هو ما قمتم به سيادتكم ؟؟ أم أنك كتبت الكود مباشرة داخل ملف بإصدارة 2010 ؟؟ 1
يوسف عطا قام بنشر نوفمبر 25, 2012 الكاتب قام بنشر نوفمبر 25, 2012 (معدل) السلام عليكم بالفعل مرفق سيادتكم أخى الخالدى يعمل على أوفيس 2010 ولكن 1. الشاشة تومض 3 مرات مع طبع كل شهادة مما يؤدى إلى تهنيج البرنتر 2. الأوفيس فى مكان العمل بالمدرسة 2003 والجهاز قد لا يقبل أوفيس 2010 لذلك السموحة منك هافتح موضوع جديد بإسم طلب تحويل كود من 2010 إلى 2003 وهارفق فيه الملف 2010 وفى نفس الوقت نترك هذا الموضوع مفتوح لربما يلهم الله أحد إخوتنا الحل بطريقة أخرى والله الموفق تم تعديل نوفمبر 25, 2012 بواسطه يوسف عطا
جلال محمد قام بنشر نوفمبر 26, 2012 قام بنشر نوفمبر 26, 2012 (معدل) أخي يوسف جرب الملف المرفق وخصوصا زر طباعة دور ثاني ثم ضع الدوائر ارجو من الله ان يكون هذا النموذج يحقق المطلوب شهادات.rar تم تعديل نوفمبر 27, 2012 بواسطه دغيدى 2
يوسف عطا قام بنشر نوفمبر 27, 2012 الكاتب قام بنشر نوفمبر 27, 2012 استاذى الغالى جلال محمد بالفعل النموذج الأخير الذى أرفقته معاليكم متعوب فيه ويحقق كثير من المطلوب وجارى التمعن فيه لتحديد ما إذا كنت سأعتمد عليه كما هو أم سأطلب تعديلات بسيطة فيه وعلى كل حال فالأكواد به مدرسة ينبغى التعلم منها أشكرك على تفاعلك
hafez81 قام بنشر يناير 19, 2014 قام بنشر يناير 19, 2014 (معدل) ياريت كيفية وضع دارة حمراء على المعدل من 200 خاص بخانة وحدة و الباقي من 100 مشكورين اخواني تم تعديل يناير 19, 2014 بواسطه hafez81
اسماعيل شتات قام بنشر فبراير 7, 2014 قام بنشر فبراير 7, 2014 اخوتى الاعزاء ارجو كود عمل الدوائر فى شيت الاكسيل لكل مادة على حدة حسب درجة الرسوب والنجاح ويكون تلقائيا لكل الشيت مشكككككككككككككككككككور لكم مقدما
Abdelhady Tahoon قام بنشر فبراير 26, 2015 قام بنشر فبراير 26, 2015 السلام عليكم استاذى ( الخالدى ) نفعك الله بعلمك الذى تفيض علينا به فى موضوع الدوائر الحمراء لو سمحت لى سؤال الاكسيل 2007 و 2010 لا يتم حفظ الكود عليهم بمعنى عند وضع الكود وغلق الشيت ثم فتحه لا يوجد الكود ويتم وضعه من جديد وشكراً لحضرتك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.