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

[المتبولى]

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

[خالد دسوقى]

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

أخى المتبولى ........ بإذن الله سأكتب لك ماكرو فصل الناجحين فى ملف .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 أطاح يكل شئ


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

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

[المتبولى]

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

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

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

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

تقبل تحياتى

[المتبولى]

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

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