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


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

وجزاكم الله خيرا

ارجو الاهتمام لانى محتاجه ضرورى

ارجو الاهتمام للضرورة

ارجو الاهتمام للضرورة

اين الحل عسى ان يكون المانع خير

منين نجيب المعادلة

من خبراء الاكسل

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

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

أخى المتبولى ........ قمت بتحميل الشيت وأنا أعمل فيه الأن .......

الشيت يحتاج لبعض التعديلات منه على سبيل المثال .... بيانات أول طالب تبدأ من 11 وليس 12
كما فى الخانات بدءآ من cy11 ' cz11 ' dd11 .......
وعندما أنتهى منه سأعيد رفعه لك بإذن الله .

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

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


ثالثا : كما ذكرت لحضرتك سابقا انا ليس لدى اى خبرة فى عمل الميكرو

فلو تكرمت يكون العمل بالدوال مع شرح طريقة التنفيذ كى اتمكن من التطبيق على باقى الشيتات

ولك كل الشكر والاحترام

ارجوا التواصل

أخى المتبولى .... الشيت سليم والماكرو موجود إضغط Alt + F11

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

الاخ الكريم خالد دسوقى
نعم الميكرو موجود لكن لكن عندما نقلت بيانات الى الشيت وضغط على زر اظهار النتيجة

فيه رسالة بتقول الميكرو غير موجود فى هذه الصفحة

ثانيا كيق اطبق هذا الميكرو على باقى الشيتات مع اختلاف عدد المواد فى كل شيت

ثالثا : عندما نقلت درجات الطلاب الى شيت الرصد فى نجارة الاثاث لم يتم ترحيل الطلاب الى شيت الناجح او الراسب

ارجوا الافادة

ولك جزيل الشكر والعرفان

أخى المتبولى ..... فى الشيت الذى أرفقته أضفت بعض المعادلات على سبيل المثال

فى الخانة dc11 ' dh11 ' ............ لإظهار مواد الرسوب

الخانة gg11 لتحديد نتيجة الطالب إذا كان :

ناجح

راسب1 (راسب وله حق دخول الدور الثانى )

راسب2 ( راسب وباقى للأعادة )

فى الماكرو يوجد تفسير فى نهاية السطر لتعرف الخانات المستخدمة

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

كما ذكرت لك سابقا ان لم اتعامل مع الميكرو من قبل

لذلك ارى ان التطبيق علىباقى الشيتات صعب

ولو حدث اى تعديل فى المستقبل فى المواد سيكون تعديل المكرو اصعب

وان حدث خطأ لن استطبع حلة

فأنا ارجو منكان تعلمنى الصيد ولا تعطنى سمكة

أخي العزيز لقد قمت بعمل فكرة جديدة لملفك و هي كالتالي
1. أفتح ملف الأكسيل
2. قم بأختيار الحالة من القائمة المنسدلة
3. أضغط علي زر معاينة

و سوف تري النتيجة

:av4056bb7jp3::av4056bb7jp3::av4056bb7jp3:

للتحميل
http://www.mediafire.com/?me8uqu68k9ukgz3

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

أ / هانى .... أ / المتبولى يرغب فى التعلم حتى ينهى أعماله بنفسه فيبدو أن الشيتات لديه كثيره لذا فهو يريد أن " يفهم الطريقة " لينفذها بنفسه .

أخى المتبولى ........ بإذن الله سأكتب لك ماكرو فصل الناجحين فى ملف .txt وسأرفقه لك لأن للأسف عندما أكتب معادلة هنا تتبدل مكوناتها مثل هذه

kh19 = Range("P2").Value ' ÚÏÏ ÇáØáÈÉ

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

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

ثانيا : انا فعلا فى اشد الاحتياج الى التعلم لانى بتعامل مع 9 تخصصات للصف الاول الصناعى كل تخصص له شيت لان عدد المواد بتختلف من تخصص لاخر

وايضا 8 تخصصات للصف الثانى

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

وانا فى انتظار حضرتك

بسم الله الرحمن الرحيم


أخى المتبولى ......... سبب تأخرى عليك هو أننى عملت لك شيت جديد وبسيط

أرجو أن ينول إعجابك وأرجو أن تراجع المعادلات المكتوبة تحت مواد الرسوب من حيث القيمة المحددة للرسوب

وكذلك إعدادات الخلاية المناطرة لها فى الرصد

ومرفق أيضا بداية التعرف على الماكرو مع أمثلة توضيحية وأى تفسير تريدة إسألنى ولا تبخل علىّ بالثواب .

اللهم ارزقه الخير كله عاجله واجله وابعد عنه الشر كله عاجله واجله

جزاك الله كل خير استاذ خالد

ساطلع على الشيت حلا واترك لك الرد انشاء الله

لكم أسعدنى دعاءك ...... بارك الله فيك ولك .

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

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

