حصريا : دورة كاملة في شرح VBA وتطبيقاته في إكسيل

[سامح حجاب]

جزاك الله خيراً يا أبو هاجر

على هذا المجهود الجبار

ووفقك الله إلى ما فيه الخير

وبإذن الله تعالى سأقرأ الدورة كاملاً ثم أعود بالأسئلة ان شاء الله

[احمدزمان]

ياباشا

كلنا اذآن صاغية

ومتابعين معاك خطوة بخطوة

الله يوفقك دائما الى كل مايحب و يرضى

[W W M]

الله نور يا استاذ / ابوهاجر

ولكن من فضلك ارفقك الشرح بامثله

[dangerman2]

اللهم أجعل هذا العمل في ميزان حسناتك

[zicoo]

السلام عليكم

اخي ابو هاجر

اولاً ادعو الله لك بالتوفيق والنجاح وجزاك الله عنا كل خير

ثانيا ارغب منكم بالافادة فى امكانية تقليس حجم ملف اكسل بة اكثر من 600 ورقة عمل ،وحيث كنت ابحث عن ملف ادارة المخازن والاصناف بمنتدى افيسنا ووجدت هذا الملف وقمت باضافة تعديلات علية واضافة جميع الاصناف وهم اكثر من 600 صنف وبالتالى زاد حجم الملف الى اكثر من 30 ميجا بلإضافة الى بطئ الفتح والاغلاق وبدون بيانات .

كيف يتم ذلك عن طريق الاكواد او تقيليل الحجم او ما شابة ذلك

افادكم الله

(الملف مرفق بعد حذف صفحات الاكسل لتقليل الحجم مع الابقاء على 3 ورقات عمل كمثال )

_____.rar

[mr mostafa osman]

كل الشكر والتقديد للأستاذ المحترم : ابو هاجر المصرى

ويجب ان نقدر جميعا ذلك العمل الشاق الذى يقوم به متمنيا التوفيق والدوام

مشاركتى اولا للشكر والتقدير لهذا العمل العظيم

ثانيا كى اوضح اهمية \وقوة الاكسيل vba

هذا البرنامج الصغير من جزء من احد برامجى المحاسبية ولكنة يوضح الى اى متى يمكن اعداد البرامج المحاسبية باستخدام هذا البرنامج الرائع

حتى لا اطيل عاليكم هذا هو رابط البرنامج

http://www.filebox.com/6ewd8crhxt4r

mostafa osman

Designer accounting programs

www.mostafaosman.page.tl

[amhateb]

منذ بداية هذا الموضوع وأنا متابع بشغف

ولا أريد أن أعلق أو أرد ولو بالشكر حتى لا أقطع تواصل الموضوع بين كاتب الموضوع الأخ أبو هاجر ومن يعلق أو يضيف مثل الأستاذ أحمد يعقوب أو AHH هذا من جهة ومن جهة أخرى لا أقطع استمتاعي بالموضوع وحشوه بالردود

الآن أعلم أن كل منا مشغول بما يه الكفاية في هذه المطحنة التي تسمى الدنيا لكني افتقدت الأخ أبو هاجر منذ ما يقرب من عشرة أيام

عسى أن يكون المانع خيرا ويكمل

[أبو هاجر المصري]

أشكر كل الأخوة بدون ذكر أسماء

لكني والله اني مشغول للغاية في جرودات في العمل

لكن حبيت بس ارد اي رد حتى لا تظنوا أنني نسيت الموضوع أو مللت بالعكس خالص

وآسف تاني لكل الأخوة المتابعين للموضوع وشكرا لكم

[hesham_khadr200]

أخي الكريم كم كنت متعطشا لهذه الدورة والاستفادة من خبراتكم العظيمة

جزاك الله كل خير وزادك علما وايمانا

[عبد القادر ابو]

بارك الله فيك وجعلها في ميزان حسناتك

[هادى محمد المامون سالم]

كل الشكر والتقديد للأستاذ المحترم : ابو هاجر المصرى

ويجب ان نقدر جميعا ذلك العمل الشاق الذى يقوم به متمنيا التوفيق والدوام

مشاركتى اولا للشكر والتقدير لهذا العمل العظيم

