فبا: كيفية تنظيف ورقة-نصائح وتعليمات مفيدة

الجهاز الأساسي الظاهري (فبا) هي لغة البرمجة المستخدمة في مايكروسوفت أوفيس لأتمتة المهام وإنشاء وحدات الماكرو. مسح ورقة عمل هي واحدة من العمليات الرئيسية في فبا ، والذي يسمح لك لحذف جميع البيانات والتنسيق من ورقة عمل. هذه ميزة مفيدة يمكن استخدامها ، على سبيل المثال ، لإعداد ورقة عمل للبيانات الجديدة أو لحذف معلومات الخدمة قبل توزيع ملف.

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

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

1. فبا: تنظيف ورقة عمل إكسل-نصائح وإرشادات
2. التحضير للتنظيف
3. مسح البيانات
4. مسح التنسيق
5. مرشحات التنظيف
6. مسح الرؤوس
7. مسح التعليقات
8. سؤال وجواب

فبا: تنظيف ورقة عمل إكسل-نصائح وإرشادات

تنظيف ورقة عمل إكسل باستخدام فبا (البصرية الأساسية للتطبيقات) هي واحدة من السمات الأكثر فائدة من هذه الأداة القوية. يسمح لك بأتمتة عملية حذف البيانات من ورقة ، وهو أمر مفيد بشكل خاص عند العمل بكميات كبيرة من المعلومات. في هذه المقالة ، سوف ننظر في عدة طرق أساسية لتنظيف ورقة باستخدام فبا.

1. تنظيف محتويات الخلايا

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

ورقة مسح فرعية()

طريقة الأوراق ("الورقة 1").الخلايا.كليركونتينتس

نهاية الفرعية

في المثال أعلاه ، نحذف محتويات الخلايا على الورقة"الورقة 1". يمكنك استبدال اسم الورقة الخاصة بك.

2. مسح تنسيق الخلية

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

كليرفورماتس الفرعية()

أوراق ("ورقة 1").الخلايا.كليرفورماتس

نهاية الفرعية

سيؤدي هذا الرمز إلى إزالة جميع تنسيق الخلايا على الورقة"ورقة 1".

3. مسح نطاق معين من الخلايا

إذا كنت بحاجة إلى مسح نطاق معين فقط من الخلايا ، يمكنك استخدام طريقة كليركونتينتس أو كليركفورماتس لهذا النطاق. على سبيل المثال ، سيحذف الكود التالي محتويات الخلايا في النطاق أ1: ج10:

نطاق فرعي واضح ()

أوراق ("ورقة 1").النطاق ("أ 1:ج 10").كليركونتينتس

نهاية الفرعية

4. تنظيف الورقة مع الحفاظ على الصيغ

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

قيم التصفية الفرعية()

أوراق ("ورقة 1").الخلايا.كليركونتينتس

أوراق ("ورقة 1").الخلايا.كليرفورماتس

نهاية الفرعية

في الكود أعلاه ، نقوم أولا بمسح محتويات الخلايا ، ثم إزالة التنسيق. وبالتالي ، سيتم الحفاظ على الصيغ.

5. تنظيف الورقة مع اختيار النطاق

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

مسح فرعي وتحديد ()

أوراق ("ورقة 1").الخلايا.اختر

اختيار.كليركونتينتس

نهاية الفرعية

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

خاتمة

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

التحضير للتنظيف

قبل البدء في تنظيف ورقة عمل في إكسيل باستخدام فبا ، تحتاج إلى إكمال عدة خطوات تحضيرية.

• 1. قم بإنشاء نسخة احتياطية من الملف.

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

• 2. دراسة هيكل الورقة.

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

• 3. سجل ماكرو التنظيف.

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

• 4. تحقق من رمز الأخطاء.

قبل تطبيق الماكرو المسجل ، تأكد من صحته وعدم وجود أخطاء. راجع الكود بالكامل وتأكد من أنه يلبي توقعاتك وأهداف التنظيف.

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

مسح البيانات

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

لإجراء تنظيف البيانات في فبا ، يمكنك استخدام الطرق التالية:

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

مثال على استخدام طريقة واضحة:

بيانات واضحة فرعية()

أوراق ("ورقة 1").مستعمل.واضح

نهاية الفرعية

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

مثال على استخدام طريقة كليركونتينتس:

بيانات واضحة فرعية()

أوراق ("ورقة 1").مستعمل.كليركونتينتس

نهاية الفرعية

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

مثال على استخدام طريقة كليرفورماتس:

بيانات واضحة فرعية()

أوراق ("ورقة 1").مستعمل.كليرفورماتس

نهاية الفرعية

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

مثال على استخدام طريقة كليركومنتس:

بيانات واضحة فرعية()

أوراق ("ورقة 1").كليركومنتس

نهاية الفرعية

في هذا المثال ، يتم تطبيق طريقة كليركومنتس مباشرة إلى كائن ورقة "ورقة 1" ويزيل جميع التعليقات من الخلايا على هذه الورقة.

