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