انتقل إلى المحتوى الرئيسي

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

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


إعادة تسمية الورقة ديناميكيًا من قيمة الخلية باستخدام 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

تلميح: يقوم VBA بإعادة تسمية ورقة العمل ديناميكيًا بناءً على القيمة الموجودة في الخلية A1، ويمكنك تغيير "A1" إلى خلايا أخرى بناءً على احتياجاتك.

خطوة 3 احفظ رمز VBA وأغلق ملف Microsoft Visual Basic للتطبيق نافذة.

ثم سترى اسم الورقة يتغير ديناميكيًا بناءً على قيمة الخلية المحددة.

الملاحظات:

  • إذا كانت الخلية المحددة فارغة، فلن تتم إعادة تسمية ورقة العمل.
  • ستتم إعادة تسمية ورقة العمل في كل مرة تقوم فيها بتغيير القيمة في الخلية المحددة.
  • إذا قمت بكتابة أحرف خاصة في الخلية المحددة، مثل *، فسيظهر تحذير من الخطأ.

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

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

كوتولس ل إكسيل - مزود بأكثر من 300 أداة أساسية لبرنامج Excel. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! التحميل الان!

  1. انقر كوتولس بلس > ورقة العمل > إعادة تسمية أوراق العمل. انظر لقطة الشاشة:
  2. في الافتتاح إعادة تسمية أوراق عمل متعددة مربع الحوار ، يرجى القيام بما يلي:
    1. في مجلة أوراق العمل القائمة، تحقق من أوراق العمل التي ستعيد تسميتها.
    2. في مجلة إعادة تسمية الخيارات القسم، تحقق من استبدل اسم الورقة الأصلي الخيار.
    3. في مجلة اسم ورقة العمل الجديدة القسم ، يرجى التحقق من إعادة تسمية أوراق العمل بخلية معينة الخيار، وحدد الخلية التي ستعيد تسمية الورقة المقابلة لها بمحتواها.
    4. انقر على Ok .

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

ملحوظة: تريد الوصول إلى إعادة تسمية أوراق عمل متعددة ميزة؟ تحميل كوتولس ل إكسيل الآن! علاوة على ذلك، تفتخر Kutools بعدد لا يحصى من أكثر من 300 ميزة أخرى وتقدم نسخة تجريبية مجانية مدتها 30 يومًا. لا تنتظر، جربها اليوم!


إعادة تسمية أوراق متعددة من القائمة المحددة

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

كوتولس ل إكسيل - مزود بأكثر من 300 أداة أساسية لبرنامج Excel. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! التحميل الان!

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

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

ملحوظة: تريد الوصول إلى إعادة تسمية أوراق عمل متعددة ميزة؟ تحميل كوتولس ل إكسيل الآن! علاوة على ذلك، تفتخر Kutools بعدد لا يحصى من أكثر من 300 ميزة أخرى وتقدم نسخة تجريبية مجانية مدتها 30 يومًا. لا تنتظر، جربها اليوم!


العرض التوضيحي: أوراق الأسماء بناءً على قيم الخلايا (من القائمة) في Excel


كوتولس ل إكسيل: أكثر من 300 أداة مفيدة في متناول يدك! ابدأ تجربتك المجانية لمدة 30 يومًا دون أي قيود على الميزات اليوم. تحميل الآن!

مقالات ذات صلة:

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

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

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

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, one question if i want to use the value of 2 cells (A1 & B1) what i have to change?
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sheetName As String
    
    If Not Intersect(Target, Me.Range("A1:B1")) Is Nothing Then
        sheetName = VBA.Left(Me.Range("A1").Value & Me.Range("B1").Value, 31)
        
        If sheetName <> "" Then
            Application.ActiveSheet.Name = sheetName
        End If
    End If
End Sub

Once you done pasting the code to the View Code window, please select the cell A1 or B1 to make the code run.

Amanda
This comment was minimized by the moderator on the site
Здравствуйте! Подскажите, пожалуйста, а как в Excel создать левую панель, в которой разместить названия листов? То есть перенести ярлыки листов влево (сейчас то они снизу)
This comment was minimized by the moderator on the site
This comment was minimized by the moderator on the site
I used the dynamic sheet name coding and functionally it works well, but I get the Runtime Error 1004 whenever I click inside a cell. Anyone have any info on how to correct this?


Thanks
This comment was minimized by the moderator on the site
This is awesome, thank you so much....
This comment was minimized by the moderator on the site
so I am trying to do this, but nothing is happening - my sheet names aren't changing, everything is the exact same. Do you know what I am doing wrong??
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations