كيفية حذف ورقة العمل بناءً على قيمة الخلية في إكسيل؟
لنفترض أن لدي أوراق عمل متعددة داخل مصنف ، الآن ، أريد حذف الأوراق بناءً على قيمة الخلية. على سبيل المثال ، إذا كانت الخلية A1 المحددة تحتوي على النص "KTE" ، فيجب حذف جميع الأوراق التي تحتوي على هذا النص في الخلية A1 مرة واحدة. قد تساعدك هذه المقالة في التعامل مع هذه المهمة في Excel.
احذف ورقة العمل بناءً على قيمة الخلية برمز VBA
احذف ورقة العمل بناءً على قيمة الخلية برمز VBA
هنا ، سأقدم لك رمزًا لحذف جميع الأوراق التي تحتوي الخلية المحددة على قيمة معينة ، يرجى القيام بما يلي:
1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: حذف ورقة العمل بناءً على قيمة الخلية:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
ملاحظات: في الكود أعلاه ، A1 هي الخلية المحددة التي تحتوي على نص معين تريد حذف الأوراق بناءً عليه.
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ويظهر مربع موجه لتذكيرك بإدخال القيمة المحددة التي تريد حذف الأوراق بناءً عليها ، انظر لقطة الشاشة:
4. ثم انقر فوق OK ، تم حذف جميع الأوراق التي تحتوي الخلية A1 على النص KTE مرة واحدة. انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!