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





- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد