بوابة الثانوية العامة المصرية

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)
-   منتدى أعمال الامتحانات (https://www.thanwya.com/vb/forumdisplay.php?f=21)
-   -   دة الشيت المطلوب تنفيذ المعادلة علية (https://www.thanwya.com/vb/showthread.php?t=425311)

خالد دسوقى 18-06-2012 10:46 PM

1 مرفق
فى الشيت الذى أرفقته تم تصحيح الخطأ فى الماكرو

lastrow = Range("a" & Rows.cont).End(xlUp).rwo
ب
lastrow = Range("A1").CurrentRegion.Rows.Count
و fals ب false

و ( توسيع ) الخانات فى شيت ناجح


بالتوفيق .

خالد دسوقى 18-06-2012 10:54 PM

1 مرفق
فى الشيت الذى أرفقته تم تصحيح الخطأ فى الماكرو

lastrow = Range("a" & Rows.cont).End(xlUp).rwo

ب

lastrow = Range("A1").CurrentRegion.Rows.Count
و fals ب false

و ( توسيع ) الخانات فى شيت ناجح


بالتوفيق .

المتبولى 19-06-2012 12:04 AM

الف شكر استاذى الفاضل على التصحيح

وما رايك فى هذه الطريقة ؟؟؟؟؟؟؟

وهل ينفع اضيف شيت للراسب1 والراسب2 وابطهم بالكود البسيط ده ولا مينفعش

ولو ينفع كيف انفذ ؟؟؟؟

خالد دسوقى 19-06-2012 01:08 AM

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

لست خبيرآ فى الماكرو .....والماكرو الذى أكتبه فى 100 سطر يمكن كتابته فى 5 بإستخدام أوامر لا أعرفها والماكرو فى الشيت الذى أرفقته ( سأهضمه ) وأستخدمه فى المستقبل القريب بإذن الله

المتبولى 19-06-2012 11:29 AM

1 مرفق
السلام عليكم استاذ خالد

لو سمحت صحح الكود ده

لانى حاولت كتير

المتبولى 19-06-2012 05:27 PM

السلام عليكم ورحمة الله وبركاته استاذ خالد

اليوم وبفضل الله اشتغلت على 10 شيتات
7 منهم تم الترحيل بنجاح 3 لم تقبل الترحيل وبتظهر الرسالة دى ( subscript out of range ) فما الحل

خالد دسوقى 19-06-2012 07:01 PM

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

المتبولى 19-06-2012 08:11 PM

1 مرفق
الاستاذ الفاضل خالد دسوقى

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

ملف السيارات هو ال فيه مشكلة الرسالة

المتبولى 19-06-2012 08:12 PM

ملف السيارات ده هو ال فيه مشكلة الرسالة

خالد دسوقى 19-06-2012 08:12 PM

1 مرفق
الحمد لله ....... خلصت لك على السيارات

Out of range معناه إنك حددت منطقة معينة وطلبت أشياء خارج المنطقة

راجع Range("A1:EE131").Select


خالد دسوقى 19-06-2012 09:21 PM

أخى المتبولى ......... إنتبه لإسم الشيت ........ شيت 2ث غير شيت 3 ث

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

وإفتح المجال لآخر سطر يعنى لو ee131: خليها ee135:
حتى نجد حل لهذه المشكلة .

المتبولى 19-06-2012 10:00 PM

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

تقريبا انا كده انتهيت من كود الترحيل لجميع الشيتات

ولم يبق سوى مشكلة الشيت لو ملوش بيانات بياخد كل بيانات شيت الرصد اعنك الله عليها وسدد خطوك

انا بتغلب عليها يديويا بسمح محتويات الشيت

ارجوا التواصل وتشرفت بك كثير وانتفعت بخبراتك وجزاك الله عنا خير الجزاء

خالد دسوقى 19-06-2012 11:00 PM

تشرفت بمعرفتك وسعدت بالتعاون معك وتعلمت معك الكثير .

بارك الله فيك ولك .

المتبولى 25-06-2012 10:32 PM

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

طلب اخر لو سمحت

بالنسبة للدوائر الحمراء على الراسب كيفة افعل ذلك

2 التنسيق الشرطى لا يعمل بكفاءة
بمعنى انى بطلب لو اقل من 20 مثلا تلون الخلية باللون الاحمر مثلا فى بعض الشيتات يحصل الطالب على 20 ومع ذلك تلون الخلية باللون الاحمر وهذا ليس فى كل الشيتات
فما الحل ؟

خالد دسوقى 27-06-2012 09:49 AM

1 مرفق
أخى المتبولى ....... أعتذر عن تغيبى اليومين الماضيين لبعض المشاغل

وأما التنسيق الشرطى فله فرعان :

من الشريط أعلى الشاشة :

1- Format ====>Condtional Formating

2 - Data ==== > Validation

راجع الأرقام المكتوبة




جميع الأوقات بتوقيت GMT +2. الساعة الآن 05:54 PM.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.