إن استخدام طريقة مناسبة لتنظيف البيانات يجعل تحرير الورقة من البيانات القديمة وإعدادها للإدخالات الجديدة أسهل وأكثر كفاءة.

مسح التنسيق

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

1. مسح تنسيق الخلية

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

شبه كليرسلفورماتينغ ()

خافت رنغ كما المدى

تعيين رنغ = المدى ("أ 1: د 10")

رنغ.كليرفورماتس

نهاية الفرعية

2. مسح تنسيق الورقة بأكملها

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

شبه كليرشيت فورماتينغ()

أكتيفشيت.مستعمل.كليرفورماتس

نهاية الفرعية

3. مسح تنسيق الكتاب بأكمله

إذا كنت بحاجة إلى إزالة التنسيق من جميع الأوراق في المصنف ، يمكنك استخدام حلقة للتكرار من خلال جميع الأوراق وتطبيق خاصية كليرفورماتس على كل ورقة. Например, следующий код очистит форматирование на каждом листе в книге:

Sub ClearWorkbookFormatting()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Sheets

ws.UsedRange.ClearFormats

Next ws

End Sub

4. Очистка только определенного типа форматирования

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

كليرسلفيل الفرعية ()

خافت رنغ كما المدى

تعيين رنغ = المدى ("أ 1: د 10")

رنغ.الداخلية.اللون = زلنون

نهاية الفرعية

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

مرشحات التنظيف

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

الطريقة 1: إزالة جميع المرشحات

1. إنشاء وحدة فبا جديدة عن طريق النقر بزر الماوس الأيمن على مشروع فبا واختيار "إدراج"- > "وحدة".

نهاية الفرعية

2. دون كليرسبيسيفيفيلتر ()

أكتيفشيت.وضع التصفية التلقائية = صحيح

2. دون كليرفيلترسينرانج()

خافت رنغ كما المدى

رنغ.حقل التصفية التلقائية:=1

رنغ.حقل التصفية التلقائية: = 2

رنغ.حقل التصفية التلقائية: = 3

نهاية الفرعية

في مثال الكود هذا ، نقوم بمسح المرشحات في الأعمدة الثلاثة في النطاق المحدد "أ 1: ج 10". يمكنك تغيير النطاق عن طريق تحديد القيم الخاصة بك.

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

مسح الرؤوس

واحدة من المهام الهامة عند العمل مع فبا هو مسح الرؤوس في الجدول. في هذا القسم ، سننظر في عدة طرق لإنجاز هذه المهمة.

1. مسح جميع الرؤوس

أسهل طريقة لمسح جميع الرؤوس في الجدول هي استخدام حلقة وطريقة

كليركونتينتس

. يوجد أدناه نموذج رمز:

كليرهيدرز الفرعية()

ديم وس كورقة عمل

تعيين وس = هذاكتاب العمل.الأوراق ("الورقة 1") ' استبدل باسم الورقة الخاصة بك

رأس خافتترتيب كمدى

تعيين هيدررانج = وس.النطاق ("أ 1: هـ 1") ' يستبدل بنطاق من رؤوسه

ترتيب الرأس.كليركونتينتس

نهاية الفرعية

في هذا المثال ، نختار ورقة تسمى" الورقة 1 "ونطاق من الرؤوس تبدأ بالخلية" أ1 "وتنتهي بالخلية"هـ1". ثم نطبق الطريقة

كليركونتينتس

إلى هذا النطاق لإزالة جميع قيم الرأس.

2. حفظ التنسيق

إذا كنت بحاجة إلى الاحتفاظ بتنسيق الرؤوس ، فيمكنك استخدام الطريقة

واضح

بدلا من

العناوين الفرعية مع التنسيق ()

ديم وس كورقة عمل

تعيين وس = هذاكتاب العمل.الأوراق ("الورقة 1") ' استبدل باسم الورقة الخاصة بك

رأس خافتترتيب كمدى

تعيين هيدررانج = وس.المدى ("أ 1:هاء 1") ' استبدال مع مجموعة من رؤوسها

ترتيب الرأس.واضح

1. نهاية الفرعية
2. 3. مسح الرؤوس المحددة
3. إذا كان لديك قائمة من الرؤوس التي تحتاج إلى مسح ، يمكنك استخدام صفيف لتحديد هذه الرؤوس. يوجد أدناه نموذج رمز:
4. الرؤوس الفرعية المحددة ()
5. ديم وس كورقة عمل
6. تعيين وس = هذاكتاب العمل.الأوراق ("الورقة 1") ' استبدل باسم الورقة الخاصة بك
7. رأس خافت () كمتغير

headerArray = Array("Header1", "Header2", "Header3") ' заменить на свой список заголовков

Dim i As Integer

For i = 0 To UBound(headerArray)

Dim headerRange As Range

Set headerRange = ws.Range(headerArray(i))