كيفية حذف ورقة العمل إذا كان الاسم يحتوي على نص محدد من المصنف؟

لنفترض أن لديك مصنفًا يحتوي على أوراق عمل متعددة، وتريد الآن حذف الأوراق بناءً على أسماء التبويب. على سبيل المثال، إذا احتوى اسم الورقة على النص المحدد “KTE”، فقم بحذفها، والحصول على لقطة الشاشة التالية. كيف يمكنك حذف الأوراق التي تحتوي أسماؤها على نص محدد فورًا دون حذفها واحدة تلو الأخرى؟

حذف الأوراق إذا كان الاسم يحتوي على نص محدد باستخدام كود VBA

حذف الأوراق إذا كان الاسم يحتوي على نص محدد باستخدام كود VBA

هنا، سأقوم بإنشاء كود VBA لك لحذف الأوراق بالاسم، يرجى القيام بما يلي:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: حذف الأوراق إذا كان الاسم يحتوي على نص محدد

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. وبعد ذلك انقر فوق موافق، سيتم حذف جميع الأوراق التي تحتوي أسماؤها على النص المحدد “KTE” دفعة واحدة. انظر إلى لقطة الشاشة:

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!