Excel VBA لمسح محتويات النطاق (3 حالات مناسبة)

Hugh West

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

تنزيل Practice Workbook

يمكنك تنزيل مصنف التدريب من هنا:

Clear Contents of Range .xlsm

مسح محتويات النطاق باستخدام Excel VBA: 3 حالات

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

الحالة 1: امسح جميع محتويات النطاق

يمكنك استخدام كل من أمر المسح وأمر الحذف لمسح محتويات نطاق معين في ورقة العمل الحالية أو أوراق عمل أخرى حتى من المصنفات الأخرى أيضًا. أنا سوفتظهر لك جميع الحالات واحدة تلو الأخرى.

أنا. امسح محتويات نطاق معين من الخلايا

إذا كنت تريد مسح محتويات نطاق معين ، فاتبع الخطوات التالية:

📌 الخطوات:

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

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

  • الآن ، " Module " ستظهر النافذة. و الصق كود VBA هذا في المربع.

باستخدام مسح الأمر:

3399

  • لتشغيل الكود ، انتقل إلى القائمة العلوية ، واضغط على الخيار تشغيل ، وهنا سيفتح بعض الخيارات الأخرى و حدد Run Sub / UserForm أيضًا يمكنك ببساطة الضغط على F5 لتشغيل الكود.

  • باستخدام الأمر مسح ، سيتم مسح الخلايا كما ستتم إزالة التنسيق أيضًا. لكن الخلايا الفارغة ستكون هناك.

باستخدام أمر الحذف:

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

5030

باستخدام الأمر Delete ، عند تشغيل التعليمات البرمجية ، سيتم إزالة النطاق المحدد من الخلايا تمامًا.

اقرأ المزيد: Excel VBA: امسح المحتويات إذا كانت الخلية تحتوي على قيم محددة

الفرق بين مسح وحذف الأمر في Excel VBA:

الاختلاف الرئيسي بين الأمرين مسح و حذف في Excel VBA هو أن حذف يزيل الأمر نطاق الخلايا المحدد تمامًا ويزيل الأمر مسح فقط قيمة الخلية والتنسيق ولكن الخلية الفارغة ستكون هناك.

ii. امسح محتويات ورقة العمل الكاملة

إذا كنت تريد مسح جميع خلايا ورقة العمل ، فاستخدم هذا الرمز الوارد أدناه. هنا ، أقوم بمسح المحتويات من ورقة العمل المسماة "1.2". يجب عليك إدراج الاسم من ورقة العمل التي تريد مسحها في الفواصل المقلوبة.

1665

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

5484

iii. امسح محتويات ورقة العمل النشطة

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

6712

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

Sub Delete_Contents_Range()

ActiveSheet.Cells.Delete

End Sub

اقرأ المزيد: الفرق بين حذف ومسح المحتويات في Excel

الحالة 2: مسح محتويات النطاق الحفاظ على التنسيق

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

i. محتويات نطاق محدد

يمكنك استخدام الأمر ClearContents في Excel VBA لمسح محتويات نطاق معين. لهذا ، قم بلصق التعليمة البرمجية التالية في الوحدة النمطية.

3290

نتيجة لذلك ، عند تشغيل الرمز ، سترى الخلايا المحددة تم مسحها ولكن التنسيقات لا تزال متبقية .

اقرأ المزيد: كيفية مسح الخلايا ذات القيمة المحددة في Excel (طريقتان)

ثانيا. محتويات ورقة العمل المحددة

عندما تريد مسح محتويات ورقة العمل المحددة مع الحفاظ على التنسيقات كما هي ، يجب عليك استخدام الكود التالي أدناه:

7867

🔎 شرح كود VBA:

  • تستدعي أوراق العمل ("2.2") ورقة العمل المسماة "2.2" إذا تريد استدعاء ورقة عمل بأي اسم آخر ، ثم أدخل اسم ورقة العمل في الفواصل المقلوبة.
  • و النطاق (“B2: D4”) يحدد نطاق الخلاياسيتم مسح ذلك. يمكنك تعديل نطاق الخلايا حسب حاجتك.

iii. المحتويات من مصنف آخر

يمكنك أيضًا مسح محتويات من مصنف آخر باستخدام التعليمات البرمجية VBA . ولكن ، لهذا ، يجب عليك الاحتفاظ بـ هذا المصنف مفتوحًا . استخدم الكود التالي أدناه لهذا:

9898

🔎 VBA Code Explanation:

  • Workbooks (“file 1”) يستدعي المصنف المسمى “File 1”. أثناء استخدام المصنفات الخاصة بك ، يجب عليك إدراج اسم المصنف في الفواصل المقلوبة.
  • أوراق العمل ("Sheet1") تستدعي ورقة العمل المسماة "Sheet 1". لاستدعاء أي ورقة عمل أخرى ، فقط أدخل اسم ورقة العمل بدلاً من "الورقة 1" في هذا الكود.
  • و النطاق ("B3: D13") يحدد نطاق الخلايا التي سيتم مسحها. يمكنك تحرير نطاق الخلايا حسب حاجتك.

اقرأ المزيد: كيفية مسح المحتويات دون حذف الصيغ باستخدام VBA في Excel

الحالة 3: امسح محتويات النطاق المحدد لجميع أوراق العمل مرة واحدة

إذا كنت بحاجة إلى مسح محتويات من نطاق محدد من أوراق عمل متعددة يمكنك القيام بذلك مرة واحدة باستخدام كود VBA . يجب عليك استخدام حلقة For للقيام بهذه المهمة. الصق هذا الرمز في الوحدة النمطية لمسح محتويات النطاق B2: D4 لجميع أوراق العمل. إذا كنت تريد تغيير نطاق الخلايا ، فقم بتحرير 4 سطر وأدخل نطاق بياناتك.

4256

أشياء يجب تذكرها

  • يؤدي استخدام الأمر مسح فقط امسح قيم الخلايا وتنسيقاتها.
  • حذف سيزيل الأمر الخلايا تمامًا.
  • مسح المحتويات سيؤدي الأمر إلى مسح قيم الخلايا فقط و حافظ على تنسيقات الخلايا كما هي.

الخاتمة

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

هيو ويست مدرب ومحلل إكسل ذو خبرة عالية ولديه أكثر من 10 سنوات من الخبرة في هذا المجال. حاصل على درجة البكالوريوس في المحاسبة والمالية ودرجة الماجستير في إدارة الأعمال. لدى هيو شغف بالتدريس وقد طور منهجًا تعليميًا فريدًا يسهل اتباعه وفهمه. ساعدت معرفته الخبيرة ببرنامج Excel الآلاف من الطلاب والمهنيين في جميع أنحاء العالم على تحسين مهاراتهم والتميز في حياتهم المهنية. من خلال مدونته ، يشارك Hugh معرفته مع العالم ، ويقدم دروسًا مجانية في Excel وتدريبًا عبر الإنترنت لمساعدة الأفراد والشركات على تحقيق إمكاناتهم الكاملة.