Macro-9

تمرين14 :

باستخدام النماذج والماكرو من خلال برنامج Microsoft Excel ، المطلوب عمل نافذة مبسطة للآلة الحاسبة تقوم بعمليتى الجمع والطرح فقط على النحو التالى:

الحـــــــــــــــــــــــــــــل

أولا: لتفعيل VBA يتم فتح قائمة File واختيار Options ثم Customize Ribbon ثم Developer.

يظهر تبويب جديد بعنوان Developer منه يتم اختيار أول أيقونة على اليسار  Visual Basic Editor، أو الضغط على مفتاحى Alt+F11 ، فتظهر النافذة التالية ، فنختار منها قائمة Insert ثم Userform :

فتظهر نافذة النموذج Userform1 التالية ومعها نافذة الأدوات Toolbox :

فيتم أخذ ثلاثة أنواع من الأدوات من نافذة الأدوات Toolbox ووضعها داخل نافذة النموذج ، وهى :

1-   الأداة Label العناوين: يتم استخدام ثلاث أدوات لاظهار ( أدخل الرقم الأول ، أدخل الرقم الثانى ، الناتج )  

2-   الأداة Textbox مربع نص : يتم استخدام ثلاث أدوات لادخال الرقمين واظهار الناتج

3-   الأداة CommandButton زر أوامر : يتم استخدام ثلاث أدوات ( اجمع ، اطرح ، انهاء )

مع تغيير خصائص كل أداة كالتالى:

1-   الخاصية Backcolor : تستخدم لتغيير لون الخلفية

2-   الخاصية Caption : تستخدم لتغيير عنوان النموذج أو الكتابة داخل أداة العناوين

3-   الخاصية Text : تستخدم لتغيير الكتابة داخل أداة مربع النص

4-   الخاصية Font : يستخدم لتغيير نوع وحجم الخط

5-   الخاصية ForeColor : تستخدم لتغيير الكتابة داخل أداة مربع النص

6-   الخاصية TextAlign : تستخدم لمحاذاة النص داخل الأداة

7-   الخاصية Cancel : تستخدم مع مفتاح انهاء وذلك للسماح باستخدام مفتاح Esc من لوحة المفاتيح لاغلاق هذا النموذج

لتظهر النافذة على الشكل المطلوب :

ثم يتم ادخال الاكواد البرمجية كما يلى ، وذلك بالنقر المزدوج على أزرار الأوامر كلا على حدة :

Private Sub CommandButton1_Click( )

TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

End Sub

Private Sub CommandButton2_Click( )

TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)

End Sub

Private Sub CommandButton3_Click( )

End

End Sub

ومن خلال برنامج Excel يتم عمل ماكرو جديد باسم الآلة_الحاسبة يتم فيه كتابة الكود التالى:

Sub الآلة_الحاسبة( )

' الآلة_الحاسبة Macro

UserForm1.Show

End Sub

وعند اختيار تبويب " عرض View" ، ثم اختيار " ماكرو Macros " ، ثم " عرض الماكرو View Macros " ، فتظهر النافذة التالية :

وعند اختيار اسم الماكرو الآلة_الحاسبة ثم Run يتم تشغيل الآلة الحاسبة.