اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

دورة للمبتدئين في عالم البرمجة


الردود الموصى بها

أخي سالم شباني

آسف مكنتش فتحت الإيميل عشان كدا مشفتش الواجب غير دلوقتي

الواجب جميل ولكن يبدو أنك استخدمت مسجل الماكرو إذ أن الكود مكتوب في 4 أسطر ، ويكفي سطر واحد لتنفيذه ( أقول مرة أخرى اقرأ جيداً الدرس ولا تتعجل )

أخي الحببب أحمد حافظ

Range(A1, B5).Copy Destination = Range("G6").Paste
أظن أن المشكلة التي صادفت أخي سالم هي نفس المشكلة التي صادفتك ، ولعلك عرفت الحل والسبب في هذه المشكلة!! أما بالنسبة للواجب : أولا: لتحديد مدى يتم استخدام الكائن Range ثم افتح قوس ) وأضف علامة اقتباس " ثم اكتب بداية المدى وليكن هنا A1 ثم : ثم نهاية المدى وليكن كما في المثال B5 ثم أغلق بعلامة اقتباس أخرى ثم القوس ( بالنسبة للبارامتر Destination يتم وضع : بعده ثم علامة يساوي = وتكون هكذا
Destination:=

أما بالنسبة للطريقة Paste فلا داعي لاستخدامها في سطر الكود إذ أن كلمة Destination تغني عنها

وهنا سؤال هام أخي أحمد :هل جربت تنفيذ الكود قبل أن ترفق ملفك؟؟؟؟؟؟؟؟؟؟؟؟؟؟

أرجو منكم قراءة الدروس بتركيز

أخوكم أبو البراء

رابط هذا التعليق
شارك

  • الردود 240
  • Created
  • اخر رد

Top Posters In This Topic

السلام عليكم

أستاذي الغالي ياسر

الآن تفرقت تماما للدورة ولكن صدمت بالسؤال الأول في الواجب الأول أنا بخاف من المثلث تطلعي دوائر

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

حاولت مرارا وتكرارا من هذه الدائرة حتى شعرت بالدوار ولم أفلح أرجو المعذرة

ولكن هذه إجابة السؤالين الآخرين

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

آمل أن أتحصل على درجة المرور مع العلم أن درجة المرور في مادة الانجليزى دائماً تكون ربع الدرجة الكاملة

دورة مميزة زادك الله تميزاً وعلوا

رابط هذا التعليق
شارك

السلام عليكم

أشكرك أخي ياسر على التوضيحات وكذا تقييمك لمحاولاتنا

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

واليوم ظهر أنه بإمكان عمل سطر واحد وهذا مفيد أيضا

بقي لي شيء غامض حول هذا الأمر

ActiveCell .Value ="Officena"

هل الغرض هو تحديد الخلية التي فيها القيمة المكتوبة officena أرجو التوضيح وممكن مثال ثان حتى تتضح الصورة

ومغذرة على الإطالة

رابط هذا التعليق
شارك

بقي لي شيء غامض حول هذا الأمر

ActiveCell .Value ="Officena"

هل الغرض هو تحديد الخلية التي فيها القيمة المكتوبة officena أرجو التوضيح وممكن مثال ثان حتى تتضح الصورة

أخي سالم

بارك الله فيك ، وإلى الأمام دائماً ...بالنسبة إلى سؤالك حول الكود المكتوب عاليه:

يقوم هذا السطر بوضع القيمة النصية التي بين علامات الاقتباس Officena في الخلية النشطة أياً كانت الخلية طالما أنها نشطة وقمت بتنفيذ الكود فإن الكود يقوم بوضع القيمة في الخلية النشطة ، مثلاً لو كنت منشط الخلية D3 وبعدين نفذت الكود عن طريق الضغط على زر أو ALT + F8 واختيار الماكرو الذي سيتم تنفيذه فإن النص Officena سيظهر في الخلية D3

أرجو أن أكون وفقت في توصيل المعلومة

---------------

أخي خالد القدس

همتك معانا وميهمكش لا رياضيات ولا إنجليزي ولا برمجة ، إحنا مع بعض وحدة وحدة وبنتعلم مع بعض ، أوعاك تكون فاكر إني أحسن من أي حد فيكم

لا لا لا !!!!!!!!!!! دا أنا تلميذ بليد ، بس عندي رغبة إني أتعلم

وهو دا المهم أخي خالد

أخوكم أبو البراء

رابط هذا التعليق
شارك

السلام عليكم

إخواني متابعي الدورة هل لديكم أي استفسارات أو أسئلة أم أن كل شيء واضح ؟؟

أريد إكمال الدورة بثبات ولكن.....يبقى السؤال كم منا يريد التعلم حقاً؟؟؟

أخوكم أبو البراء

رابط هذا التعليق
شارك

السلام عليكم أخي الحبيب أبو البراء حقا لقد استفدنا معلومات جديدة ومفيدة جدا واعتقد أن أهم شيء استفدت أنا شخصيا الوصول إلى يقين أن هذه العالم عالم الأكواد سهل يمكننى أن أتعرف عليه بل واتقنه ولو بعد حين فقط الذي نريده هو عمل حل نموذجي للواجبات السابقة وفقك الله إلى كل خير وزادك علمانافعاً وعملاً صالحاً ورزقا حسنا

رابط هذا التعليق
شارك

السلام عليكم إخواني الأحباء

الأخ خالد : بالنسبة للواجب اللي عمله الأخ المعتصم يعتبر نموذجي يمكك الرجوع إليه