ولكن اولا : سأطرح على حضرتك عدة اسالة حتى اصل لما اريد

قبل الاسئلة انا قمت بادراج 3 ورقات ( شيتات ) الى الشيت المراد التنفيذ عليه
الاول لاسم ناجح ومنقول للصف التالى الثانية راسب وله حق الدخول الثالثة راسب وليس له حق الدخول
س1 عايز انقل من شيت 3ث من العامود a خلية a12 : dg12 مثلا الى شيت ناجح ومنقول بشرط العامود de ( حالة الطالب ) ناجح ومنقول للصف التالى

فماذا افعل ؟

أخى المتبولى ....... هل تقصد أتك تريد نسخ الطالب الناجح دون اخرين أم تريد أن يكتب فى الخلية de12 ناجح ومنقول للصف التالى .

إذا قارنت بين الملف Module1.txt والماكرو الموجود فى الشيت الذى أرفقته ستصل إلى نتيجة مرضية بإذن الله .



Range(A12:DG12).Copy
Sheets("AAM19").Range("A12").PasteSpecial xlPasteAll


إستبدل إسم الشيت من AAM19 إلى ناجح ومنقول للصف التالى

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

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

س2 هل فى البداية اقوم بعمل جدول فارغ مثل الجدول الموجود فى شبت الرصد علشان الترحيل يتم فيه

ولا ايه اول خطوة بالضبط علشان ابدا العمل فى الترحيل

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

ارجو التوضيح بعد اذن حضرتك

جـ2 نعم بالفعل فقد قمت تحديد الشيت من A1 وحتى نهاية الجدول فى CU10 فى صفحة ناجح

وحتى DM10 فى صفحتى الراسبين لتسجيل مواد الرسوب


جـ3 إفتح شيت نجارة الأثاث ثم إفتح الشيت الآخر

إضغط على Alt + F11 لفتح صفحة الماكرو

على يسار الصفحة ستجد جدول بدايته () VBAProject للشيتين
على اليسار إضغط على أى Sheet يخص الشيت الآخر

إضغط Insert ثم إختر Module


لنسخ الماكرو من شيت نجارة الأثاث لشيت السيارات مثلآ

ظلل الماكرو من SUB وحتى END SUB بأن تضع المؤشر عند بادية أول سطر بحيث يصبح المؤشر على شكل سهم

إضغط بيسار الماوس مرة واحدة فيتم تظليل سطر واحد الذى يقف غنده المؤشر


إضغط بيسار الماوس مرتين متتاليتين فيتم تظليل الماكرو بأكملة


وفوق أى سطر مظلل إضغط بيمين الماوس وإختر COPY


فى موديول الشيت الآخر إضغط بيمين الماوس وإختر PASTE

غير إسم الماكرو ( بدون مسافات ) إلى مثلآ MatCar

من شيت تجارة أثاث صفحة شيت 3 ث

إضغط بيمين الماوس على لينك ( المستطيل ) إضغط هنا لإظهار النتيجة وإختر COPY

فى الشيت الجديد وفى الصفحة التى تريد إضغط بيمين الماوس وإختر PASTE

وحرك اللينك للمكان الذى ترغب

أأأأأأأأأأأأأأأأأأأأأأأأأأه فهمت لماذا تظهر لك رسالة الماكرو غير موجود

إضغط بيمين الماوس على اللينك ثم إختر AssingMacro

فى الشاشة الى ستظهر لك إختر MatCar

أو

فى أسفل الشاشة الى ستظهر لك ستجد All Open WoorkBooks

إضغط على السهم المجاور لها وإختر إسم الشيت الجديد

سيبقى اسماء الماكرو فى هذا الشيت فقط

بيسار الماوس إضغط على إسم الماكرو MatCar

انا عارف انك اتخنقت منى

لكن ارجو ان تسامحنى انا كما قلت لك سابقا لم اتعامل مع الميكرو من قبل

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

لكن لم تجيب على احد الاسئلة وهو

لازم اصمم جدول فى الصفحات المضافة علشان الترحيل يتم فيها ؟؟؟؟

الاستاذ الفاضل خالد

قمت بالفعل بنسخ الميكرو وقابلنى الاتى

اولا الافس عندى عربى copy و paste مش المشكلة المشكلة

1 _ فين الاقى اسم الميكرو علشان اغيرة
2_ عندما قمت بنسخ اللينك اتنسخ كلمة اظهار النتيجة فقط مش الزر

3 _ طبعا عندما ضغط على كلمة اظهار النتيجة فى الشيت الاخر لم يحدث شئ

يا الله ............... بعد كتابة أكثر من ساعتين خطأ فى ال Explorer أطاح يكل شئ


يبدو أن جهاز الكمبيوتر تأثر بإنفعالاتى وغضبى لحكم ( المحكمة ) الدستورية .......

