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

تنزيل Practice Workbook

يمكنك تنزيل المصنف والممارسة معهم.

6 أمثلة على Excel VBA لإنشاء جدول من النطاق

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

لنفترض أن لدينا مجموعة بيانات بسيطة تحتوي على بعض العناصر في العمود B وكمية هذه العناصر في العمود C وإجمالي المبيعات لكل عنصر في العمود D . الآن ، نريد تحويل نطاق البيانات إلى جدول. دعنا نوضح أمثلة مختلفة وإرشادات خطوة بخطوة لإنشاء جدول من النطاق B4: D9 باستخدام Excel VBA.

استخدم ListObjects أضف لتحويل ملفالنطاق في جدول Excel. كائن جدول البيانات له خاصية ListObjects . يحتوي ListObjects على تقنية تسمى Add . معايير .Add هي كما يلي.

expression .Add(SourceType, Source, LinkSource, HasHeaders,Destination)

And ، استخدم SourceType xlSrcRange .

1. Excel VBA لإنشاء جدول من النطاق

باستخدام Excel VBA ، يمكن للمستخدمين بسهولة استخدام الكود الذي يعمل كقوائم Excel من الشريط. لاستخدام كود VBA لإنشاء جدول من النطاق ، دعنا نتبع الإجراء لأسفل.

الخطوات:

• أولاً ، انتقل إلى علامة التبويب Developer من الشريط.
• ثانيًا ، من فئة Code ، انقر فوق Visual Basic لفتح محرر Visual Basic . أو اضغط على Alt + F11 لفتح محرر Visual Basic .
• بدلاً من القيام بذلك ، يمكنك فقط النقر بزر الماوس الأيمن على ورقة العمل الخاصة بك والانتقال إلى اعرض الكود . سينقلك هذا أيضًا إلى محرر Visual Basic .

• سيظهر هذا في محرر Visual Basic حيث نكتب الرموز الخاصة بنا لإنشاء جدول من النطاق.
• ثالثًا ، انقر فوق الوحدة النمطية من شريط القائمة المنسدلة إدراج .

• سيؤدي هذا إلى إنشاء وحدة في المصنف الخاص بك.
• ثم انسخ والصق VBA الكود الموضح أدناه.

كود VBA:

6241

• بعد ذلك ، قم بتشغيل الكود بالنقر فوق الزر RubSub أو الضغط على لوحة المفاتيحالاختصار F5 .

لست بحاجة إلى تغيير الرمز. كل ما يمكنك فعله هو فقط تغيير النطاق وفقًا لمتطلباتك.

• وأخيرًا ، سيؤدي اتباع الخطوات إلى إنشاء جدول من النطاق B4: D9 .

شرح كود VBA

1174

Sub هو جزء من الكود تستخدم للتعامل مع العمل في الكود ولكنها لن ترجع أي قيمة. يُعرف أيضًا باسم الإجراء الفرعي. لذلك قمنا بتسمية الإجراء الخاص بنا Create_Table () .

1655

هذا هو سطر الكود الرئيسي الذي يتم من خلاله تحويل النطاق كجدول. كما نعلم بالفعل أن ListObjects.Add لتحويل النطاق إلى جدول Excel. ونستخدم xlSrcRange كنوع مصدر. أيضًا ، نعلن عن النطاق النطاق ("B4: D9") . وأخيرًا ، قم بتسمية جدولنا كـ Table1 .

7455

سيؤدي هذا إلى إنهاء الإجراء.

اقرأ المزيد: كيفية تحديث Pivot نطاق الجدول (5 طرق مناسبة)

2. إنشاء جدول من النطاق باستخدام Excel VBA

دعونا نرى مثالًا آخر لإنشاء جدول من النطاق باستخدام Excel VBA.

الخطوات:

• أولاً ، انتقل إلى علامة التبويب Develope r من الشريط.
• ثانيًا ، انقر فوق Visual Basic لفتح محرر Visual Basic .
• طريقة أخرى لفتح محرر Visual Basic هي ببساطة الضغط على Alt + F11 .
• أو ، انقر بزر الماوس الأيمن على الورقة ، ثم حدد عرض الكود .
• بعد ذلك ، انتقل إلى إدراج ثمحدد وحدة من القائمة المنسدلة.
• وهذا سيفتح النافذة الأساسية المرئية.
• بعد ذلك ، انسخ والصق كود فبا أدناه.

كود VBA:

6872

• علاوة على ذلك ، اضغط على مفتاح F5 أو انقر فوق زر Run Sub لتشغيل الكود.

• وستحصل على النتيجة كما هو موضح في الطريقة 1 .

شرح كود VBA

9439

العبارة DIM في VBA تشير إلى " تعلن ، " ويجب استخدامها لتعريف متغير. لذلك ، نعلن أن نطاقنا هو tb2 وورقة العمل إلى ws .

4487

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

8581

باستخدام هذا السطر من التعليمات البرمجية ، نقوم بإنشاء الجدول من النطاق وتسمية الجدول الخاص بنا Table2 .

قراءة المزيد: كيفية استخدام جدول Excel مع VBA (9 طرق ممكنة)

3. أنشئ جدولاً من Range باستخدام VBA في Excel

لنلقِ نظرة على مثال آخر لاستخدام Excel VBA لإنشاء جدول من نطاق.

STEPS:

