كيفية البحث عن أسماء علامات الأوراق واستبدالها في Excel؟

من السهل البحث عن القيم واستبدالها في الخلايا في Excel. ولكن هل هناك أي طريقة للبحث عن أسماء الأوراق واستبدالها في Excel؟ على سبيل المثال، كما هو موضح في لقطة الشاشة أدناه، لديك عدة أوراق عمل تحتوي على “KTE(Sales) xxx” في اسم الورقة، والآن تحتاج إلى استبدال كل “KTE(Sales)” بـ “KTE” في جميع أسماء الأوراق ذات الصلة، فماذا يمكنك أن تفعل؟ ستقترح هذه المقالة طريقة باستخدام VBA لتحقيق ذلك.

البحث عن أسماء علامات الأوراق واستبدالها باستخدام كود VBA

البحث عن أسماء علامات الأوراق واستبدالها باستخدام كود VBA

يرجى تطبيق الكود التالي من VBA للبحث عن أسماء علامات الأوراق واستبدالها في Excel. يرجى القيام بما يلي.

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

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة. وبعد ذلك، قم بنسخ الكود التالي من VBA في نافذة الكود.

كود VBA: البحث عن أسماء علامات الأوراق واستبدالها في Excel

Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
    Dim xNum As Long
    Dim xRepName As String
    Dim xNewName As String
    Dim xSheetName As String
    Dim xSheet As Worksheet
    xRepName = Application.InputBox("Please type in the word you will replace：", "Kutools for Excel", , , , , , 2)
    xNewName = Application.InputBox("Please type in the word you will replace with：", "Kutools for Excel", , , , , , 2)
    If xRepName = "false" Or xNewName = "false" Then Exit Sub
    On Error GoTo ExitLab
    For Each xSheet In ActiveWorkbook.Sheets
        xSheetName = xSheet.Name
        xNum = InStr(1, xSheetName, xRepName)
        If xNum > 0 Then
            xSheet.Name = Replace(xSheetName, xRepName, xNewName)
        End If
ExitLab:
    Next
End Sub

3. اضغط على مفتاح F5 لتشغيل الكود.

4. ثم ستظهر نافذة منبثقة Kutools لـ Excel، يرجى إدخال الكلمات التي تريد استبدالها في أسماء الأوراق، والنقر فوق الزر موافق. انظر لقطة الشاشة:

5. في النافذة المنبثقة الثانية Kutools لـ Excel، أدخل الكلمة التي تريد استبدالها بها، ثم انقر فوق الزر موافق.

ثم يتم استبدال جميع الكلمات المتعلقة بأسماء علامات الأوراق بالكلمة المحددة كما هو موضح في لقطة الشاشة أدناه.

ملاحظة: الكود أعلاه حساس لحالة الأحرف.

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

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

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

مقالات ذات صلة:

• كيفية البحث عن جميع الخلايا الفارغة واستبدالها برقم أو نص معين في Excel؟
• كيفية استبدال الفواصل بسطور جديدة (Alt + Enter) في الخلايا في Excel؟
• كيفية إنشاء كود ماكرو لتحقيق البحث عن النص واستبداله في Excel؟
• كيفية البحث عن قيمة في خلية تحتوي على قائمة مفصولة بفواصل في Excel؟
• كيفية العثور على تقاطع قائمتين من الأعمدة في Excel؟