ثانيا كى اوضح اهمية \وقوة الاكسيل vba

هذا البرنامج الصغير من جزء من احد برامجى المحاسبية ولكنة يوضح الى اى متى يمكن اعداد البرامج المحاسبية باستخدام هذا البرنامج الرائع

حتى لا اطيل عاليكم هذا هو رابط البرنامج

بسم الله الرحمن الرحيم

اكثر من رائع

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

السلام عليكم

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

ملحوظه

عند قيامى بتحميل ملف اخى mr mostafa osman اختفى شريط DisplayFormulaBar و قمت باعادته بالكود التالى

Sub ttt_ON()
    Application.ActiveWindow.DisplayOutline = True
End Sub

السلام عليكم

[okiskar]

بارك الله فيكم جميعاً وجعل تلك الأعمال في ميزان حسناتكم إنشاء الله

مع خالص التحيات

[ابوحبيبه]

بارك الله فيك...

سير على بركة الله

واكمل هذا الموضوع الشيق

[7abiLEARNINGEXCEL]

بارك الله فيك

[lotfybelal]

جزاك الله كل خيرالموضوع جميل

[ياسر خليل أبو البراء]

السلام عليكم يا أبو هاجر

أنا من أشد المعجبين بهذه الدورة ، أسلوب سهل ، شرح سلس ، تدرج ممتع!!!

اللي أخرني في الرد إني كنت متأخر عنكم فحبيت مردش غير لما أحصلكم

والحمد لله أنا وياكم في الدورة ، ومستني بقية الدورة بشغف

بس لي رجاء ، إدراج أمثلة أكثر ، لمزيد من التقدم والارتقاء بالموضوع ( ودا يكون من أساتذة المنتدى العباقرة )

عاشق الإكسيل

[السيهاتي]

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

كل الشكر والتقدير والاحترام للأستاد ابو هاجر وجميع الأخوة والأخوات المشاركة والمتابعة لهذا الموضوع الذي يدل على عظمة وقيمة صاحبه (قيمة كل أمرؤ ما يحسنه)

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

ولكم جزيل الشكر

[BARAKA]

اللهم ياحنان يا منان ياذا الفضل العظيم

الله اني اسألك بإسمك الأعظم ان ترزق الأخ ابو هاجر المصري وجميع المشرفين والقائمين على موقع اوفسينا والأعضاء الكرام والمتفاعلين منهم خير الجزاء في الدنيا وألاخرة.

[ياسر خليل أبو البراء]

اللهم ياحنان يا منان ياذا الفضل العظيم

الله اني اسألك بإسمك الأعظم ان ترزق الأخ ابو هاجر المصري وجميع المشرفين والقائمين على موقع اوفسينا والأعضاء الكرام والمتفاعلين منهم خير الجزاء في الدنيا وألاخرة

اللهم آمين

عاشق الإكسيل

[blackhorse123]

اخى الحبيب

انا مش فاهم اكتب فين الاكواد بالظبط

وحتى اذا عرفت اطبقها ازاى اصلا كل ما ادوس على زرار رن يظهرلى قائمه الماكرو اختار الماكرو ولا ايه انا مش فاهم الحقيقه

ارجو الاجابه

وشكرا

[ياسر خليل أبو البراء]

أيها الحصان الأسود

أهلاً ومرحباً بك في منتدى الأحبة

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

زمانك بتقول : بيقول حكم دا ولا ايه!! مش ناقصه وجع دماغ ع الصبح!!

عموماً تتم كتابة الأكواد من خلال محرر الفيجوال بيسك VBE ويمكنك الإيلاج إليه عن طريق قائمة أدوات أو اضغط كليك يمين على أي ورقة عمل واختر عرض كافة التعليمات البرمجية أو بلغتي الثانية View Code

هذا ونسألك الدعاء يا جواد ( أقصد من الجود وليس الجواد الفرس)

عاشق الإكسيل

تم تعديل يونيو 2, 2009 بواسطه YasserKhalil

[أحمد عبدالعزيز]