• للبدء ، حدد النطاق الكامل الذي تريد تحويله إلى جدول.
• ثانيًا ، انقر فوق علامة التبويب المطور على الشريط.
• ثالثًا ، قم بتشغيل محرر Visual Basic بالنقر فوق مرئيأساسي .
• بدلاً من ذلك ، يمكنك الوصول إلى محرر Visual Basic بالضغط على Alt + F11 .
• أو ، يمينًا - انقر فوق على الورقة واختر عرض الرمز من القائمة.
• بعد ذلك ، اختر الوحدة النمطية من المربع المنسدل أسفل إدراج .
• وستظهر نافذة visual basic.
• اكتب الكود هناك.

كود VBA:

2629

• أخيرًا ، اضغط على المفتاح F5 لتشغيل الكود.

• وسيؤدي ذلك إلى إنشاء جدول من نطاق البيانات كما حصلنا في الطريقة 1 .

قراءة المزيد: كيفية عمل جدول في Excel (مع التخصيص )

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

• مجموع الحقول المحسوبة مقسومًا على العدد في الجدول المحوري
• كيفية توضيح توزيع التردد النسبي في Excel
• تجميع جدول Excel المحوري حسب الأسبوع (3 أمثلة مناسبة)
• [Fix] لا يمكن تجميع التواريخ في Pivot Table: 4 حلول ممكنة
• كيفية عمل جدول إطفاء في Excel (4 طرق) <1 3> 14> 9> 1> 4. تطبيق VBA لإنشاء جدول ديناميكي من النطاق

  دعونا نلقي نظرة على طريقة أخرى لإنشاء جدول من نطاق باستخدام Excel VBA.

  STEPS:

  • للبدء ، افتح الشريط وحدد الخيار Developer .
  • ثم ، للوصول إلى محرر Visual Basic ، انقر فوق Visual Basic .
  • الضغط على Alt + F11 سيؤدي أيضًا إلى إظهار Visual Basicمحرر .
  • بدلاً من ذلك ، انقر بزر الماوس الأيمن فوق الورقة واختر عرض الرمز من القائمة التي تظهر.
  • الآن ، من القائمة إدراج خيار القائمة المنسدلة ، اختر الوحدة النمطية .
  • ثم انسخ والصق كود VBA التالي.

  كود فبا:

  2773

  • قم بتشغيل الكود بالضغط على المفتاح F5 .

  

  • كما هو موضح في الرسم التوضيحي الطريقة 1 ، سيتم بناء الجدول من النطاق.

  VBA شرح الكود

  1249

  يشير هذا السطر إلى اسم الإجراء الفرعي.

  6747

  يستخدم هذا السطران للإعلان عن المتغير.

  8270

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

  4911

  هذه مخصصة على التوالي للعثور على الصف الأخير والعمود الأخير.

  2232

  نطاق لإنشاء الجدول.

  9682

  إنشاء جدول في النطاق المحدد أعلاه.

  7727

  تحديد اسم الجدول

  4739

  تحديد نمط الجدول.

  قراءة المزيد: إنشاء جدول في Excel باستخدام الاختصار (8 طرق)

  5. إنشاء جدول ديناميكي من Range

  الآن ، ألق نظرة على طريقة Excel VBA أخرى لإنشاء جدول من نطاق.

  STEPS:

  • للبدء ، افتح الشريط واختر Developer من القائمة المنسدلة.
  • ثم حدد Visual Basic لفتح محرر Visual Basic .
  • يمكن أيضًا الوصول إلى محرر Visual Basic بالضغط على Alt + F11 .
  • بدلاً من ذلك ، يمكنك النقر بزر الماوس الأيمن فوق الورقة وتحديد عرض الرمز من القائمة المنبثقة.
  • بعد ذلك ، حدد الوحدة من إدراج قائمة منسدلة.
  • ثم انسخ والصق كود فبا التالي.

  كود فبا:

  4784

  • أخيرًا ، قم بتشغيل الكود بالضغط على F5 على لوحة المفاتيح وسترى النتيجة في ورقة العمل.

  

  • وكما هو موضح في الرسم التوضيحي الطريقة 1 ، سيتم إنشاء الجدول من النطاق.

  اقرأ المزيد: How to اجعل جداول Excel تبدو جيدة (8 نصائح فعالة)

  6. استخدم Excel VBA لإنشاء جدول ديناميكي

  دعنا نستكشف طريقة Excel VBA أخرى لإنشاء جدول من نطاق.

  STEPS:

  • في البداية ، انتقل إلى علامة التبويب Developer & gt؛ Visual Basic & gt؛ Insert & gt؛ Module .
  • أو ، يؤدي النقر بزر الماوس الأيمن على ورقة العمل إلى فتح نافذة. من هناك ، انتقل إلى عرض الرمز .
  • وسيأخذك هذا إلى الحقل محرر Visual Basic ، حيث يمكننا كتابة وحدات ماكرو VBA.
  • من ناحية أخرى ، سيؤدي الضغط على Alt + F11 إلى فتح محرر Visual Basic .
  • بعد ذلك ، اكتب رمز VBA .

  كود فبا:

  9502

  • ثم ، قم بتشغيل الكود لرؤية النتيجة عن طريقالضغط على المفتاح F5 .

  

  • وسيتم إنشاء الجدول من النطاق كما هو موضح في الصورة الطريقة الأولى .

  قراءة المزيد: كيفية إنشاء جدول في Excel بالبيانات (5 طرق)

  خاتمة

  ستساعدك الطرق المذكورة أعلاه في إنشاء جدول من النطاق في Excel. ارجوا ان يساعدك هذا! إذا كان لديك أي أسئلة أو اقتراحات أو ملاحظات ، فيرجى إخبارنا في قسم التعليقات. أو يمكنك إلقاء نظرة على مقالاتنا الأخرى في مدونة ExcelWIKI.com !