JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

اكسل : شرح جميع ادوات Excel VBA: Active X contorle

بسم الله الرحمن الرحيم 
اهلا بحضراتك متابعى موقع عالم الاوفيس
نقوم اليوم بشرح سلسلة كاملة من ادوات Active X contorle

والتى تحتوى على مجموعة من الادوات المهمة التى نستخدمها مثل :

1- Textbox
2-Listbox
3-Combobox
4- Check box
5- Option button
6- Spin button
7- Label
8- Image
9-Command button

Text Box


التكست بوكس (مربع النص ) هو حقل فارغ يمكن للمستخدم القيام بملء هذا التكست بوكس وهو ايضا يستخدم فى ادخال البيانات 
كيف ندرج  Textbox فى ورقة العمل لخاصة بنا
1- فى علامة تبويب المطور  Developer tab ونضغط على ادراج Insert 
2- من مربع  Active X contorle نختار ادراج مربع نص Text Box


3- نقوم برسم التكست بوكس على ورقة العمل ومن ثم نقوم بظبط خصائص التكست بوكس من قائمة الخصائص

List Box


الليست بوكس هى قائمة يقوم المستخدم باختيار اى عنصر من عناصر هذة القائمة
للادراج ليست بوكس نتبع الاتى

1- فى علامة تبويب المطور  Developer tab ونضغط على ادراج Insert 

2- من مربع  Active X contorle نختار ادراج Listbox


3- نقوم برسم الاداة على ورقة العمل
 وهنا عندنا ملاحظة: يمكنك  ايضا تغيير اسم عنصر التحكم بالنقر بزر الماوس الأيمن على عنصر التحكم (تأكد من تحديد وضع التصميم) ثم النقر فوق "خصائص". Properties ولكن  الآن ، سنترك ListBox1 كاسم مربع القائمة.


إنشاء كود فى حدث فتح الملف . سيتم تنفيذ التعليمات البرمجية المضافة إلى الحدث Open Workbook بواسطة Excel VBA عند فتح المصنف.

4. نفتح محرر Visual Basic.

5. اثم ننقر Dubbole Click  فوق هذا المصنف في Project Explorer.

6. اختر مصنف من القائمة المنسدلة اليمنى واختر فتح من القائمة المنسدلة اليمنى.

7- ولكى نضيف بعض العناصر الى الليست بوكس نقوم بكتابة الكود التالى


With Sheet1.ListBox1

    .AddItem "Egypt"

    .AddItem "Cairo"
    .AddItem "Giza"
End With

ولتفريغ الليست بوكس نكتب الكود التالى 

ListBox1.clear

وسنقوم ان شاء الله فى الدروس القادمة بشرح بقية الادوات 

الاسمبريد إلكترونيرسالة