Skip to main content

كيفية إعادة تسمية أوراق العمل بناءً على قيم الخلايا في Excel؟

Author: Sun Last Modified: 2025-05-30

عادةً ما يتم تطبيق إعادة تسمية أوراق العمل في عملنا على Excel، ولكن هل جربت من قبل إعادة تسمية أوراق العمل بناءً على قيم الخلايا؟ بالطبع يمكنك إعادة تسمية أوراق العمل يدويًا، لكن هذا البرنامج التعليمي يقدم بعض الحيل التي يمكنها إعادة تسمية العديد من أوراق العمل بسرعة بناءً على قيم الخلايا مما يوفر وقتك في العمل.

إعادة تسمية أوراق العمل بناءً على خلية محددة باستخدام VBA

إعادة تسمية أوراق العمل بناءً على خلية محددة باستخدام إعادة تسمية أوراق العمل المتعددة good idea3

إعادة تسمية أوراق العمل بناءً على مجموعة من محتويات الخلايا باستخدام إعادة تسمية أوراق العمل المتعددة good idea3


إعادة تسمية أوراق العمل بناءً على خلية محددة باستخدام VBA

مع الكود التالي لـ VBA، يمكنك إعادة تسمية الورقة المرتبطة بناءً على خلية محددة.

1. حدد الخلية التي تريد إعادة تسمية الورقة بناءً عليها، في هذه الحالة حدد الخلية A1. انظر إلى لقطة الشاشة:

Select the cell to rename worksheet based on

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

3. اضغط على إدراج > وحدة، ثم ألصق الكود التالي لـ VBA في نافذة الوحدة الجديدة.

VBA: إعادة تسمية أوراق العمل بناءً على قيم خلية محددة.

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4. اضغط على مفتاح F5 لتشغيل كود VBA. بعد ذلك سيتم إعادة تسمية جميع الأوراق بناءً على قيم الخلية A1 لكل منها.

all the worksheets have been renamed by each relative A1 cell values


إعادة تسمية أوراق العمل بناءً على خلية محددة باستخدام إعادة تسمية أوراق العمل المتعددة

إذا كان لديك Kutools لـ Excel، لن تحتاج إلى حفظ كود VBA، يمكنك استخدام ميزة إعادة تسمية أوراق العمل المتعددة لإعادة تسمية جميع الأوراق بسرعة بناءً على خلاياها المرتبطة.

Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...

بعد التثبيت المجاني لـ Kutools لـ Excel، يرجى القيام بما يلي:

1. قم بتفعيل المصنف الذي تريد إعادة تسمية أسماء أوراقه.

2. اضغط على Kutools Plus > ورقة العمل > إعادة تسمية أوراق العمل. انظر إلى لقطة الشاشة:

click Rename Worksheets of kutools

3. بعد ذلك في النافذة المنبثقة، حدد الأوراق التي تريد إعادة تسميتها ضمن لوحة أوراق العمل، واختر أحد خيارات إعادة التسمية التي تحتاجها، هنا سأستبدل اسم الورقة، ثم حدد إعادة تسمية أوراق العمل باستخدام خلية محددة، واختر الخلية التي تحتاج إلى إعادة تسمية بناءً عليها. انظر إلى لقطة الشاشة:

set options in the dialog box

4. اضغط على موافق. الآن تم إعادة تسمية الأوراق بمحتويات خلية محددة.

the sheets are renamed with specific cell contents

ولكن في بعض الأحيان، قد تحتاج إلى إعادة تسمية العديد من أوراق العمل بناءً على نطاق من قيم الخلايا كما هو موضح في لقطة الشاشة أدناه، في هذه الحالة يمكنك اختيار الطريقة التالية.

rename multiple worksheets based on a range of cell values with kutools


إعادة تسمية أوراق العمل بناءً على نطاق من محتويات الخلايا باستخدام إعادة تسمية أوراق العمل المتعددة

مع إعادة تسمية أوراق العمل المتعددة من Kutools لـ Excel، يمكنك أيضًا إعادة تسمية الأوراق بناءً على نطاق محدد.

بعد التثبيت المجاني لـ Kutools لـ Excel، يرجى القيام بما يلي:

1. اضغط على Kutools Plus > ورقة العمل > إعادة تسمية أوراق العمل. انظر إلى لقطة الشاشة:

click Rename Worksheets feature of kutools

2. في نافذة إعادة تسمية أوراق العمل المتعددة، تحتاج إلى تحديد الإعدادات التالية:

(1) حدد أوراق العمل التي تحتاج إلى إعادة تسميتها من قائمة أوراق العمل؛

(2) حدد الخيار من نطاق محدد، واختر قيم الخلايا التي تحتاج إلى إعادة تسمية بناءً عليها؛

(3) حدد خيارات إعادة التسمية، يمكنك اختيار إدراج قبل اسم الورقة الأصلي، إدراج بعد اسم الورقة الأصلي، أو استبدال اسم الورقة الأصلي، ويمكنك معاينة النتيجة المقابلة في النافذة.

set options in the dialog box

3. اضغط على موافق، وبعد ذلك ستلاحظ أن جميع أوراق العمل التي حددتها قد تم إعادة تسميتها بناءً على قيم الخلايا المحددة.

استبدال اسم الورقة الأصلي

Replace original sheet name

إدراج قبل اسم الورقة الأصلي

Insert before original sheet name

إدراج بعد اسم الورقة الأصلي

Insert after original sheet name

مع أداة إعادة تسمية أوراق العمل، يمكنك أيضًا إعادة تسمية أوراق العمل باستخدام بادئة أو لاحقة محددة. اضغط هنا لمعرفة المزيد عن إعادة تسمية أوراق العمل المتعددة.

إعادة تسمية أوراق متعددة بناءً على قيم الخلايا

 

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

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

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


Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير

  • تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
  • افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
  • يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!