سأعيد الكتابة فى ملف وورد وسأرفقه لك بإذن الله ........ سامحنى فلست فى مزاج للكتابة الآن

معك عذرك استاذ خالد

فقك الله الى ما فية الخير دائما

ولنا الله فى مصر وما يجرى لها

فى انتظار حضرتك

تقبل تحياتى

اين انت يا استاذ خالد

امتحان الدور الثانى اقترب

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

سلام الله عليكم ورحمته وبركاته

عندى مشكلة فى شيت نجارة الاثاث ال حضرتك عملت له كود الترحيل
وهى : عندما ارد التعديل فى عامود عدد مواد الرسوب لان مواد الرسوب 13 وليس 17 لان المواد العملية كلها مادة واحدة

بتظهر رسلة ( ممنوع الكتابة هنا )

فماذا افعل ؟؟؟؟؟؟؟؟؟؟

ارجو الافادة


طلب ثان لو ممكن حضرتك تنزل شرح كود الترحيل وكيفية نقلة الى اى شيت والتعديل عليه فيديو لو امكن

ولك خالص تحياتى

أخى المتبولى .......... آسف على التأخير

لإلغاء إعدادات أى خلية إنسخ أى خلية عادية ليس بها إعدادت فى الخلية التى بها إعدادت

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

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

ـ فى الملف المرفق قمت بتطبيق شرح احد الاخوة بعمل فلتر وتسجيل مكرو وطبقت الشرح بالضبط

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

ارجو التوضيح اين الخطأ هل هو فى الكود ام فى امان المكرو

استاذ خالد
امر اخر لم اذكره لك وهو

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

بتغير قيمة الخلية ( بتصبح فارغة)

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

عند تنفيذ المكرو ظهر خطأ فى هذا السطر
If Range("CW" & i) = "" thin.
ثانيا ماذا تقصد بـ يجب عن يكون عندما مخزن

هل تقصد انى اقوم بتخزين المعلومات المذكرة فى هذه الامكن ام ماذا ؟

لتصحيح خطأ الماكرو غير موجود ........ على الزر الموجود فى الخانة CG3 بيمين الماوس

إختر ..... ماكرو ثم إختر إسم الماكرو

فى الملف StepByStep2.doc نفس طريقة تصحيح لينك إضغط هنا لإظهار النتيجة

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

بعد تشغيل الماكرو مرة أخرى ستملأ بالبيانات

أما عن المخازن فهى لتحديد مسار الماكرو كأن أقول له أن البيانات تبدأ من الصف 12

وأنسخها فى الشيت الآخر فى الصف 13 لذا نكتب فى الماكرو a1=12 , a2=13

وأما غن الخطأ فى الماكرو If Range("CW" & i") then

فى أى شبت هذا الماكرو

رسالة المكرو فى شيت 3ث

دى الرسالة ال ظهرت بعد ما ربط زر المكرو بالاسم رسلة بتعذر الوصول اختفت وظهرت الرسالة المرفقة فى الملف السابق

عفوآ .......... أنا أعمل على Offce 2003

معك ساقوم بتنصيب افس 2003

واتواصل مع حضرتك حالا

استاذ خالد تم تثبيت offce 2003 ومنتظر مشاركة حضرتك

إرفق الملف السابق بصيغة doc. ياترى Office2003 عربى ولا إنجليزى

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

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

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

ب

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

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


بالتوفيق .

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

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

ب

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

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


بالتوفيق .

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

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

ب

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

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


بالتوفيق .

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

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

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

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

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

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

السلام عليكم استاذ خالد

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

1- Format ====> Condtional Formating

2 - Data ==== > Validation

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

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

لذلك تظليل الخلية باللون الرصاصى أفضل الحلول .

استاذ خالد جزاك الله خير

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

هناك امر اخر
وهو عند كتابة ( غ ) فى خلية الغائب بتضرب ناتج الجمع فى الخلية وكذلك المجموع الكلى
؟؟؟؟؟

إرفق الشيت .

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

الحمد لله اتحلت مشكلة حرف غ فى الشيت

بكن هناك امر اخر

اولا : عايز اخفى المعادلات فى الشيت يعنى لما اضع الماوس على خالية يها معادلة يظهر الناتج اما المعادلة فلا ؟

ثانيا : لما امسح بيانات الشيت عيز المعادلات تظل كما هى يعنى امسح البيانات فقط فماذا افعل

ارجو التوضيح

أخى المتبولى .......... فأما عن إخفاء المعادلات فأظنها من Tools وأكيد أحد الزملاء لديه معومات

أكثر منى فى هذا الموضوع .

وأما عن مسح خلية المعادلة فيمكنك حمايتها من Data ==== > Validation لكن هذا لن يحميها من النسخ عليها .

شكرا وجزاك الله خير