جدول المحتويات
يعد Excel VBA أداة قوية وسهلة لأداء المهام بسرعة كبيرة بكميات كبيرة. يمكنك تطبيق عدة شروط واشتقاق نتائج مختلفة على أساس الشروط الفردية من خلال VBA. الآن ، في بعض الأحيان ، قد ترغب في التحقق من وجود ورقة معينة في المصنف الخاص بك. وإذا لم يكن الأمر كذلك ، فقد تحتاج إلى إنشاء تلك الورقة. في هذه المقالة ، سأعرض لك جميع الخطوات من أجل إضافة ورقة إذا لم تكن موجودة ، باستخدام Excel VBA.
Excel VBA: إضافة ورقة إذا لم تكن موجودة (عرض سريع)
8501
أدخل في وحدة نمطية جديدة لتطبيق الكود أعلاه.
تنزيل Practice Workbook
يمكنك تنزيل المصنف التدريبي الخاص بنا من هنا مجانًا!
أضف ورقة إذا لم تكن موجودة. xlsm
خطوات لتطبيق كود VBA لإضافة ورقة في Excel إذا لم يكن موجودًا
قل ، لديك مصنف يحتوي على 4 أوراق عمل باسم يناير وفبراير ومارس وأبريل. تحتوي كل ورقة على تقرير مبيعات الشهر التالي. الآن ، تحتاج إلى العثور على بعض الأوراق في المصنف وإضافة الورقة إذا لم تكن موجودة. يمكنك اتباع الإرشادات خطوة بخطوة أدناه لإنجاز ذلك.
📌 الخطوة 1: أدخل وحدة نمطية جديدة
أولاً ، تحتاج إلى إدراج وحدة نمطية لكتابة التعليمات البرمجية لـ VBA.
- للقيام بذلك ، في البداية ، انتقل إلى Developer علامة التبويب & gt ؛ & gt ؛ Visual Basic أداة.
- نتيجة لذلك ، Microsoft Visualستظهر نافذة Basic for Applications .
- بعد ذلك ، انتقل إلى علامة التبويب Insert tab & gt؛ & gt؛ Module tool.
وهكذا ، تم إنشاء وحدة جديدة باسم الوحدة 1
اقرأ المزيد: كيفية إضافة ورقة باستخدام الاسم في Excel VBA (6 طرق سهلة)
قراءات مماثلة
- إنشاء مصنف جديد وحفظه باستخدام VBA في Excel
- Excel VBA: إنشاء مصنف جديد وتسميته (6 أمثلة)
- كيفية إنشاء ورقة جديدة من قالب باستخدام ماكرو في Excel
📌 الخطوة 2: اكتب واحفظ رمز VBA المطلوب
الآن ، تحتاج إلى كتابة الكود داخل الوحدة وحفظه.
- في للقيام بذلك ، انقر فوق الخيار Module1 واكتب الكود التالي في نافذة التعليمات البرمجية.
90902063
- النتيجة ، ستبدو نافذة الكود كما يلي.
🔎 Code Explanation:
♣ الجزء 1:
4581
في هذا الجزء ، أعلنا عن اسم الماكرو ونم المتغير es.
♣ الجزء 2:
7508
في هذا الجزء ، أنشأنا مربع إدخال. من خلال مربع الإدخال هذا ، يمكننا أخذ إدخال اسم الملف الذي نحتاج إلى العثور عليه.
♣ الجزء 3:
3964
في هذا الجزء ، نتحقق من وجود الورقة المطلوبة في المصنف. إذا لم يكن الأمر كذلك ، فسيتم إنشاء الورقة المطلوبة وإظهار رسالة لنا حول هذا التغيير.
♣ المقطع 4:
6405
في هذا الجزء ، عملنا مع النتيجة إذا كانت الورقة المطلوبة موجودة بالفعل في المصنف. في هذا السيناريو ، سيظهر مربع رسالة آخر لإعلامك بوجود هذه الورقة. علاوة على ذلك ، في هذا الجزء ، ننهي الكود بشكل صحيح.
- بعد ذلك ، اضغط على Ctrl + S.
- بعد ذلك ، ستظهر نافذة Microsoft Excel . انقر فوق الزر لا .
- نتيجة لذلك ، ستظهر نافذة حفظ باسم .
- بعد ذلك ، اختر حفظ كنوع: الخيار .xlsm تنسيق. بعد ذلك ، انقر فوق الزر حفظ .
وهكذا ، قمت بكتابة الكود المطلوب وحفظه.
ملاحظة:
يجب حفظ مصنف Excel بتنسيق .xlsm . خلاف ذلك ، لن يتم تمكين الماكرو ولن تعمل التعليمات البرمجية.
اقرأ المزيد: Excel VBA لإضافة ورقة مع اسم متغير (5 أمثلة مثالية)
📌 الخطوة 3: قم بتشغيل الكود
الآن ، تحتاج إلى تشغيل الكود والتحقق من النتائج.
- للقيام بذلك ، أولاً وقبل كل شيء ، انقر فوق على رمز تشغيل في نافذة Microsoft Visual Basic for Applications .
- نتيجة لذلك ، ستظهر نافذة وحدات الماكرو .
- بعد ذلك ، اختر الماكرو AddSheetIfNotExist وانقر فوق الزر تشغيل .
- في هذا الوقت ، مربع الرسالة الذي تم إنشاؤهالمسماة إضافة ورقة إذا لم تكن موجودة ستظهر. هنا ، سيكون الخيار التلقائي هو Sheet5 .
- الآن ، للتحقق ، اكتب "April" في مربع النص وانقر على الزر موافق .
- بعد ذلك ، سترى رسالة أخرى سيظهر مربع يخبرك أن الورقة موجودة بالفعل.
- انقر فوق الزر موافق .
- بعد ذلك ، قم بتشغيل الكود مرة أخرى واكتب "May" في مربع النص في مربع الرسالة الذي تم إنشاؤه. بعد ذلك ، انقر فوق الزر موافق .
- نتيجة لذلك ، سترى مربع رسالة آخر تظهر تخبرك أن الورقة "مايو" لم تكن موجودة وبالتالي تم إنشاء هذه الورقة.
- بعد ذلك ، انقر فوق الزر موافق .
أخيرًا ، يمكنك أن ترى أنك أضفت ورقة لم تكن موجودة من قبل. وسيبدو المصنف هكذا الآن.
اقرأ المزيد: Excel VBA: إضافة ورقة بعد الأخيرة (3 أمثلة مثالية)
الخاتمة
لذلك ، في هذه المقالة ، لقد أوضحت لك جميع الخطوات لإضافة ورقة إذا لم تكن موجودة مع Excel VBA. راجع المقالة الكاملة بعناية لفهمها بشكل أفضل وتحقيق النتيجة المرجوة. آمل أن تجد هذه المقالة مفيدة وغنية بالمعلومات. إذا كان لديك أي استفسارات أو توصيات أخرى ، فلا تتردد في الاتصال بي.
وزيارة ExcelWIKI للمزيدمثل هذه المقالات. شكرا لك!
