كيفية مسح ورقة كاملة باستخدام vba؟

لمسح ورقة كاملة باستخدام كود VBA دفعة واحدة، تحتاج إلى استخدام شيئين، أولاً طريقة CLEAR ثم CELLS للإشارة إلى جميع الخلايا في ورقة العمل.

مسح الورقة النشطة

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

 Cells.Clear

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

مسح ورقة محددة

هناك شيء واحد يجب عليك ملاحظته وهو أنه لمسح ورقة ما، يجب تمكين تلك الورقة. لنفترض أنك تريد مسح “الورقة 1″، فسيكون الرمز كما يلي:

 Sheets("Sheet1").Activate Cells.Clear

في هذا الكود، يقوم الأول بتنشيط “الورقة1” ويمسح السطر الثاني كل شيء.

أشياء أخرى لمسحها

يمكنك أيضًا استخدام الطرق الموضحة أدناه لمسح أشياء مختلفة.

 Cells.ClearContents 'to clear contents Cells.ClearComments 'to clear Comments Cells.ClearFormats 'to clears formatting Cells.ClearHyperlinks 'to clear hyperlinks Cells.ClearNotes 'to clear notes Cells.ClearOutline 'to clears outline

حذف ورقة من مصنف معين

يمكن أن يشير الكود أدناه إلى المصنف “Book1” ويمسح الورقة “Sheet1”. ولكن تأكد من أن المصنف مفتوح في وقت تشغيل هذا الكود .

 Workbooks("Book1").Sheets("Sheet1").Activate Cells.Clear

يقوم هذا الرمز أولاً بتنشيط “الورقة 1” من الكتاب ثم يقوم بمسحها.

حذف ورقة من مصنف مغلق

وفي الكود أدناه، أشرنا إلى “الورقة 1” من “ملف العينة” للمصنف، المخزن في موقع محدد.

 Sub vba_clear_sheet() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open("C:\Users\Dell\Desktop\sample-file.xlsx") wb.Sheets("Sheet1").Activate Cells.Clear wb.Close SaveChanges:=True Application.ScreenUpdating = False End Sub