Note: The other languages of the website are Google-translated. Back to English

كيفية جعل اسم علامة تبويب الورقة مساويًا لقيمة الخلية في إكسيل؟

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

اجعل اسم علامة تبويب الورقة مساويًا لقيمة الخلية برمز VBA
اجعل اسم علامة تبويب الورقة مساويًا لقيمة الخلية باستخدام Kutools for Excel


اجعل اسم علامة تبويب الورقة مساويًا لقيمة الخلية برمز VBA

باستخدام رمز VBA التالي ، يمكنك جعل اسم علامة تبويب الورقة مساويًا لقيمة الخلية تلقائيًا.

1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريد جعل اسم الورقة مساويًا لقيمة الخلية ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

2. انسخ الكود أدناه والصقه في نافذة الكود ، ثم اضغط قديم + Q مفاتيح في نفس الوقت لإغلاق نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

كود فبا: اجعل علامة تبويب الورقة مساوية لقيمة الخلية

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 ، سيتم تغيير اسم علامة تبويب الورقة بشكل متساوٍ أيضًا.


اجعل اسم علامة تبويب الورقة مساويًا لقيمة الخلية باستخدام Kutools for Excel

في هذا القسم ، نقدم لك ملف إعادة تسمية أوراق عمل متعددة فائدة كوتولس ل إكسيل. باستخدام هذه الأداة المساعدة ، يمكنك بسهولة إعادة تسمية أوراق العمل بقيمة خلية معينة في Excel.

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. انقر كوتولس بلس > ورقة العمل > إعادة تسمية أوراق عمل متعددة. انظر لقطة الشاشة:

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

1). تحقق من أسماء أوراق العمل التي تريد إعادة تسميتها في أوراق العمل مربع (يمكنك تحديد ورقة واحدة أو أوراق متعددة).
2). تحديد استبدل اسم الورقة الأصلي في مربع إعادة تسمية الخيارات والقسم الخاص به.
3). إذا كنت تريد إعادة تسمية ورقة عمل أو أوراق عمل متعددة بقيمة خلية محددة ، فيرجى تحديد من نطاق محدد ، وحدد نطاق الخلايا التي تريد إعادة تسمية الأوراق بناءً عليها.
4). انقر على OK زر. انظر لقطة الشاشة:

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

ملاحظة:

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

3. لن يتم تغيير اسم الورقة تلقائيًا مع تغيير قيمة الخلية.

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


اجعل اسم علامة تبويب الورقة مساويًا لقيمة الخلية باستخدام Kutools for Excel


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (28)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت بلصق هذا وفقًا للتعليمات ولكنه لم يظهر في قائمة وحدات الماكرو المتوفرة لدي. حاولت تشغيله يدويًا عن طريق إدخال اسم الماكرو. عندما حاولت تشغيل الماكرو ، ظهرت رسالة خطأ "وسيطة لا اختيارية".

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
إذا لم يتقاطع (الهدف ، النطاق ("A1")) لا شيء إذن
ActiveSheet.Name = ActiveSheet.Range ("A1")
إنهاء حالة
نهاية الفرعية

هل قام أي شخص آخر بتشغيل هذا الرمز ولديه نفس المشكلة؟

كاختبار قمت بتشغيل المزيد من التعليمات البرمجية الأساسية وعملت بشكل جيد ، لذا فإن القيمة الموجودة في "A1" لا تسبب المشكلة. عندما أقوم بتشغيل الكود أدناه ، يمكنني رؤية اسم الماكرو "myTabName" في قائمة الماكرو. لا يظهر الكود أعلاه وأنا أفترض أن هذا بسبب خطأ / وسيطة مفقودة.

myTabName الفرعية ()
ActiveSheet.Name = ActiveSheet.Range ("A1")
نهاية الفرعية

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

لم تنجح معي أيضًا ، هل يمكن أن يكون ذلك لأن الخلية التي أشير إليها هي صيغة؟

شكرا على الرد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا مي ،

شكرا لك على ملاحظاتك. سبب المشكلة هو الصيغة. تم تعديل الكود. يرجى محاولة إعطائها.

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
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحصل على هذا الرمز للعمل ، لكنه لا يقوم تلقائيًا بتحديث اسم علامة التبويب عندما تسحب الخلية الاسم منها إذا كانت تشير إلى خلية أخرى (وتغيرت تلك الخلية).


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

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
خافت xRg كمدى ، xCell كمدى
على خطأ استئناف التالي
إذا لم يتقاطع (الهدف ، النطاق ("A1")) لا شيء إذن
ActiveSheet.Name = ActiveSheet.Range ("A1")
إنهاء حالة
Application.EnableEvents = خطأ
قم بتعيين xRg = ActiveSheet.Range ("A1"). السوابق
إذا لم يكن xRg لا شيء إذن
لكل xCell في xRg
ActiveSheet.Name = ActiveSheet.Range ("A1")
التالى
إنهاء حالة
Application.EnableEvents = صحيح
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يزال لا يعمل. أواجه نفس المشكلة مثل jJJ. كريستال: هل يظهر الرمز بالكامل في ردك؟
السطر الأخير الموضح في تعليقك هو "Set xRg = ActiveSheet.Range (" A1 "). السابقات"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي JAS ،
الرجاء النقر فوق الزر "قراءة المزيد" الموجود على الجانب الأيمن من التعليق لعرض التعليق بالكامل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا تزال لديها نفس المشكلة.

