كيفية نقل بيانات UserForm إلى ورقة عمل

المحتوى

• الاتجاهات
• كيفية نقل البيانات من UserForm إلى ورقة العمل
• نصائح
• تحذير
• ما تحتاجه

UserForms ، التي تسمى أيضًا "مربعات الحوار" ، هي إطارات رسومية تسمح للمستخدمين بملء المعلومات في الحقول وإدراج هذه البيانات في جداول بيانات Excel. يتم تضمين UserForm في Excel ويتم تشغيله عند فتح ملف Excel ، عادةً من خلال ماكرو. نظرًا لأن UserForms تستفيد من لغة Visual Basic ، فيمكن تخصيصها للتأكد من أن البيانات التي تم إدخالها في حقولهم كاملة وصالحة قبل نقلها إلى جدول بيانات Excel.

الاتجاهات

Excel UserForms هي طريقة ممتازة لضمان إدخال بيانات صالحة ونظيفة (صورة بيانات ثنائية بواسطة rgbspace من Fotolia.com)

كيفية نقل البيانات من UserForm إلى ورقة العمل

1. افتح Excel وقم بإنشاء ورقة عمل جديدة بالنقر فوق عنصر "ملف" واختيار "جديد". احفظ الملف كـ "updated_sheet.xls".

2. اترك ورقة العمل مفتوحة وابدأ تشغيل محرر Visual Basic بالضغط على "Alt" + "F11". أنشئ UserForm جديدًا بالنقر فوق قائمة "Insert" واختيار "UserForm". اسم UserForm لـ "transferForm" عن طريق تغيير سمة "الاسم" في قائمة الخصائص. تغيير سمة "تسمية توضيحية" إلى "transferForm".

3. أضف مربع نص إلى النموذج عن طريق تحديده في مربع الأدوات عن طريق سحبه وإفلاته في النموذج. اسم مربع النص كـ "transferInput" في إطار الخصائص. إذا لم يكن مربع الأدوات مفتوحًا ، فانتقل إلى "عرض" و "صندوق الأدوات".

   
   

4. إضافة زر تحديث إلى النموذج. حدد "زر أمر" من مربع الأدوات ، واسحبه ، وقم بإفلاته في النموذج. اسم زر الأمر لـ "transferButton" في نافذة الخصائص وتغيير سمة "Caption" إلى "Refresh Sheet".

5. إضافة زر لإغلاق النموذج. حدد "زر أمر" ثانيًا من مربع الأدوات ، واسحبه ، وقم بإفلاته في النموذج. اسم زر الأمر كـ "closeButton" في إطار الخصائص وتغيير السمة "Caption" إلى "Close Form".

6. افتح محرر Visual Basic بالنقر المزدوج فوق الزر "transferButton". أدخل الكود التالي في وظيفة "transferButton_click ()" ، والتي ستنقل أي معلومات تم ملؤها في مربع النص إلى ورقة العمل "workheet_dual.xls" عندما ينقر المستخدم على الزر. أغلق محرر الكود.

   Sub transferButton_Click () Dim transferWorksheet مثل ورقة العمل Set transferWorksheet = أوراق العمل ("Sheet1") transferWorksheet.Cells (1،1) .Value = Me.transferInput.Value End Sub

7. أعد فتح محرر التعليمات البرمجية Visual Basic بالنقر المزدوج فوق الزر "closeButton". أدخل الكود التالي في دالة "closeButton_Click ()" ، والتي ستغلق النموذج عندما ينقر المستخدم فوق الزر. أغلق محرر الكود.

   
   

   Sub Sub closeButton_Click () إلغاء تحميل Me End Sub

8. قم بتشغيل رمز النموذج بالنقر فوق "تشغيل" ثم "تشغيل Sub / UserForm". املأ حقل النص وانقر على زر "transferButton". تحقق من أن البيانات قد تم نقلها بشكل صحيح إلى الخلية الأولى في ورقة العمل. احفظ وأغلق UserForm.

9. استخدم إجراء حدث Excel لفتح UserForm عندما يفتح المستخدم ورقة العمل. افتح "Project Explorer" وانقر نقرًا مزدوجًا فوق نافذة التعليمات البرمجية "ThisWorkbook". أدخل الماكرو أدناه ، والذي سيفتح النموذج عند فتح ورقة العمل. احفظ وأغلق Visual Basic.

   Sub Workbook_Open () transferForm.Show End Sub

10. أعد فتح ملف "updated_sheet.xls". سيتم فتح النموذج. اكتب بعض النص في الحقل وانقر على زر "transferButton". سيتم نقل النص الذي تملأ النموذج إلى الخلية الأولى من ورقة العمل.

نصائح

• لفتح الإطار "خصائص" أو "مستكشف المشاريع" ، حدد عناصر القائمة "عرض" في محرر Visual Basic.
• لتغيير حجم عناصر التحكم المضافة في النموذج ، استخدم المربعات الصغيرة التي تظهر عند تحديد عنصر التحكم.
• حاول إضافة بعض التحقق من الصحة إلى النموذج لمنع المستخدمين من إدخال بيانات غير صالحة.

تحذير

• لن يتم تشغيل وحدات الماكرو في جميع إصدارات Excel.
• لن تسمح بعض إعدادات أمان Excel بتشغيل وحدات الماكرو.
• تمت إزالة دعم محرر Visual Basic في Excel 2008 لنظام التشغيل Mac.

ما تحتاجه

• مايكروسوفت إكسل مع محرر Visual Basic