انتقل إلى المحتوى الرئيسي

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

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

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


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

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

1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. وبعد ذلك ، انسخ رمز 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. ثم أ كوتولس ل إكسيل ينبثق مربع الحوار ، يرجى إدخال كلمات أسماء الأوراق التي ستستبدلها ، وانقر فوق OK زر. انظر لقطة الشاشة:

5. في الثانية كوتولس ل إكسيل في مربع الحوار ، أدخل الكلمة التي ستستبدل بها ، ثم انقر فوق OK .

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

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


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

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This solution solved 50% of the manual work I had to do.
Thank you Microsoft team!
This comment was minimized by the moderator on the site
Hi Joshua SK,
Many thanks for your feedback. It's our pleasure to help you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations