تعلم طريقة كتابة أكواد الفيجوال بيسك (V.B.A) بنفسك

[أكرم الغامدي]

الموضوع في غاية البساطة، وهو كالتالي:

1- من قائمة أدوات>ماكرو / إختر "تسجيل ماكرو جديد...".

2- سيظهر لك مربع حوار يخبرك باسم الماكرو ووصفه أنقر "موافق".

وبذلك سيقوم محرر الفيجوال بيسيك بتسجيل كل ما تقوم به في برنامج الإكسيل داخل مديول خاص(Module1) ويطلق عليه اسم ماكرو1 أو Macro1 أو الاسم الذي تحدده انت من مربع الحوار السابق.

3- من قائمة أدوات>ماكرو / إختر "محرر Visual Basic".

4- سيظهر أمامك محرر الفجيوال بيسك أنقر نقراً مزدوجاً على المديول "Module1" في شجرة المشروع الحالي "Project VBAProject" بأعلى اليسار.

وبذلك سيظهر أمامك الماكرو الذي يترجم كل تحركاتك وأفعالك داخل البرنامج إلى أكواد.

ومن هنا تكون نقطة الإنطلاق إلى عالم أكواد الفيجوال بيسيك.

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

قم بتصغير شاشة محرر الفيجوال بيسيك لتذهب للكتاب الحالي ثم قم بأي عمل تريده، على سبيل المثال:

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

Range("B5").Select

ثم تذهب مرة أخرى للكتاب ثم تكتب في الخلية "الله أكبر" ستجد أنه ترجم هذه التصرف للكود التالي:

ActiveCell.FormulaR1C1 = "الله أكبر"

وهكذا....

فبنظرك ومقارنتك للذي تفعله والذي يكتب داخل الماكرو سوف تتعلم طريقة كتابة الأكواد ليس داخل برنامج الإكسيل فقط بل في تطبيقلت فيجوال بيسيك عموماً.

وأخيراً أتمنى أن أكون قد وفقت في إيصال المعلومة.

وأي سؤال أنا جاهز.

أخوكم أكرم الغامدي (أبو عبدالله).

[أبو محمد سلامة]

أخي الحبيب أكرم الغامدي

جزاكم الله تعالى كل خير على هذه الأفكار الجميلة . وكل عام وأنتم بخير .

أخوكم أبو محمد سلامة

تم تعديل ديسمبر 16, 2007 بواسطه أبو محمد سلامة

[أكرم الغامدي]

وإياك أخي أبو محمد، وانت بأتم صحة وعافية، وشكراً لمرورك وردك على الموضوع.

[ابو اسامة العينبوسي]

السلام عليكم

اليك رابط اخى اكرم الغامدى بالمناسبه

http://depositfiles.com/en/files/1437888

قبل ان يتم غلق الرابط

[أكرم الغامدي]

أولاً ألف مبروك على الترقية يا أبو أسامة، تستاهل أكتر من هيك، وعقبال الإشراف.

للأسف لم استطع تحميل الملف!!!

تأتيني هذه الرسالة:

We are sorry, but all downloading slots for your country are busy.

Try again later or use next options to download this file:

تم تعديل ديسمبر 16, 2007 بواسطه أكرم الغامدي

[شحادة بشير]

جزاك الله خيراً

رابط الأخ أبو أسامة لا يعمل

نتمنى أن نعرف محتواه؟ ول هو عربي؟

[أكرم الغامدي]

وإياك يا أبتاه، وشاكر لك مرورك وردك.

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

[omar elhosseini]

السلام عليكم ورحمة الله وبركاتة

شكرا لأخى اكرم

وشكرا لأخى ابو اسامة على هذا الكتاب القيم فكان ينقصنى مثل هذا المستوى من الكتب القيمة

بالنسبة للاخوة اللذين لم يستطيعو تحميل الكتاب لأى اسباب

يمكن التحميل بالطريقة التاليه :

بإستخدام اى محرك بحث مثل جوجل

يكتب فى محرك البحث ( Download 0470104880 )

سيحصل على كل المواقع التى تسمح بتحميل الكتاب

وهى طريقة عامة لتحميل الكتب اذا استطعت الحصول على السريال نمبر الخاص بالكتاب

تم تعديل ديسمبر 16, 2007 بواسطه أبو تامر

[أكرم الغامدي]

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

وأشكر لك إطلالتك على الموضوع.

[شيروان]

السلام عليكم ورحمة الله وبركاته

بارك الله فيك على هذه المعلومة

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

[h63]

السلام عليكم

اخوانى الاعزاء مشرفين واعضاء فعاليين ممن كتبوا فى هذا الموضوع كل عام وانتم بخير كلا باسمه خوفا من النسيان

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

اخوانى لا املك اكثر من القول جزاكم الله ملايين من حسناته وخيراته شكرا شكرا

هشام

[h63]

اخى العزيز / اكرم

عفوا لى سؤال حضرتك قلت حدد الخلية b5 ثم اكتب مثلا الههاكبر وقد قمت بتنفيذ ذلك فعلا ونجحت اريد عن طريق الكتابة داخل الكود ان اوسع المدى لكلمة الله اكبر حتى مثلا b15 فكيف يكون هذا

[أكرم الغامدي]

حياكم الله اخواني وشكراً على الدعوات الطيبة.

أخي h63 هل تقصد دمج؟ اذا كنت تقصد ذلك فهذا هو الكود:

    Range("B5:B15").Merge

[h63]

عفوا اخى ما اريده فى المرفق

واريد ايضا ان اعرف ما التغيير عند كتابة الكود السابق (Range("B5:B15").Merge)

Book1.rar

[أكرم الغامدي]

تفضل أخي h63 إليك ما طلبت.

FromA1ToA15.rar

[يحيى حسين]

السلام عليكم و رحمة الله

اخواني هذا رابط لتحميل الكتاب الذي وضعه الاخ ابو اسامة

على موقع الرابيد شير

http://rapidshare.com/files/60077919/1028MEAMO.rar

و موقع الميجا

http://www.megaupload.com/?d=2AYI9A3J

و اتمنى الاخ اكرم الغامدي يسامحني على هالتدخل بمشاركة غير تابعه لموضوعه

و السلام

تم تعديل ديسمبر 26, 2007 بواسطه justice

[خير أمة]

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

[شحادة بشير]

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

نرجو إعلامنا: ما هو محتوى الكتاب الذي وضعه الأخ أبو أسامة؟

وهل هو عربي؟

[يحيى حسين]

الكتاب باللغة الانجليزية

[mr toto]

شكرا جزيلا

[رفيق محمد]

شكر واجب لكل الاخوة المشاركين في المنتدى

÷÷÷

÷÷÷

[أبو جديد]

ألف ألف شكر لك

شرح ممتاز

وهل من مزيد ؟