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

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

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

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

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

مدهش! استخدام علامات التبويب الفعالة في Excel مثل Chrome وEdge وFirefox وSafari!
وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

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

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

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

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

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

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

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

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

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

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

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

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. انقر OK. ثم يمكنك مشاهدة إعادة تسمية جميع الأوراق.

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

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

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

2.  انقر المطور > Visual Basic، ثم انقر إدراج > وحدة في ال تطبيق Microsoft Visual Basic النوافذ.

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

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

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 for Excel

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