كيفية حذف ورقة إذا لم يكن اسم الورقة في القائمة؟
دعنا نقول ، لديّ ورقة عمل تحتوي على قائمة بأسماء الأوراق داخل المصنف في العمود A كما هو موضح أدناه ، وبعض أسماء الأوراق المعينة في المصنف ليست في القائمة ، الآن ، أريد حذف الأوراق التي ليست في قائمة العمود أ. كيف يمكنني حل هذه المهمة في Excel بسرعة وسهولة؟
احذف الأوراق التي ليست في قائمة محددة برمز VBA
احذف الأوراق التي ليست في قائمة محددة برمز VBA
عادة ، يمكنك التحقق من أسماء الأوراق واحدة تلو الأخرى ، وحذف تلك الأسماء غير الموجودة في قائمة أسماء الأوراق. لكن ، هنا ، يمكنني التحدث عن رمز VBA للتعامل معه. يرجى القيام بما يلي:
1. انتقل إلى ورقة العمل التي تحتوي على قائمة أسماء الأوراق ، ثم اضغط باستمرار على ملف ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. ثم اضغط إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: احذف الأوراق التي ليست في قائمة
Sub Deletenotinlist()
'Updateby Extendoffice
Dim i As Long
Dim cnt As Long
Dim xWb, actWs As Worksheet
Set actWs = ThisWorkbook.ActiveSheet
cnt = 0
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Not ThisWorkbook.Sheets(i) Is actWs Then
xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
If IsError(xWb) Then
ThisWorkbook.Sheets(i).Delete
cnt = cnt + 1
End If
End If
Next
Application.DisplayAlerts = True
If cnt = 0 Then
MsgBox "Not find the sheets to be seleted", vbInformation, "Kutools for Excel"
Else
MsgBox "Have deleted" & cnt & "worksheets"
End If
End Sub
ملاحظات: في الكود أعلاه ، A2: A6 هو مرجع الخلية الذي يحتوي على أسماء الأوراق ، يمكنك تغييره حسب حاجتك.
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، تم حذف الأوراق غير الموجودة في القائمة مرة واحدة ، انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!