أساسيات VBA إكسل : كيفية اضافة واجهة المستخدم أو UserForm في VBA
في هده التدوينة من سلسلة أساسيات VBA اكسل, سنتعلم كيفية استخدام واجهة المستخدم أو UserForm بالانجليزية.
اضافة UserForm
لإضافة UserForm ، نقوم بالضغط على زر التطوير في الاكسيل ثم نضغط على ورقة بالزر الايمن للماوس الصورة أدناه توضح كيفية اضافة UserForm
عند اضافة نافذة واجهة المستخدم أو UserForm تظهر معه نافذة الأدوات التي من خلالها انشاء زر على سبيل المثال :
نافذة الخصائص
إذا لم تكن نافذة الخصائص ظاهرة ، يمكنك اظهارها عبر الضغط على F4
يمكنك عبر نافذة الخصائص تغيير واجهة المستخدم أو UserForm
عنوان واجهة المستخدم
لتغيير عنوان واجهة المستخدم أوUserForm ، يمكنك تغييرة عبر الخاصية Caption :
أبعاد واجهة المستخدم أو UserForm
لتعديل أبعاد واجهة المستخدم أو UserForm، يمكنك القيام بتعديل خصائص العرض و الارتفاع أو تغيير حجم
UserForm يدويًا:
يمكن أيضًا تغيير خصائص واجهة المستخدم أو UserForm من التعليمات البرمجية ل VBA
أحداث واجهة المستخدم أو UserForm
نفس الشيء بالنسبة للمصنف أو أوراقه ، فإن UserForm له أحداثه الخاصة.
نبدأ بعرض رمز
UserForm
ثم انقر فوق UserForm :
نحدد الحدث UserForm_Initialize الذي يتم تشغيله عند تشغيل نموذج المستخدم:
Private Sub UserForm_Initialize() End Sub
لنأخذ مثالاً
، سنقوم بإنشاء حدثين. الأول هو تحديد الأبعاد الأولية
لنموذج المستخدم والثاني لزيادة أبعاده بمقدار 50 لكل نقرة.
أدخل اسم UserForm متبوعًا نقطة
الخاصية Height هو
الارتفاع و Width هو العرض :
Private Sub UserForm_Initialize() UserForm_Exemple.Height = 250 UserForm_Exemple.Width = 250 End Sub
لنفهم أكثر الكود
، يمكننا استبدال اسم UserForm بـ Me وذالك نظرًا لوضع
هذا الرمز في UserForm الذي نريد العمل فيه:
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
تشغيل واجهة المستخدم أو UserForm
لبدء تشغيل UserForm من خلال إجراء ، نستخدم Show لكي نظهره :
Sub lancerUserform() UserForm_Exemple.Show End Sub