كيفية البحث عن أسماء علامات تبويب الأوراق واستبدالها في 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 .
ثم يتم استبدال جميع الكلمات ذات الصلة في أسماء علامات تبويب الأوراق بكلمة محددة كما هو موضح أدناه.
ملاحظات: الكود أعلاه حساس لحالة الأحرف.
مقالات ذات صلة:
- كيفية البحث عن واستبدال جميع الخلايا الفارغة برقم أو نص معين في إكسيل؟
- كيف تستبدل الفواصل بأسطر جديدة (Alt + Enter) في الخلايا في Excel؟
- كيفية إنشاء كود ماكرو لتحقيق البحث عن النص واستبداله في Excel؟
- كيف تجد قيمة في خلية بقائمة مفصولة بفواصل في إكسيل؟
- كيف تجد تقاطع قائمتين في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!