كيف يمكن إعادة تسمية الأوراق في Excel بناءً على قيم الخلايا (من قائمة)؟
عادةً ما تُعاد تسمية ورقة عمل واحدة في Excel بالنقر بزر الماوس الأيمن على لسان الورقة واختيار «إعادة التسمية» من القائمة السياقية. لكن إذا كنت بحاجة إلى إعادة تسمية أوراق عمل متعددة باستخدام قيم من خلايا محددة، أو رغبت في تسمية ورقة عمل ديناميكيًا بناءً على قيمة خلية معينة، فهناك عدة طرق فعّالة يمكنك اتباعها. سيأخذك هذا المقال خطوة بخطوة عبر هذه التقنيات، ليجعل العملية سلسة ومباشرة.
- إعادة تسمية ورقة ديناميكيًا بناءً على قيمة خلية باستخدام VBA
- إعادة تسمية أوراق متعددة بناءً على قيم خلايا في الأوراق المقابلة
- إعادة تسمية أوراق متعددة من القائمة المحددة
إعادة تسمية ورقة ديناميكيًا من قيمة خلية باستخدام VBA
يمكننا إعادة تسمية ورقة عمل ديناميكيًا من قيمة خلية معينة باستخدام VBA في Excel، ويمكنك اتباع الخطوات التالية:
الخطوة 1:انقر بزر الماوس الأيمن على اسم الورقة التي تريد تسميتها ديناميكيًا وفقًا لقيمة خلية، ثم اخترعرض الرمز البرمجيمن قائمة النقر بزر الماوس الأيمن.
الخطوة 2:في النافذة المفتوحة منمايكروسوفت فيجوال بيسك للتطبيقات، الصق كود VBA التالي في نافذة الوحدة.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub تلميح:يُعيد هذا الكود البرمجي تسمية ورقة العمل ديناميكيًا بناءً على القيمة الموجودة في الخلية A1، ويمكنك تغيير "A1" إلى أي خلية أخرى حسب احتياجاتك.
الخطوة 3:احفظ كود VBA وأغلق نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
بعد ذلك، سترى اسم الورقة يتغير تلقائيًا بناءً على قيمة الخلية المحددة.
ملاحظات:
- إذا كانت الخلية المحددة فارغة، فلن تتم إعادة تسمية ورقة العمل.
- سيتم إعادة تسمية ورقة العمل تلقائيًا في كل مرة تتغيّر فيها القيمة بالخلية المحددة.
- إذا أدخلت أحرفًا خاصة في الخلية المحددة، مثل *، فسيتم عرض رسالة تحذير خطأ.
إعادة تسمية أوراق متعددة بناءً على قيم خلايا في الأوراق المقابلة
تسمح الطريقة المذكورة أعلاه بإعادة تسمية ورقة واحدة في كل مرة. ولكن باستخدام ميزةإعادة تسمية أوراق العمل بالجملةمنKutools لـ Excel، يمكنك إعادة تسمية جميع الأوراق أو عدة أوراق دفعةً واحدة بسرعة، بناءً على قيمة خلية محددة في كل ورقة. على سبيل المثال، يمكنك جعل اسم كل ورقة يتطابق مع القيمة الموجودة في خليتها A1.
- انقر علىKUTOOLS PLUS > ورقة العمل > إعادة تسمية ورقات العمل. انظر لقطة الشاشة:

- في مربع الحوار المفتوحإعادة تسمية ورقات العمل بالجملة، يُرجى اتباع الخطوات التالية:
- في قائمةأوراق العمل، حدد أوراق العمل التي ترغب في إعادة تسميتها.
- في قسمنمط التسمية، اختر خياراستبدال الاسم الأصلي.
- في قسممصدر اسم الملف، يُرجى تحديد خيارمن خلية ورقة العمل المقابلة، ثم تحديد الخلية التي سيتم استخدام محتواها لإعادة تسمية الورقة المقابلة.
- انقر على زرموافق.
والآن، تم إعادة تسمية جميع الأوراق المحددة وفقًا للخلية المحددة في كل ورقة. راجع لقطة الشاشة:
ملاحظة:هل ترغب في الوصول إلى ميزةإعادة تسمية ورقات العمل بالجملة؟ قم بتنزيلKutools لـ Excelالآن! وبالإضافة إلى ذلك، يحتوي Kutools على أكثر من 300 ميزة أخرى، ويقدّم نسخة تجريبية مجانية لمدة 30 يومًا. لا تنتظر، جرّبه اليوم!
إعادة تسمية أوراق متعددة من القائمة المحددة
يدعم Kutools لـ Excel أيضًا ميزةإعادة تسمية ورقات العمل بالجملة، والتي تتيح لك إعادة تسمية أوراق متعددة بناءً على قيم الخلايا في قائمة محددة.
- انقر علىKUTOOLS PLUS > ورقة العمل > إعادة تسمية ورقات العمل.

- في مربع الحوار المفتوحإعادة تسمية ورقات العمل بالجملة، قم بالتكوين كما يلي:
- في قائمةأوراق العمل، اختر الأوراق التي ترغب في إعادة تسميتها.
- في قسمنمط التسمية، اختر خياراستبدال الاسم الأصلي.
- في قسممصدر اسم الملف، اختر خيارمن التحديد، ثم انقر على الزر
لفتح مربع الحوار الثانيإعادة تسمية أوراق العمل بالجملة (انظر لقطة الشاشة على اليمين). بعد ذلك، حدد نطاق الخلايا التي سيتم إعادة تسمية أوراق العمل وفقًا لقيمها، ثم انقر على زرموافق. - انقر على زرموافقلتطبيق إعادة التسمية.


بعد ذلك، ستلاحظ أن أسماء جميع أوراق العمل المحددة قد استُبدلت بقيم الخلايا من القائمة المحددة. انظر لقطة الشاشة أدناه:
ملاحظة:هل ترغب في الوصول إلى ميزةإعادة تسمية ورقات العمل بالجملة؟ قم بتنزيلKutools لـ Excelالآن! وبالإضافة إلى ذلك، يحتوي Kutools على أكثر من 300 ميزة أخرى، ويقدّم نسخة تجريبية مجانية لمدة 30 يومًا. لا تنتظر، جرّبه اليوم!
عرض توضيحي: تسمية الأوراق بناءً على قيم الخلايا (من قائمة) في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل



