باستخدام Excel ، يمكنك استخدام Visual Basic لإضافة مجموعة من الميزات المختلفة إلى جداول البيانات الخاصة بك ، بما في ذلك "UserForms". من خلال UserForms ، يمكنك عرض نموذج إدخال للمستخدم منفصل عن ورقة العمل الرئيسية ، وهو أمر مفيد لالتقاط البيانات من الأفراد الذين قد لا يكونون على دراية بجداول البيانات. باستخدام القليل من التعليمات البرمجية لـ Visual Basic ، يمكنك إضافة كل هذه البيانات إلى جدول البيانات في صفوف جديدة.
حدد الحقول الخاصة بك
قم بتشغيل Excel. أدخل أسماء جميع الحقول التي تريد التقاطها في الصف العلوي ، بدءًا من "A1" والعمل إلى اليمين. انقر على "المطور" ، ثم انقر على "Visual Basic". ستظهر نافذة Visual Basic. انقر فوق الرمز "A" من Toolbox ، وانقر واسحب داخل نافذة "UserForm1" في الموقع الذي تريد أن ينتقل إليه حقل النموذج الأول. قم بتحرير التسمية عن طريق تغيير خاصية "التسمية التوضيحية" إلى خاصية أكثر وصفيًا ، مثل "الاسم الأول" على سبيل المثال. قم بإنشاء تسمية لكل حقل من الحقول التي أدخلتها في ورقة العمل الخاصة بك.
أضف مربعات النص الخاصة بك
حدد رمز "TextBox" من Toolbox ، واسحب مربع نص إلى يمين التسمية الأولى. إذا كنت ستستخدم عددًا قليلاً من الحقول فقط ، فمن المقبول ترك خاصية "(الاسم)" على أنها الخاصية الافتراضية "TextBox1". ومع ذلك ، إذا كنت بحاجة إلى عدد كبير من الحقول ، فقد يكون هذا مربكًا ، لذا يجب عليك تعديلها لتتوافق مع التسميات التي قمت بإنشائها بالفعل. تأكد من أن كل تسمية لها مربع نص مطابق.
أضف زر إرسال
انقر فوق رمز "زر الأمر" في مربع الأدوات ، والذي يشبه زر قياسي على غرار Windows. انقر واسحبه إلى الحجم والموقع المطلوبين في UserForm1. عادة ، ستحتاج إلى هذا أسفل أو بالقرب من مربع النص النهائي في النموذج الخاص بك. غيّر خاصية "التسمية التوضيحية" للزر إلى "إرسال البيانات" أو شيء مشابه ، لتوضيح للمستخدم أنه يجب عليه النقر على هذا الزر لإرسال بياناته.
أضف التعليمات البرمجية لـ Visual Basic
انقر نقرًا مزدوجًا فوق الزر. أدخل الرمز التالي بين "Private Sub" و "End Sub":
eRow = Sheet1.Cells (عدد الصفوف ، 1) ، النهاية (xlUp) ، الإزاحة (1،0) ، الصف
ثم ابدأ سطرًا جديدًا أسفل هذا ثم أدخل ما يلي:
الخلايا (erow، 1) = TextBox1.Text
إذا قمت بإعادة تسمية مربعات النص الخاصة بك ، فقم بتغيير "TextBox1" إلى الاسم الذي أعطيته لمربع النص الأول. قم بذلك لكل مربع إدخال قمت بإنشائه ، وابدأ سطرًا جديدًا وأدخل أسماء مربعات النص الصحيحة بالشكل المناسب. أيضًا ، لكل سطر جديد ، قم بزيادة الرقم الموجود بين الأقواس بمقدار واحد. على سبيل المثال ، قد يبدو السطر التالي كما يلي:
الخلايا (erow، 2) = TextBox2.Text
انقر فوق الزر "تشغيل" في الجزء العلوي من النافذة لبدء التقاط البيانات.