الأخ سالم : الدرس الخامس جاهز من كام يوم ، بس كنت مستني الإذن منكم برفعه

إليكم إخواني الجزء الخامس

أتمنى أن أجد تفاعلاً أكثر من هذا!!!

نداء إلى عباقرة المنتدى وجهابذته ، ياليتكم تشاركونا حتى يكون الموضوع أكثر ثراءاً

أخوكم أبو البراء

ChapterOne_5.rar

رابط هذا التعليق
شارك

لسلام علليكماخى ياسر انت وضعت حالة الاجابة YES ولاكن سوف يظهر حالتين YES & NO

Answer = MsgBox (Prompt:="Are you a doctor?", Buttons:=vbYesNo)

If Answer = vbYes Then ActiveCell.Value = "I like doctors"

ولاكم فى حالة NO ماذا سوف يحدث اى انى يجب تعريف الاكسل فى حالة NO ماذا سيفعل

رابط هذا التعليق
شارك

أخي الحبيب أحمد

الإجابة ببساطة أنه لن يحدث شيء إذا نقرت على 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

أخوك أبو البراء

رابط هذا التعليق
شارك

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

بارك الله فيك

لى سوال اخر مت يجب وضع الكود فى السيت ومتى يتم وضعة فى workbook ومتى يتم وضعة فى module ومتى يتم وضعة فى submodule

رابط هذا التعليق
شارك

الأخ خالد القدس

أيوا كدا اثبت لي بالتطبيق العملي إنك طالب مجتهد

الله ينور عليك

الأخ أحمد حافظ

لى سوال اخر مت يجب وضع الكود فى السيت ومتى يتم وضعة فى workbook ومتى يتم وضعة فى module ومتى يتم وضعة فى submodule

أعتقد إن السؤال محتاج تدخل من الاساتذة!!

أخوكم أبو البراء

رابط هذا التعليق
شارك

السلام عليكم

شكرا أستاذ خليل على الجهذ المبذول

هكذا نريد الدروس كلام قليل وعمل كثير

لدي سؤال حول إمكانية تحديد الخلية التي يظهر فيها النص المراد إظهاره

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

ظˆط§ط¬ط¨2.rar

رابط هذا التعليق
شارك

السلام عليكم

جزاك الله خيرا أستاذ ياسر على هذه الدورة

قمت بعمل الواجب ولكن استخدمت فيه

الأرقام الكودية بدلا من الأوامر البرمجية الصريحة

حددت أحد المتغيرات من النوع متلون ( Variant )

كتبت الرسالة في الصندوق على سطرين باستخدام الأمر البرمجي (Chr$(10)

أضفت عنوان لصندوق الرسالة بدلا من عنوان Microsoft Excel الكئيب

دمتم بخير

أيسم إبراهيم

MESSAGE BOX.rar

رابط هذا التعليق
شارك

السلام عليكم

يفترض ألا أعلق على مساهمات الإخوة الأفاضل

ولكن أستسمح الأستاذ ياسر لأقول لأخي خالد وأخي أيسم

بورك فيكما لقد استفدت كثيرا من مساهمتيكما

رابط هذا التعليق
شارك

السلام عليكم

الأخ سالم

تمام الواجب وياريت دايماً تسأل ومايهمكش حتى لو كانت حاجة عدت علينا

لدي سؤال حول إمكانية تحديد الخلية التي يظهر فيها النص المراد إظهاره

يمكن بالإشارة إلى الخلية المراد إظهار النص فيها مثلاً للإشارة إلى الخلية D5 نستخدم


ٌRange("D5")="Salem is my friend"

الأخ أيسم

يشرفني أن تنضم إليا في دورتنا المتواضعة

أخوكم أبو البراء

رابط هذا التعليق
شارك

السلام عليكم

حتى نتمكن من حفظ الدروس التي قدمت إلى حد الآن وعدها خمسة

رأيت من الأفضل جمعها في برنامج واحد حتى تسهل العودة إليها في أي وقت

يمنكم نسخ البرنامج كاملا على cd ليبقى محفوظا بصفة دائمة

أرجو أن ينال إعجابكم وخاصة الأستاذ الفاضل ياسر خليل ( أبو البراء )

سأقوم بإنجاز برنامج لكل 5 دروس حتى نهاية الدورة بحول الله

رابط هذا التعليق
شارك

السلام عليكم

أخي أيسم

كتبت الرسالة في الصندوق على سطرين باستخدام الأمر البرمجي (Chr$(10

يمكن أيضاً استبدال الأمر البرمجي الذي ذكرته بأمر آخر هو vbCrLf

الأخ أحمد حافظ

بالنسبة لسؤالك فقلد أردت الاستفاضة من أحد الجهابذة !!!

أعتقد أن لكل كائن أحداث خاصة به فمثلاُ إذا أردت إظهار رسالة ترحيب عند فتح المصنف فيوضع الكود في الحدث Workbook_Open

أما إذا أردت التغيير في خلايا معينة بمجرد إدخال بيانات في خلايا أخرى وبدون الضغط على أي أزرار أي تنفيذ الماكرو مباشرة فيكون الحدث Worksheet_SelectionChange هو الحدث المناسب أو Workbook_SheetChange

هذا على قدر المعلومات التي لدي ، ولا تنسى أخي أحمد أنني أتعلم معكم أيضاً فما أتعلمه أنا تتعلمه أنت وهكذا

اعذرني إن لم أوفق في الرد على استفسارك بشكلٍ جيد أو مرضي

أخوكم أبو البراء

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه



×
×
  • اضف...

Important Information