كيف يمكن حذف ورقة إذا لم يظهر اسمها في القائمة؟
لنفترض أن لديك ورقة عمل تحتوي في العمود A على قائمة بأسماء الأوراق الموجودة في المصنف، كما هو موضح في لقطة الشاشة أدناه، مع وجود بعض أوراق المصنف غير المدرجة في هذه القائمة. كيف يمكنك حذف الأوراق التي لا تظهر في قائمة العمود A بسرعة وسهولة في Excel؟
حذف الأوراق التي لا توجد في قائمة معيّنة باستخدام كود VBA
حذف الأوراق التي لا توجد في قائمة معيّنة باستخدام كود VBA
بشكلٍ عام، يمكنك التحقق من أسماء الأوراق واحدة تلو الأخرى وحذف تلك التي لا تظهر في قائمة الأسماء. ولكن هنا، سأعرض لك كود VBA الذي يُنفّذ هذه المهمة تلقائيًا. يُرجى اتباع الخطوات التالية:
1. انتقل إلى ورقة العمل التي تحتوي على قائمة أسماء الأوراق، ثم اضغط مع الاستمرار على مفاتيحALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. بعد ذلك، انقر علىإدراج > وحدة، ثم الصق الكود التالي في نافذةالوحدة.
كود VBA: حذف الأوراق التي لا توجد في قائمة
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 "No sheets found to delete.", vbInformation, "Kutools for Excel"
Else
MsgBox "Have deleted " & cnt & " worksheets."
End If
End Sub
ملاحظة: في الكود أعلاه،A2:A6 هو المرجع الخلوي الذي يحتوي على أسماء الأوراق، ويمكنك تعديله وفقًا لاحتياجاتك.
3. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود، وسيتم حذف الأوراق التي لا توجد في القائمة دفعةً واحدة. انظر لقطة الشاشة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل