|
|
|
#2
11-06-2012, 11:23 PM
|
|||
|
|||
أ / هانى .... أ / المتبولى يرغب فى التعلم حتى ينهى أعماله بنفسه فيبدو أن الشيتات لديه كثيره لذا فهو يريد أن " يفهم الطريقة " لينفذها بنفسه .
أخى المتبولى ........ بإذن الله سأكتب لك ماكرو فصل الناجحين فى ملف .txt وسأرفقه لك لأن للأسف عندما أكتب معادلة هنا تتبدل مكوناتها مثل هذه kh19 = Range("P2").Value ' ÚÏÏ ÇáØáÈÉ ; 
|
|
#3
11-06-2012, 11:47 PM
|
|||
|
|||
|
الاستاذ الفاضل الكريم خالد دسوقى
اولاً : شكرا لك على اهتمامك بالموضع وجعل الله عملك الخير فى ميزان حسناتك ثانيا : انا فعلا فى اشد الاحتياج الى التعلم لانى بتعامل مع 9 تخصصات للصف الاول الصناعى كل تخصص له شيت لان عدد المواد بتختلف من تخصص لاخر وايضا 8 تخصصات للصف الثانى ثالثا : اتمنا ان يكون صدر حضرتك رحب وان تقبل ان تعلمنى خطوة خطوة لانى كما ذكرت ليس لى اى خبرة فى مجال المكرو وانا فى انتظار حضرتك
|
|
#4
12-06-2012, 11:08 PM
|
|||
|
|||
|
بسم الله الرحمن الرحيم أخى المتبولى ......... سبب تأخرى عليك هو أننى عملت لك شيت جديد وبسيط أرجو أن ينول إعجابك وأرجو أن تراجع المعادلات المكتوبة تحت مواد الرسوب من حيث القيمة المحددة للرسوب وكذلك إعدادات الخلاية المناطرة لها فى الرصد ومرفق أيضا بداية التعرف على الماكرو مع أمثلة توضيحية وأى تفسير تريدة إسألنى ولا تبخل علىّ بالثواب .
|
|
#6
12-06-2012, 11:53 PM
|
|||
|
|||
|
لكم أسعدنى دعاءك ...... بارك الله فيك ولك .
|
|
#7
13-06-2012, 01:22 AM
|
|||
|
|||
|
الاستاذ الفاضل خالد شكرا لك على هذا المجهود العظيم وجعله الله في ميزان حسناتك
لقد قمت بالفعل بعمل اضافات عديدة هذا العام على الشيتات مثل مواد الرسوب والشهادت بدالة vlookup وكذلك عدد المتقدمين وعدد الناجحين والنسبة وغير ذلك ولكن اولا : سأطرح على حضرتك عدة اسالة حتى اصل لما اريد قبل الاسئلة انا قمت بادراج 3 ورقات ( شيتات ) الى الشيت المراد التنفيذ عليه الاول لاسم ناجح ومنقول للصف التالى الثانية راسب وله حق الدخول الثالثة راسب وليس له حق الدخول س1 عايز انقل من شيت 3ث من العامود a خلية a12 : dg12 مثلا الى شيت ناجح ومنقول بشرط العامود de ( حالة الطالب ) ناجح ومنقول للصف التالى فماذا افعل ؟
|
|
#8
13-06-2012, 02:06 AM
|
|||
|
|||
|
أخى المتبولى ....... هل تقصد أتك تريد نسخ الطالب الناجح دون اخرين أم تريد أن يكتب فى الخلية de12 ناجح ومنقول للصف التالى .
إذا قارنت بين الملف Module1.txt والماكرو الموجود فى الشيت الذى أرفقته ستصل إلى نتيجة مرضية بإذن الله . Range(A12:DG12).Copy Sheets("AAM19").Range("A12").PasteSpecial xlPasteAll إستبدل إسم الشيت من AAM19 إلى ناجح ومنقول للصف التالى
|
|
#9
13-06-2012, 01:52 PM
|
|||
|
|||
|
الاستاذ الفاضل خالد
انا بالفعل غيرت اسماء الشيتات من aam19 الى تاجح ومنقول وهكذا والحمد لله الخطوة دى تمام ما اقصده انى انقل الطالب الناجح الى شيت ناجح ومنقول والطالب الراسب الى شيت راسب وهكذا كما فعلت حضرتك س2 هل فى البداية اقوم بعمل جدول فارغ مثل الجدول الموجود فى شبت الرصد علشان الترحيل يتم فيه ولا ايه اول خطوة بالضبط علشان ابدا العمل فى الترحيل س3 كيف يمكن نقل الكود ال حضرتك عملته على شيت نجارة الاثاث الى شيت اخر مع اختلاف عدد المواد وعدد الطلبة ارجو التوضيح بعد اذن حضرتك
|
|
#10
13-06-2012, 03:16 PM
|
|||
|
|||
|
جـ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
|
|
#11
13-06-2012, 08:03 PM
|
|||
|
|||
|
انا عارف انك اتخنقت منى
لكن ارجو ان تسامحنى انا كما قلت لك سابقا لم اتعامل مع الميكرو من قبل وده اكيد كود كبير محتاج مجهود كبير وانا اول ما ابدا ابدا به لكن لم تجيب على احد الاسئلة وهو لازم اصمم جدول فى الصفحات المضافة علشان الترحيل يتم فيها ؟؟؟؟
|
|
#12
13-06-2012, 08:27 PM
|
|||
|
|||
|
الاستاذ الفاضل خالد
قمت بالفعل بنسخ الميكرو وقابلنى الاتى اولا الافس عندى عربى copy و paste مش المشكلة المشكلة 1 _ فين الاقى اسم الميكرو علشان اغيرة 2_ عندما قمت بنسخ اللينك اتنسخ كلمة اظهار النتيجة فقط مش الزر 3 _ طبعا عندما ضغط على كلمة اظهار النتيجة فى الشيت الاخر لم يحدث شئ
|
|
#13
14-06-2012, 03:55 PM
|
|||
|
|||
|
يا الله ............... بعد كتابة أكثر من ساعتين خطأ فى ال Explorer أطاح يكل شئ
يبدو أن جهاز الكمبيوتر تأثر بإنفعالاتى وغضبى لحكم ( المحكمة ) الدستورية ....... سأعيد الكتابة فى ملف وورد وسأرفقه لك بإذن الله ........ سامحنى فلست فى مزاج للكتابة الآن
|
 |
| العلامات المرجعية |
«
الموضوع السابق
|
الموضوع التالي
»
| أدوات الموضوع | |
| انواع عرض الموضوع | |
العرض المتطور
|
|
جميع الأوقات بتوقيت GMT +2. الساعة الآن 09:52 PM.
