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

الخطوة 1: انقر بزر الماوس الأيمن على اسم الورقة التي سيتم تسميتها ديناميكيًا بواسطة قيمة خلية، وحدد عرض الكود من قائمة النقر بزر الماوس الأيمن.

الخطوة 2: في نافذة Microsoft Visual Basic for Applications التي ستظهر، انسخ الكود التالي للـ 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 for Application.

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

1. انقر Kutools Plus > Worksheet > إعادة تسمية الأوراق. شاهد لقطة الشاشة:
   
2. في مربع الحوار الذي يفتح إعادة تسمية أوراق العمل المتعددة الرجاء القيام بما يلي:
   1. في قائمة الأوراق، حدد الأوراق التي سيتم إعادة تسميتها.
   2. في قسم خيارات التسمية، حدد خيار استبدال اسم الورقة الأصلي.
   3. في قسم اسم الورقة الجديد، حدد خيار إعادة تسمية الأوراق باستخدام خلية محددة، وحدد الخلية التي سيتم إعادة تسمية الورقة المقابلة لها بناءً على محتواها.
   4. انقر على زر موافق.

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

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

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

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

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