الحقيقة التى يجب أن أعترف بها , أننى منذ عدة سنوات كنت قد تعرضت لبعض من مواضيع الفيجوال بيسيك مع الإكسيل ولكننى وقتها وللأسف لأننى لم أستوعب الكثير منه تركته مع علمى ويقينى بأننى يجب أن أحترم هذا البرنامج العظيم الذى والحمد لله أتقدم فيه بشكل عالى وممتاز وهو الإكسيل وأيضاً يجب أن أحترم لغة الفيجوال بيسيك لِما بها من إمكانيات عاليه و عظيمه فى البرمجه ... وبعد مرور العديد من الأعوام ( حوالى سبعة أعوام ) واثناء مرورى لهذا الموقع العظيم وهذه الدروس الشيقه والمفيده والمحترمه أجدنى بعد كل هذه الأعوام أريد أن أتعلم من جديد , وبالفعل بدأت منذ عدة أيام بعد هذه الأعوام ....وأجدنى فى طريقى الصحيح والحمد لله .... شـــــــــــــــكراً لكم جميعاً أيها الساده المحترمين ...شكراً لكل من يساهم بالمشاركه فى هذا المنتدى وهذه الدروس العظيمه ..... شكراً للمشرفين والقائمين على هذا الإبداع الراقى .... شـــكراً لكم وجعله الله فى ميزان حسناتكم ... والسلام عليكم ورحمة الله تعالى وبركاته ..... أخوكم / أحمد عبدالعزيز

قال رسول الله صلى الله عليه وسلم : الخير فى وفى أمتى إلى يوم القيامه - صدق رسول الله صلى الله عليه وسلم ومعلم البشريه وخير خلق الله كلهم

[blackhorse123]

اخى الحبيب عاشق الاكسل

شكرا لك للرد على موضوعى

ولكنى لا اقول "مش ناقصه وجع دماغ "بل شاكر لك جدا على عرض هذا الموضوع الشيق

ولكنك صدقت فى جزء من كلامك وهو انى" مستعجل فى تعلم هذا الموضوع واريد ان اتعلمه بسرعه"

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

شكرا لك اخى الحبيب عاشق الاكسل مره اخرى

اخوك الحصان الاسود

[أبو هاجر المصري]

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

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

الجزء السادس : التحكم في المنطق والحلقات

Control Logic And Loops

* في الجزء الأول سنناقش التالي :

1- المنطق المشروط .

2- العبارات المشروطة و (If/Then/Else و Select/Case ) في بناء الأكواد .

3- الحلقات .

- جميع لغات البرمجة تحتوي على تعبيرات منطقية يتم استخدامها في السيطرة على سلسلة من البيانات خلال البرنامج ، وبالطبع فإن VBA ليس استثناء من هذه القاعدة ، فحينما نقول A > B أو ِِA = B فهذا يعني أننا نقول :

- قيمة المتغير A تكون أكبر من قيمة المتغير B >

- قيمة المتغير A مساوية لقيمة المتغير B

- والتعبير أعلاه يتم تقييمها من خلال برنامج الكمبيوتر ( True or False ) ، وعلى أساس ذلك يتم توجيه مسارها للتعبير المنطقي ، وبذلك فالكمبيوتر يقوم باختيار المسار الصحيح لتنفيذه .

- فضلا عن ذلك فإن المبرمجين يستخدمون تعبيرات مثل ( And , Or , Not ) ، وسنفهم ذلك جيدا عندما نشاهد مثالا عمليا إن شاء الله .

عامة ، كن متأكدا من أنك تعرف هذه الرموز جيدا :

= Tests for equality الاختبار للمساواة

<> Tests for inequalityالاختبار لعدم المساواة

< Less than أقل من

> Greater thanأكبر من

<= Less than or equal toأقل من أو يساوي

>= Greater than or equal to أكبر من أو يساوي

- أما بخصوص ( And , Or , Not ) ، فإن الثلاث جداول أدناه توضح القواعد ..

** القيم الحقيقية للصيغة And

Condition1 --------- Condition2 ---- Condition1 AND Condition2

----True ---------------- True ------------------------------ True

----True --------------- False ----------------------------- False

----False --------------- True ----------------------------- False

----False --------------- False ----------------------------- False

** القيم الحقيقية للصيغة Or

Condition1 ----------- Condition2 ------- Condition1 OR Condition2

----True ------------------ True------------------------------ True

----True ------------------- False --------------------------- True

