دة الشيت المطلوب تنفيذ المعادلة علية
 

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


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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ناجح

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ثانيا : انا فعلا فى اشد الاحتياج الى التعلم لانى بتعامل مع 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ث

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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