أخر الاخبار

أساسيات VBA إكسل : كيفية اضافة واجهة المستخدم أو UserForm في VBA

أساسيات VBA إكسل : كيفية اضافة واجهة المستخدم أو UserForm في VBA



في هده التدوينة من سلسلة أساسيات VBA اكسل, سنتعلم كيفية استخدام واجهة المستخدم أو UserForm بالانجليزية.


اضافة UserForm

لإضافة UserForm ، نقوم بالضغط على زر التطوير في الاكسيل ثم نضغط على ورقة بالزر الايمن للماوس الصورة أدناه توضح كيفية اضافة UserForm

أساسيات VBA إكسل : كيفية اضافة واجهة المستخدم أو UserForm في VBA


عند اضافة نافذة واجهة المستخدم أو UserForm تظهر معه نافذة الأدوات التي من خلالها انشاء زر على سبيل المثال :

أساسيات VBA إكسل : كيفية اضافة واجهة المستخدم أو UserForm في VBA


نافذة الخصائص

إذا لم تكن نافذة الخصائص ظاهرة ، يمكنك اظهارها عبر الضغط على F4

يمكنك عبر نافذة الخصائص تغيير واجهة المستخدم أو  UserForm

أساسيات VBA إكسل : كيفية اضافة واجهة المستخدم أو UserForm في VBA



عنوان واجهة المستخدم

لتغيير عنوان واجهة المستخدم أوUserForm ، يمكنك تغييرة عبر الخاصية Caption  :


 

أساسيات VBA إكسل : كيفية اضافة واجهة المستخدم أو UserForm في VBA


أبعاد واجهة المستخدم أو  UserForm

لتعديل أبعاد واجهة المستخدم أو  UserForm، يمكنك القيام بتعديل خصائص العرض و الارتفاع أو تغيير حجم UserForm يدويًا:

أساسيات VBA إكسل : كيفية اضافة واجهة المستخدم أو UserForm في VBA


يمكن أيضًا تغيير خصائص واجهة المستخدم أو UserForm من التعليمات البرمجية ل VBA


أحداث واجهة المستخدم أو UserForm


نفس الشيء بالنسبة للمصنف أو أوراقه ، فإن UserForm له أحداثه الخاصة.

نبدأ بعرض رمز UserForm 

أساسيات VBA إكسل : كيفية اضافة واجهة المستخدم أو UserForm في VBA


ثم انقر فوق UserForm :

أساسيات VBA إكسل : كيفية اضافة واجهة المستخدم أو UserForm في VBA


نحدد الحدث UserForm_Initialize  الذي يتم تشغيله عند تشغيل نموذج المستخدم:

Private Sub UserForm_Initialize() End Sub

لنأخذ مثالاً ، سنقوم بإنشاء حدثينالأول هو تحديد الأبعاد الأولية لنموذج المستخدم والثاني لزيادة أبعاده بمقدار 50 لكل نقرة.

أدخل اسم UserForm متبوعًا نقطة 

أساسيات VBA إكسل : كيفية اضافة واجهة المستخدم أو UserForm في VBA


الخاصية Height هو الارتفاع و Width هو العرض :

Private Sub UserForm_Initialize() UserForm_Exemple.Height = 250 UserForm_Exemple.Width = 250 End Sub

لنفهم أكثر الكود ، يمكننا استبدال اسم UserForm بـ Me وذالك نظرًا لوضع هذا الرمز في UserForm الذي نريد العمل فيه:

Private Sub UserForm_Initialize() Me.Height = 250 Me.Width = 250  

End Sub

يتم تشغيل الحدث الثاني عند النقر فوق UserForm 

Private Sub UserForm_Initialize() Me.Height = 250 Me.Width = 250 End Sub Private Sub UserForm_Click() Me.Height = Me.Height + 50 Me.Width = Me.Width + 50 End Sub

نظرة عامة علىUserForm   اضغط على F5 


أساسيات VBA إكسل : كيفية اضافة واجهة المستخدم أو UserForm في VBA


تشغيل واجهة المستخدم أو  UserForm

لبدء تشغيل UserForm من خلال إجراء ، نستخدم Show لكي نظهره :

Sub lancerUserform() UserForm_Exemple.Show End Sub

 

تعليقات
ليست هناك تعليقات
إرسال تعليق



    وضع القراءة :
    حجم الخط
    +
    16
    -
    تباعد السطور
    +
    2
    -