في هذه المقالة ، سنوضح كيفية إدراج البيانات في Excel جدول باستخدام VBA كود . بمساعدة الخصائص والأساليب المضمنة في Excel ، يمكننا تسهيل وظيفة إضافة البيانات أو الكتابة فوقها في جدول بسهولة. دعنا نتعمق في الأمثلة للحصول على فهم واضح للطرق جنبًا إلى جنب مع رموز VBA.

تنزيل Practice Workbook

تنزيل هذا المصنف التدريبي للتمرين أثناء القراءة هذه المقالة.

4 أمثلة لإدراج البيانات في الجدول باستخدام VBA في Excel

دعنا نقول ، لدينا قائمة بيع لمتجر مع تفاصيل مثل تاريخ الطلب واسم المنتج والكمية وسعر الوحدة والسعر الإجمالي.

كيفية إنشاء جدول في Excel

إلى تحويل مجموعة البيانات إلى جدول Excel ، قم بما يلي-

• حدد مجموعة البيانات الكاملة .
• انتقل إلى علامة التبويب إدراج من شريط Excel .
• انقر فوق في الخيار جدول .

• أخيرًا ، انقر فوق الزر موافق في نافذة إنشاء جدول.

• لقد نجحنا في تحويل مجموعة البيانات إلى جدول Excel .

لإدراج البيانات في جدول Excel ، سنستخدم العديد من وظائف VBA و خصائص في كودنا . القسم التالييصف كيفية فتح و كتابة التعليمات البرمجية في المحرر المرئي الأساسي.

كتابة التعليمات البرمجية في محرر Visual Basic

اتبع الخطوات لفتح الأساسي المرئي محرر واكتب بعض التعليمات البرمجية هناك.

• انتقل إلى علامة التبويب المطور من شريط Excel .
• انقر فوق الخيار Visual Basic.

• في نافذة Visual Basic for Applications ، انقر فوق إدراج القائمة المنسدلة إلى حدد وحدة جديدة

الآن أن وحدة جديدة مفتوحة ، اكتب بعض التعليمات البرمجية هناك واضغط F5 إلى تشغيل.

1. أدخل البيانات في الصف الأخير من الجدول باستخدام VBA في Excel

في هذا المثال ، سنستخدم رمز VBA لإضافة صف جديد في أسفل أسفل من الجدول ثم أدخل البيانات في ذلك. في جدولنا ، لدينا 4 صفوف من بيانات . لإضافة الخامس ، انسخ و الصق الكود التالي في المحرر المرئي الأساسي.

3930

اضغط F5 لتشغيل الكود .

لقد أدخلنا a صفًا جديدًا من البيانات في أسفل من الجدول الموجود .

شرح الكود:

• في الكود الخاص بنا ، استخدمنا ListObjects كائن من VBA Excel الاستيلاء على الجدول باسمه . لمزيد من المعلومات ، يكون كل من كائنات ListObject عبارة عن ملف جدول في ورقة العمل . للحصول على اسم الجدول ، انقر فوق في الجدول & gt؛ & gt؛ انقر فوق في علامة التبويب تصميم الجدول في شريط Excel .

• ثم استخدمنا ListRows . Add method لإضافة صف جديد في الجدول . هذه الطريقة تأخذ وسيطتين : الموضع و AlwaysInsert .

عن طريق إدخال عدد صحيح number ، يمكننا تحديد الموضع النسبي للصف المضاف حديثًا في الجدول . في هذا المثال ، تركنا فارغًا وسيطة الموضع ، ونتيجة لذلك ، تمت إضافة صف جديد في أسفل من الجدول .

• أخيرًا ، قمنا بتعيين البيانات في كل من الخلايا من <1 حديثًا> صف مضاف . في هذه الحالة ، كانت البيانات .Range (1) = "1/1/2022" كـ OrderDate ، .Range (2) = "Apple" كـ منتج ، .Range (3) = 5 كـ كمية ، .Range (4) = 1.77 كـ سعر الوحدة.

اقرأ المزيد : اسم جدول Excel: كل ما تريد معرفته

2. قم بتشغيل رمز VBA لإدراج البيانات في صف محدد من جدول في Excel

