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

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

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

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

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

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

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

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

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

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

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

سأقدّم لك هنا كودَي VBA لإعادة تسمية أوراق العمل دفعةً واحدة.

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

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

1.انقر علىالمطوّر > Visual Basic، ثم انقر علىإدراج > وحدة نمطية (Module)في نافذةMicrosoft Visual Basic للتطبيقات Windows.

2. يرجى نسخ ولصق الكود التالي فيوحدة نمطية (Module).

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 من كل ورقة عمل، وستُعاد تسمية الورقة تلقائيًا لتتطابق مع القيمة الموجودة في تلك الخلية.

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

2. انقر علىالمطوّر > Visual Basic، ثم انقر علىإدراج > وحدة نمطية (Module)في نافذةMicrosoft Visual Basic للتطبيقاتعلى Windows.

3. يرجى نسخ ولصق الكود التالي في الوحدة النمطية (Module).

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

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