----False ----------------- True----------------------------- True

---- False ----------------- False --------------------------- False

** القيم الحقيقية للصيغة Not

Condition1 ----------- NOT Condition1

----True -------------------- False

----False --------------------- True

في هذه الحالة فقط فإن القيمة لا تحتمل غير أحد الحالتين صحيح / خطأ ..

1) الجمل الشرطية والتشعب .

- دعونا الآن نبدأ بدراسة بسيطة ولكنها في غاية الأهمية لبناء أكواد VBA ، فسوف تستخدمها في جميع برامجك التي ستصممها بإذن الله ، إنها صيغة ( If/Then/Else ) .. هذه البنية تعرف على أنها مشروطة وفي نفس الوقت متفرعة ومتشعبة ، وذلك لأنها تستخدم البيانات المشروطة في تغيير تدفق أو اتجاه تنفيذ البرنامج .

** If / Then / Else **

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

If (condition) Then ( code statement )

في هذا المثال ، إذا كان تقييم الشرط على أنه صحيح ( true ) .. فإن البرنامج يتبع ما بعد ( then ) ويتم تنفيذه ، وإلا فسوف يتم التحويل إلى التعبير التالي ( next ) ، وإذا أردت تنفيذ أكثر من تعبير فإنه يتوجب عليك استخدام الفورمة التالية ( if/then – End if ) أي تنهي الكود ب End If ..

[كود]If (condition) Then

‘Block of code statements

End If [/كود]

- مرة أخرى ، فإنه يجب أن تكون حالة الشرط true وإلا فالصيغة لن يتم تنفيذها .

- الإجراء التالي عبارة عن لعبة بسيطة لتحديد العمر ، يتم عن طريقها قيام المستخدم بتخمين العمر المحدد مسبقا ، هناك ثلاث تراكيب ( if/then ) استخدمت في البرنامج لتحديد أي رسالة سوف يتم إخراجها للمستخدم طبقا لمدخلاته ...

[كود]Private Sub GuessAge()

Dim userGuess As Integer

Dim age As Integer

age = 25

userGuess = Val(InputBox(“Guess a number between 20 and 30.”, “Guess Age”))

If (userGuess > age) Then

MsgBox (“Too high!”)

MsgBox (“The answer is “ & age)

End If

If (userGuess < age) Then

MsgBox (“Too low!”)

MsgBox (“The answer is “ & age)

End If

If (userGuess = age) Then MsgBox (“You got it!”)

End Sub[/كود]

- قمنا بإدخال القيمة ( 25 ) لتحديد العمر ، وسيقوم المستخدم بتخمين هذا الرقم عن طريق مربعات الإدخال ..

- بنية أو صيغة ( If/Then ) تقوم بمقارنة القيمة المدخلة مع القيمة المخزنة وهي ( userGuess ) ، على سبيل المثال فلو أن المستخدم خمن العمر الحقيقي ، عندما يكون الشرط مساو للقيمة المدخلة في مربع الإدخال ، فإن رسالة نصية يتم تنفيذها على الفور وهي ( You got it ) ..

- كما يجب عليك استخدام صيغة ( If / Then / Else ) في الحالات التالية :

* تنفيذ بعد أكواد مطابقة للشروط الصحيحة .

* اختيار واحد من اثنين من قوالب الكود ليتم تنفيذه .

[كود]If (condition)

‘This block of code executes if the condition is true

Else

‘This block of code executes if the condition is false.

End If[/كود]

- إن صيغة ( If / Then ) في إجراء تخمين العمر يمكنك أن تكتبها كالتالي ( حيث أن <> تعني عدم المساواة )

[كود]If (userGuess <> answer) Then

MsgBox (“Wrong! The answer is “ & answer)

Else

MsgBox (“You got it!”)

End If[/كود]

*** آسف مرة أخرى يا جماعة واعذروني على التقصير ، والمرة القادمة باذن الله بيكون معانا كورس يستاهل ، بس بصراحة كنت فرحان وانا قاعد على الجهاز وشغال في الموضوع ده ، وقلت أي كم بخلصه على طول هنشره ، وشكرا لكم جميعا يا أحلى منتدى ...............

تم تعديل يونيو 13, 2009 بواسطه أبو هاجر المصري