في هذا الرسم التوضيحي ، سنقوم بإضافة صف من البيانات > في صف محدد متعلق بالجدول باستخدام نفس قطعة الكود التي استخدمناها في المثال أعلاه. في هذه الحالة ، نحتاج فقط إلى تحديد وسيطة الموضع من ListRows.Add method فيالشفرة. لنفترض أننا نريد إضافة بيانات البيع لـ البرتقالي مع التفاصيل في الصف رقم 3 بالنسبة إلى الجدول الحالي . لكي يحدث هذا ، انسخ و الصق الرمز التالي في محرر الكود المرئي.

8334

تشغيل الكود عن طريق الضغط على تم إدراج F5 بيانات البيع للبرتقالي في الصف الثالث بالنسبة للجدول .

اقرأ المزيد: كود Excel VBA لكل صف في جدول (إضافة ، الكتابة فوق ، حذف ، إلخ)

قراءات مماثلة

• مجموع الحقول المحسوبة مقسومًا على العدد في الجدول المحوري
• كيفية توضيح توزيع التردد النسبي في Excel
• [إصلاح] لا يمكن تجميع التواريخ في Pivot Table: 4 حلول محتملة
• كيفية حساب النسبة المئوية لتوزيع التردد في Excel (طريقتان)
• لا يتم تحديث الجدول المحوري (5 قضايا وحلول)

3. إدراج البيانات والكتابة فوقها في جدول باستخدام VBA في Excel

هنا سنوضح كيفية الكتابة فوق البيانات الموجودة في جدول بدلاً من ذلك من إدراج a صف جديد من بيانات . للقيام بذلك ، نحتاج إلى استخدام ListObject.ListRows الخاصية من Excel بدلاً من من ListRows.Add property استخدمنا سابقًا . تأخذ الخاصية ListObject.ListRows أيضًا رقم الصف ( عدد صحيح قيمة ) كوسيطة . لنفترض أننا نريد التغيير سعر الوحدة من البرتقالي من 2.14 إلى 2.35 الذي أدخلناه في المثال السابق . انسخ و الصق الكود التالي أدناه في محرر visual basic.

4232

في الكود الخاص بنا ، قمنا بتعيين الوسيطة للخاصية ListObject.ListRows على أنها 3 حيث تكون البيانات لـ البرتقالي ينتمي إلى . شغّل الكود بالضغط على F5 وانظر الفرق .

تم تغيير فقط سعر الوحدة من بيانات في رقم الصف 3 بالنسبة للجدول .

اقرأ المزيد: كيفية إدراج أو حذف صفوف وأعمدة من جدول Excel

4. قم بتشغيل رمز VBA لإدراج البيانات في جدول Excel استنادًا إلى إدخال المستخدم

في هذا المثال ، سنذهب إلى إدراج اسم الجدول و تفاصيل البيع لمنتج مثل إدخال المستخدم بدلاً من الكود في كود فبا لكل منهما الوقت . اتبع الإرشادات أدناه لإنجاز هذا.

• انسخ و الصق الكود التالي في محرر الكود المرئي.

5204

• اضغط على F5 إلى تشغيل الرمز.
• ضع الاسم من الجدول في مربع الإدخال ( Table1 ، في هذا المثال) واضغط على موافق.

• ثم ضع قيم تاريخ Oder واسم المنتج والكمية و سعر الوحدة فيمربعات الإدخال التي ظهرت بالتتابع . في هذا المثال ، القيم التي استخدمناها هي 1/1/2022 ، البرتقالي ، 3 ، ، 35.

• نتيجة لذلك ، لدينا صف جديد مع البيانات المدرجة في أسفل من الجدول .

اقرأ المزيد: إرشادات تنسيق جدول Excel - تغيير شكل الجدول

ملاحظات

عندما أضفنا صفًا جديدًا مع بيانات باستخدام رمز VBA ، يتم نقل الصيغ و إلى إلى الصف الجديد تلقائيًا . في مثالنا ، ينتج عن السعر الإجمالي العمود المنتج للأعمدة الكمية ، و سعر الوحدة . نحن فقط أدخلنا قيمتي الكمية و سعر الوحدة ؛ تم إدراج الصف الجديد مع المنتج من هاتين القيمتين في عمود السعر الإجمالي.

الخاتمة

الآن ، نحن نعرف كيفية إدراج البيانات في جدول Excel باستخدام كود VBA. نأمل أن يساعدك استخدام هذه الأساليب بثقة أكبر. أي أسئلة أو اقتراحات لا تنسى وضعها في مربع التعليق أدناه.