KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفسونتاريخ التعديل

عادةً ما نُعيد تسمية أوراق العمل يدويًا في ملفات Excel، ولكن هل جرّبت من قبل إعادة تسميتها تلقائيًا بناءً على قيم الخلايا؟ بالتأكيد، يمكنك تغيير الأسماء يدويًا، لكن هذا البرنامج التعليمي يقدم لك حيلًا ذكية تتيح لك إعادة تسمية أوراق العمل دفعة واحدة وفقًا لقيم محددة في الخلايا، لتوفير وقتك وتسريع إنجازك!

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

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

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

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

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

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

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

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

3. انقر علىإدراج > وحدة نمطية (Module)، ثم الصق كود VBA أدناه في نافذةالوحدة النمطية (Module)الجديدة.

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 الخاصة بكل منها.

تمت إعادة تسمية جميع أوراق العمل وفقًا لقيم خلايا A1 النسبية الخاصة بها

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

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

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

بعدتثبيتKutools لـ Excel مجانًا، يُرجى اتباع الخطوات التالية:

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

2. انقر علىKUTOOLS PLUS > ورقة العمل > إعادة تسمية ورقات العمل. انظر لقطة الشاشة:

انقر على ميزة إعادة تسمية أوراق العمل من Kutools

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

قم بتعيين الخيارات في مربع الحوار

4. انقر علىموافق. الآن، تم إعادة تسمية الأوراق وفقًا لمحتويات الخلية المحددة.

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

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

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

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

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

بعدتثبيتKutools لـ Excel مجانًا، يُرجى اتباع الخطوات التالية:

1. انقر علىKUTOOLS PLUS > ورقة العمل > إعادة تسمية ورقات العمل. انظر لقطة الشاشة:

انقر على ميزة إعادة تسمية أوراق العمل من Kutools

2. في مربع حوارإعادة تسمية ورقات العمل بالجملة، قم بتحديد الإعدادات كما يلي:

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

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

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

قم بتعيين الخيارات في مربع الحوار

3. انقر علىموافق، وسترى أن جميع أوراق العمل التي حددتها قد أُعيدت تسميتها بناءً على قيم الخلايا المحددة.

استبدال الاسم الأصلي

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

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

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

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

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

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

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

 

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

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

عزِّز مهاراتك في 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.

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