كيفية جعل اسم تبويب الورقة يساوي قيمة الخلية في Excel؟
عند إدارة المصنفات التي تحتوي على أوراق عمل متعددة، غالبًا ما يكون من المفيد إعطاء كل ورقة اسمًا وصفيًا يطابق محتواها. في كثير من الحالات، قد ترغب في أن يعكس اسم تبويب الورقة القيمة المدخلة في خلية معينة - على سبيل المثال، استخدام اسم المشروع المدخل في الخلية A1 كاسم للورقة. هذا النهج يمكن أن يبسط التنقل، يجعل هيكل بياناتك أكثر وضوحًا، ويزيد من الكفاءة العامة عند العمل مع كميات كبيرة من المعلومات أو مشاركة الملفات مع الزملاء. في هذه المقالة، سنقدم عدة طرق عملية لجعل اسم تبويب الورقة يطابق تلقائيًا أو بسهولة قيمة خلية معينة في Excel.
اجعل اسم تبويب الورقة يساوي قيمة الخلية باستخدام كود VBA
اجعل اسم تبويب الورقة يساوي قيمة الخلية باستخدام Kutools لـ Excel
اجعل اسم تبويب الورقة يساوي قيمة الخلية باستخدام كود VBA
إذا كنت تريد أن يتم تحديث اسم تبويب ورقة العمل ديناميكيًا ويتابع تلقائيًا القيمة في خلية معينة، يمكنك تحقيق ذلك باستخدام VBA (Visual Basic for Applications). هذه الطريقة مفيدة بشكل خاص للقوالب أو الملفات التي تحتاج إلى تغيير أسماء الأوراق بناءً على إدخال المستخدم - مثل تسمية الأوراق بأسماء الأقسام أو التواريخ أو الفئات المخصصة. بينما يتطلب هذا الحل إعداد الكود لمرة واحدة، إلا أنه فعال ويزيل الحاجة إلى إعادة التسمية يدويًا.
1. انقر بزر الماوس الأيمن فوق تبويب الورقة الذي تريد ربطه تلقائيًا بقيمة الخلية، ثم اختر عرض الكود من قائمة النقر بزر الماوس الأيمن. انظر أدناه:
2. في نافذة Microsoft Visual Basic for Applications التي تفتح، قم بنسخ ولصق الكود التالي في نافذة الكود الفارغة. بعد اللصق، اضغط على Alt + Q في نفس الوقت لإغلاق النافذة والعودة إلى Excel.
كود VBA: جعل تبويب الورقة يساوي قيمة الخلية
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
ActiveSheet.Name = ActiveSheet.Range("A1")
ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
ActiveSheet.Name = ActiveSheet.Range("A1")
End If
End Subشرح المعلمات: في الكود، A1 يشير إلى الخلية التي تريد استخدام قيمتها كاسم للورقة. يمكنك تعديل "A1" للإشارة إلى أي خلية أخرى (مثل "B2" أو "C5") حسب احتياجاتك.
الآن، عندما تتغير القيمة في الخلية المحددة (مثل A1)، سيتم تحديث اسم تبويب ورقة العمل تلقائيًا ليتطابق معها. يحدث هذا دون أي خطوات يدوية إضافية.
السيناريوهات المناسبة: استخدم هذه الطريقة إذا كنت تريد أن يتغير اسم الورقة فورًا وتلقائيًا عند تعديل محتوى خلية معينة.
القيود: يجب تمكين ماكروات VBA في مصنفك، ويجب حفظ الملف بتنسيق مصنف يدعم الماكرو (*.xlsm). تغيير الخلية المشار إليها إلى اسم لا يسمح به Excel (مثل الرموز الخاصة أو تجاوز 31 حرفًا) سيؤدي إلى حدوث أخطاء.
نصائح وإشعارات الأخطاء:
- أسماء الأوراق في Excel لا يمكن أن تتجاوز 31 حرفًا ولا ينبغي أن تحتوي على أيًا من الحروف التالية: \ / : ? * [ ]. إذا كانت قيمة الخلية تحتوي على رموز غير صالحة، سيعرض كود VBA خطأ.
- إذا كنت بحاجة لتغيير إعادة التسمية التلقائية لتعكس خلية مختلفة، ما عليك سوى تعديل مرجع الخلية في الكود وحفظ التغييرات.
- لتمكين الماكروات وضمان عمل الكود، يجب حفظ مصنفك بتنسيق يدعم الماكرو (*.xlsm).
- إذا كنت تريد أن تتصرف الأوراق الأخرى بطريقة مشابهة، كرر الخطوات لكل ورقة مرغوبة.
اجعل اسم تبويب الورقة يساوي قيمة الخلية باستخدام Kutools لـ Excel
بالنسبة للمستخدمين الذين يفضلون عدم استخدام VBA أو يريدون إعادة تسمية الأوراق بسرعة دون كتابة الكود، يقدم Kutools لـ Excel حلًا مريحًا. تتيح لك أداة إعادة تسمية أوراق العمل المتعددة إعادة تسمية ورقة عمل واحدة أو أكثر وفقًا للقيم في خلايا محددة. هذا النهج مناسب بشكل خاص للمواقف التي تحتاج فيها إلى تحديث عدة أسماء أوراق مرة واحدة - مثل إنشاء تقارير شهرية، ملخصات الفريق، أو عند توحيد أسماء الأوراق عبر المصنف.
لإعادة تسمية أسماء تبويب الأوراق بناءً على قيم الخلايا بالجملة، يرجى اتباع الخطوات التالية:
1. انقر Kutools Plus > Worksheet > Rename Multiple Worksheets. انظر لقطة الشاشة:
2. في مربع الحوار Rename Multiple Worksheets، قم بتكوين الإعدادات المرغوبة كما يلي:
الآن، سيتم إعادة تسمية الأوراق المختارة فورًا لتطابق القيم المقابلة في النطاق المحدد، كما هو موضح أدناه.
ملاحظات:
Kutools لـ Excel - قم بتعزيز Excel بأكثر من 300 أدوات أساسية. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! احصل عليه الآن
اجعل اسم تبويب الورقة يساوي قيمة الخلية باستخدام Kutools لـ 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد