كيفية إعادة تسمية أوراق عمل متعددة في Excel؟

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

استخدام أمر إعادة التسمية لإعادة تسمية أوراق العمل

استخدام أداة مريحة لإعادة تسمية أوراق عمل متعددة بسهولة

استخدام كود VBA لإعادة تسمية أوراق عمل متعددة

استخدام أمر إعادة التسمية لإعادة تسمية أوراق العمل

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

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

مع هذا الأمر لإعادة التسمية، يمكنك إعادة تسمية ورقة عمل واحدة فقط في كل مرة، ولغرض إعادة تسمية أوراق عمل متعددة، يرجى تكرار العمليات المذكورة أعلاه.

استخدام أداة مريحة لإعادة تسمية أوراق عمل متعددة بسهولة

استخدام كود VBA لإعادة تسمية أوراق عمل متعددة

هنا سأقدم لك كودين VBA لإعادة تسمية أوراق عمل متعددة.

الكود 1. كود VBA لإعادة تسمية أوراق عمل متعددة بالاسم الذي تريده دفعة واحدة

باستخدام الكود VBA التالي، يمكنك بسرعة إعادة تسمية جميع أوراق العمل في المصنف الحالي بنفس البادئة في أسماء أوراق العمل، مثل: KTE-order1، KTE-order 2، و KTE-order 3…

1. انقر على Developer > Visual Basic، وانقر Insert > Module في نوافذ Microsoft Visual Basic Application Windows.

2. الرجاء نسخ ولصق الكود التالي في الوحدة.

VBA: إعادة تسمية جميع الأوراق بإدخال اسم محدد

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3.  انقر  زر لتنفيذ الكود، وأدخل الاسم الذي تريده في مربع الحوار المنبثق. انظر إلى لقطات الشاشة:

4. انقر موافق. ثم يمكنك رؤية أن جميع الأوراق قد تم إعادة تسميتها.

2. كود VBA لإعادة تسمية أوراق عمل متعددة باستخدام قيمة خلية محددة في كل ورقة من المصنف النشط

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

1.  الرجاء تحديد خلية لاحتواء اسم الورقة في كل ورقة واكتب اسم الورقة فيها. في هذا المثال، سأكتب اسم الورقة في الخلية A1 في كل ورقة.

2.  انقر Developer > Visual Basic، وانقر Insert > Module في نوافذ Microsoft Visual Basic Application Windows.

3.  الرجاء نسخ ولصق الكود التالي في الوحدة.

VBA: إعادة تسمية أوراق العمل بمحتوى خلية محدد

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

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

عرض توضيحي: إعادة تسمية أوراق عمل متعددة باستخدام Kutools لـ Excel

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