ياسر خليل أبو البراء قام بنشر يوليو 23, 2009 الكاتب قام بنشر يوليو 23, 2009 أخي سالم شباني آسف مكنتش فتحت الإيميل عشان كدا مشفتش الواجب غير دلوقتي الواجب جميل ولكن يبدو أنك استخدمت مسجل الماكرو إذ أن الكود مكتوب في 4 أسطر ، ويكفي سطر واحد لتنفيذه ( أقول مرة أخرى اقرأ جيداً الدرس ولا تتعجل ) أخي الحببب أحمد حافظ Range(A1, B5).Copy Destination = Range("G6").Paste أظن أن المشكلة التي صادفت أخي سالم هي نفس المشكلة التي صادفتك ، ولعلك عرفت الحل والسبب في هذه المشكلة!! أما بالنسبة للواجب : أولا: لتحديد مدى يتم استخدام الكائن Range ثم افتح قوس ) وأضف علامة اقتباس " ثم اكتب بداية المدى وليكن هنا A1 ثم : ثم نهاية المدى وليكن كما في المثال B5 ثم أغلق بعلامة اقتباس أخرى ثم القوس ( بالنسبة للبارامتر Destination يتم وضع : بعده ثم علامة يساوي = وتكون هكذا Destination:= أما بالنسبة للطريقة Paste فلا داعي لاستخدامها في سطر الكود إذ أن كلمة Destination تغني عنها وهنا سؤال هام أخي أحمد :هل جربت تنفيذ الكود قبل أن ترفق ملفك؟؟؟؟؟؟؟؟؟؟؟؟؟؟ أرجو منكم قراءة الدروس بتركيز أخوكم أبو البراء
خالد القدس قام بنشر يوليو 23, 2009 قام بنشر يوليو 23, 2009 السلام عليكم أستاذي الغالي ياسر الآن تفرقت تماما للدورة ولكن صدمت بالسؤال الأول في الواجب الأول أنا بخاف من المثلث تطلعي دوائر يا استاذ انجليزى ورياضيات في كود واحد مش ممكن ده يكون واجب ده امتحان نهاية سنة حاولت مرارا وتكرارا من هذه الدائرة حتى شعرت بالدوار ولم أفلح أرجو المعذرة ولكن هذه إجابة السؤالين الآخرين Set Report = Worksheets("Sheet1").Range("A1:E10") هذا الكود يقوم بتسمية المدى من A1 إلى E10 في الشيت رقم 1 باسم Report. Report.Select هذا الكود يقوم بتحديد المدى المسمى في الكود السابق Range("b1").Activate هذا يعني تحديد الخلية B1 Range("E10").Value = "Khalil" هذا الكود يقوم بكتابة كلمة كنص (Khalid) في الخلية E10 X = Range("E10").Value هذا الكود بمثابة تصريح بأن قيمة X تساوى النص الموجود في الخلية E10 MegBox X هذا الكود يستدعي قيمة X في رسالة وهذا حل الواجب الأخير Range ("A1: B5") Selection Copy Range "C6" ActiveSheet Paste آمل أن أتحصل على درجة المرور مع العلم أن درجة المرور في مادة الانجليزى دائماً تكون ربع الدرجة الكاملة دورة مميزة زادك الله تميزاً وعلوا
سالم شباني قام بنشر يوليو 23, 2009 قام بنشر يوليو 23, 2009 السلام عليكم أشكرك أخي ياسر على التوضيحات وكذا تقييمك لمحاولاتنا صحيح استعملت طريقة التسجيل لأرى كيفية العمل وبعدها مسحت وأعدت الكتابة يدويا حتى أتعود كما قلت واليوم ظهر أنه بإمكان عمل سطر واحد وهذا مفيد أيضا بقي لي شيء غامض حول هذا الأمر ActiveCell .Value ="Officena" هل الغرض هو تحديد الخلية التي فيها القيمة المكتوبة officena أرجو التوضيح وممكن مثال ثان حتى تتضح الصورة ومغذرة على الإطالة
ياسر خليل أبو البراء قام بنشر يوليو 26, 2009 الكاتب قام بنشر يوليو 26, 2009 بقي لي شيء غامض حول هذا الأمر ActiveCell .Value ="Officena" هل الغرض هو تحديد الخلية التي فيها القيمة المكتوبة officena أرجو التوضيح وممكن مثال ثان حتى تتضح الصورة أخي سالم بارك الله فيك ، وإلى الأمام دائماً ...بالنسبة إلى سؤالك حول الكود المكتوب عاليه: يقوم هذا السطر بوضع القيمة النصية التي بين علامات الاقتباس Officena في الخلية النشطة أياً كانت الخلية طالما أنها نشطة وقمت بتنفيذ الكود فإن الكود يقوم بوضع القيمة في الخلية النشطة ، مثلاً لو كنت منشط الخلية D3 وبعدين نفذت الكود عن طريق الضغط على زر أو ALT + F8 واختيار الماكرو الذي سيتم تنفيذه فإن النص Officena سيظهر في الخلية D3 أرجو أن أكون وفقت في توصيل المعلومة --------------- أخي خالد القدس همتك معانا وميهمكش لا رياضيات ولا إنجليزي ولا برمجة ، إحنا مع بعض وحدة وحدة وبنتعلم مع بعض ، أوعاك تكون فاكر إني أحسن من أي حد فيكم لا لا لا !!!!!!!!!!! دا أنا تلميذ بليد ، بس عندي رغبة إني أتعلم وهو دا المهم أخي خالد أخوكم أبو البراء
سالم شباني قام بنشر يوليو 26, 2009 قام بنشر يوليو 26, 2009 السلام عليكم جزاك الله خيرا أستاذ ياسر على الشرح الوافي طبعا هدفنا التعلم بس وحدة وحدة
ahmedhafez قام بنشر يوليو 27, 2009 قام بنشر يوليو 27, 2009 جزاك اله كل خير اخى الكريم ونحن معك فى تكماة الدورة ان شاء اللرحمن والى الامام
ياسر خليل أبو البراء قام بنشر يوليو 30, 2009 الكاتب قام بنشر يوليو 30, 2009 السلام عليكم إخواني متابعي الدورة هل لديكم أي استفسارات أو أسئلة أم أن كل شيء واضح ؟؟ أريد إكمال الدورة بثبات ولكن.....يبقى السؤال كم منا يريد التعلم حقاً؟؟؟ أخوكم أبو البراء
خالد القدس قام بنشر يوليو 30, 2009 قام بنشر يوليو 30, 2009 السلام عليكم أخي الحبيب أبو البراء حقا لقد استفدنا معلومات جديدة ومفيدة جدا واعتقد أن أهم شيء استفدت أنا شخصيا الوصول إلى يقين أن هذه العالم عالم الأكواد سهل يمكننى أن أتعرف عليه بل واتقنه ولو بعد حين فقط الذي نريده هو عمل حل نموذجي للواجبات السابقة وفقك الله إلى كل خير وزادك علمانافعاً وعملاً صالحاً ورزقا حسنا
ahmedhafez قام بنشر أغسطس 2, 2009 قام بنشر أغسطس 2, 2009 السلام عليكم اخى الكريم ابو البراء نحن فى انتظار تكملة الدورة بارك الله فيك اخى الكريم
سالم شباني قام بنشر أغسطس 2, 2009 قام بنشر أغسطس 2, 2009 السلام عليكم أخي ياسر تيقن أن الدورة ستنجح ننتظر الدرس الخامس
ياسر خليل أبو البراء قام بنشر أغسطس 3, 2009 الكاتب قام بنشر أغسطس 3, 2009 السلام عليكم إخواني الأحباء الأخ خالد : بالنسبة للواجب اللي عمله الأخ المعتصم يعتبر نموذجي يمكك الرجوع إليه الأخ سالم : الدرس الخامس جاهز من كام يوم ، بس كنت مستني الإذن منكم برفعه إليكم إخواني الجزء الخامس أتمنى أن أجد تفاعلاً أكثر من هذا!!! نداء إلى عباقرة المنتدى وجهابذته ، ياليتكم تشاركونا حتى يكون الموضوع أكثر ثراءاً أخوكم أبو البراء ChapterOne_5.rar
ahmedhafez قام بنشر أغسطس 3, 2009 قام بنشر أغسطس 3, 2009 لسلام علليكماخى ياسر انت وضعت حالة الاجابة YES ولاكن سوف يظهر حالتين YES & NO Answer = MsgBox (Prompt:="Are you a doctor?", Buttons:=vbYesNo) If Answer = vbYes Then ActiveCell.Value = "I like doctors" ولاكم فى حالة NO ماذا سوف يحدث اى انى يجب تعريف الاكسل فى حالة NO ماذا سيفعل
ياسر خليل أبو البراء قام بنشر أغسطس 3, 2009 الكاتب قام بنشر أغسطس 3, 2009 أخي الحبيب أحمد الإجابة ببساطة أنه لن يحدث شيء إذا نقرت على No إلا إذا قمت بالتعديل على الكود وأضفت السطر التالي Answer = MsgBox(Prompt:="Are you a doctor?", Buttons:=vbYesNo) If Answer = vbYes Then ActiveCell.Value = "I like doctors" Else ActiveCell.ClearContents End If ماذا سيحدث ؟ إذا نقرت Yes سيقوم الكود بتنفيذ الجزء الأول بعد Then أي أنه سيضع القيمة النصية I like doctors في الخلية النشطة ، أما إذا نقرت No سيقوم بتنفيذ الجزء الثاني بعد Else ألا وهو مسح محتويات الخلية النشطة لا تنسى أن تضع الجملة End If في نهاية الكود لإغلاق If أخوك أبو البراء
خالد القدس قام بنشر أغسطس 3, 2009 قام بنشر أغسطس 3, 2009 السلام عليكم درس حاجة روعة يا أستاذ أبو البراء طبقته وأظن أنه تمام مرفق ملف التطبيق Book1.rar
ahmedhafez قام بنشر أغسطس 3, 2009 قام بنشر أغسطس 3, 2009 اخى الحبيب أبو البراء بارك الله فيك اريد ان اقول لك انك جعلتنى احب كتابة الاككواد لانى كنت اعتقد انها صعبة جدا ولن استطيع كتابتها بارك الله فيك لى سوال اخر مت يجب وضع الكود فى السيت ومتى يتم وضعة فى workbook ومتى يتم وضعة فى module ومتى يتم وضعة فى submodule
ياسر خليل أبو البراء قام بنشر أغسطس 4, 2009 الكاتب قام بنشر أغسطس 4, 2009 الأخ خالد القدس أيوا كدا اثبت لي بالتطبيق العملي إنك طالب مجتهد الله ينور عليك الأخ أحمد حافظ لى سوال اخر مت يجب وضع الكود فى السيت ومتى يتم وضعة فى workbook ومتى يتم وضعة فى module ومتى يتم وضعة فى submodule أعتقد إن السؤال محتاج تدخل من الاساتذة!! أخوكم أبو البراء
سالم شباني قام بنشر أغسطس 4, 2009 قام بنشر أغسطس 4, 2009 السلام عليكم شكرا أستاذ خليل على الجهذ المبذول هكذا نريد الدروس كلام قليل وعمل كثير لدي سؤال حول إمكانية تحديد الخلية التي يظهر فيها النص المراد إظهاره بعد جهد كبير قمت بهذه المحاولة البسيطة علما أنني بطيء في الكتابة ظˆط§ط¬ط¨2.rar
أيسم إبراهيم قام بنشر أغسطس 4, 2009 قام بنشر أغسطس 4, 2009 السلام عليكم جزاك الله خيرا أستاذ ياسر على هذه الدورة قمت بعمل الواجب ولكن استخدمت فيه الأرقام الكودية بدلا من الأوامر البرمجية الصريحة حددت أحد المتغيرات من النوع متلون ( Variant ) كتبت الرسالة في الصندوق على سطرين باستخدام الأمر البرمجي (Chr$(10) أضفت عنوان لصندوق الرسالة بدلا من عنوان Microsoft Excel الكئيب دمتم بخير أيسم إبراهيم MESSAGE BOX.rar
سالم شباني قام بنشر أغسطس 4, 2009 قام بنشر أغسطس 4, 2009 السلام عليكم يفترض ألا أعلق على مساهمات الإخوة الأفاضل ولكن أستسمح الأستاذ ياسر لأقول لأخي خالد وأخي أيسم بورك فيكما لقد استفدت كثيرا من مساهمتيكما
ياسر خليل أبو البراء قام بنشر أغسطس 4, 2009 الكاتب قام بنشر أغسطس 4, 2009 السلام عليكم الأخ سالم تمام الواجب وياريت دايماً تسأل ومايهمكش حتى لو كانت حاجة عدت علينا لدي سؤال حول إمكانية تحديد الخلية التي يظهر فيها النص المراد إظهاره يمكن بالإشارة إلى الخلية المراد إظهار النص فيها مثلاً للإشارة إلى الخلية D5 نستخدم ٌRange("D5")="Salem is my friend" الأخ أيسم يشرفني أن تنضم إليا في دورتنا المتواضعة أخوكم أبو البراء
سالم شباني قام بنشر أغسطس 5, 2009 قام بنشر أغسطس 5, 2009 السلام عليكم حتى نتمكن من حفظ الدروس التي قدمت إلى حد الآن وعدها خمسة رأيت من الأفضل جمعها في برنامج واحد حتى تسهل العودة إليها في أي وقت يمنكم نسخ البرنامج كاملا على cd ليبقى محفوظا بصفة دائمة أرجو أن ينال إعجابكم وخاصة الأستاذ الفاضل ياسر خليل ( أبو البراء ) سأقوم بإنجاز برنامج لكل 5 دروس حتى نهاية الدورة بحول الله
ahmedhafez قام بنشر أغسطس 6, 2009 قام بنشر أغسطس 6, 2009 اخى ابو البراء السلام عليكم بارك الله فيكهل حتى الان لم نعرف ما الفرق عند اضافة الكود فى الشيت او الworkbook او module او submdule
ياسر خليل أبو البراء قام بنشر أغسطس 6, 2009 الكاتب قام بنشر أغسطس 6, 2009 السلام عليكم أخي أيسم كتبت الرسالة في الصندوق على سطرين باستخدام الأمر البرمجي (Chr$(10 يمكن أيضاً استبدال الأمر البرمجي الذي ذكرته بأمر آخر هو vbCrLf الأخ أحمد حافظ بالنسبة لسؤالك فقلد أردت الاستفاضة من أحد الجهابذة !!! أعتقد أن لكل كائن أحداث خاصة به فمثلاُ إذا أردت إظهار رسالة ترحيب عند فتح المصنف فيوضع الكود في الحدث Workbook_Open أما إذا أردت التغيير في خلايا معينة بمجرد إدخال بيانات في خلايا أخرى وبدون الضغط على أي أزرار أي تنفيذ الماكرو مباشرة فيكون الحدث Worksheet_SelectionChange هو الحدث المناسب أو Workbook_SheetChange هذا على قدر المعلومات التي لدي ، ولا تنسى أخي أحمد أنني أتعلم معكم أيضاً فما أتعلمه أنا تتعلمه أنت وهكذا اعذرني إن لم أوفق في الرد على استفسارك بشكلٍ جيد أو مرضي أخوكم أبو البراء
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.