لدي A1 من الورقة الجديدة يشير إلى خلية أخرى في علامة تبويب مختلفة. يتم تحديثه في المرة الأولى (عند التنفيذ) ولكن لا تغيير بعد ذلك عند تحرير الخلية الرئيسية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تغيير ورقة العمل الفرعية الخاصة (حسب الهدف مثل Excel.Range)
تعيين الهدف = النطاق ("A1")
إذا كان الهدف = "" ثم اخرج من Sub
عند الخطأ انتقل إلى Badname
ActiveSheet.Name = يسار (الهدف ، 31)
خروج الفرعية
اسم سيء:
MsgBox "الرجاء مراجعة الإدخال في A1." & Chr (13) _
& "يبدو أنه يحتوي على واحد أو أكثر" & Chr (13) _
& "أحرف غير قانونية." & سي ار (13)
نطاق ("A1"). تنشيط
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا تزال المشكلة هي نفسها ، إنها تتغير لأول مرة. عندما أقوم بربط هذه الخلية بورقة أخرى وتغييرها لا يغيرها تلقائيًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحتاج إلى استخدام هذا الرمز ولكني لم أدخل رمز vba من قبل. سيكون موضع تقدير أي توجيه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أقوم بتغيير خلية في قائمة رئيسية ، والتي تغير نص الخلية في خلية معينة في كل علامة تبويب ، والتي تشير الكود إلى اسم علامة التبويب ، ولكن علامة التبويب لا تقوم بتحديث اسمها في المقابل.

---- هذا لا يعمل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حصلت على الكود بالكامل ، وقد نجح. شكرا جزيلا لكم على مساعدتكم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي JAS ،
أنا سعيد بخدمتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنك بدلاً من ذلك استخدام ماكرو بسيط



الماكرو الفرعي 3 ()
مؤشر خافت كعدد صحيح
للفهرس = 1 إلى 18

Sheets (index) .Name = Sheets (index) .Range ("A2"). القيمة

الفهرس التالي



نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
شكرا لك على المشاركة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا هو بالضبط ما أحتاجه ، لكنني بحاجة إلى علامة التبويب لإعادة إنشاء تاريخ وهو لا يعمل ... أفترض أن هذا شيء يتعلق بالطريقة التي يعمل بها برنامج Excel خارج التاريخ والوقت ، هل يمكن لأي شخص اقتراح حل بديل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا نيك،
لا يدعم Excel كتابة اسم الورقة الذي يحتوي على أحرف خاصة. إذا كان التاريخ الذي تكتبه يحتوي على الحرف / ، فلن يسمح لك بإنشاء اسم الورقة بهذا التاريخ.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني الإشارة إلى خليتين. على سبيل المثال الاسم ورقم الهوية؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أستخدم الكود الخاص بك بالضبط من أعلاه لرمز VBA الذي يعمل بشكل مثالي لما أحتاجه. ومع ذلك ، لدي مجموعة من وحدات الماكرو على ورقة تسمى قالب الوظيفة يتم نسخها وإعادة استخدامها لكل وظيفة جديدة. لقد صممت جميع وحدات الماكرو الخاصة بي بناءً على نسخة جديدة منسوخة تسمى Job Template (2). بمجرد تغيير اسم الورقة إلى اسم الوظيفة الجديد ، لم تعد وحدات الماكرو تعمل ويجب أن تقوم بذلك يدويًا. أود أن أتمكن من استخدام أي من أزرار الماكرو الخاصة بي في أي وقت بدلاً من استخدامها فقط قبل تغيير اسم الورقة.

هل هناك طريقة لرمز VBA للإشارة دائمًا إلى اسم الورقة قبل تشغيل باقي وظائف التعليمات البرمجية؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما هو أعلى عدد من أوراق العمل التي يمكن تغيير الأسماء عبر كوتولس بلس؟ لأن برنامج Excel يسمح لي بتغيير 17 اسمًا فقط ، وهذا كل شيء
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد نجح هذا بشكل مثالي مع ورقة العمل الأولى الخاصة بي ، ولكن ليس للوثيقة الثانية أو الثالثة وما إلى ذلك (لدي ما يصل إلى حوالي 20 ورقة عمل تحتاج جميعها إلى هذه الوظيفة). هل فاتني شيء؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا A Owen ،
هذا الرمز يعمل فقط لورقة عمل واحدة في كل مرة. آسف للإزعاج.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كريستال ،

عندما ألصق التعليمات البرمجية الخاصة بك ، ستظهر مع الخطأ "النوع المحدد من قبل المستخدم غير محدد"؟

شكر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا توم جي ،
تأكد من تحديد هذه الخيارات الثلاثة في مربع الحوار المراجع - VBAProject.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/error.png
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عملت بشكل جميل!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
صباح الخير،
que voulez-vous dire par appuyer autre autre + q dans le code vba après تجنب كولي.
J'ai simplement fermé la page après fleir collé et ça ne marche pas
شكرا
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL