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

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

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

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

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

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


باستخدام VBA أدناه ، يمكنك إعادة تسمية ورقة العمل النسبية بناءً على خلية معينة.

1. حدد الخلية التي تريد إعادة تسمية ورقة العمل بناءً عليها ، في هذه الحالة حدد الخلية A1. انظر لقطة الشاشة:

إعادة تسمية الوثيقة 1

2. صحافة ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. انقر إدراج > وحدة، ثم الصق رمز VBA أدناه في ملف وحدة نافذة.

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

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4. صحافة F5 مفتاح لتشغيل التعليمات البرمجية لـ VBA. ثم تمت إعادة تسمية جميع أوراق العمل حسب كل قيم خلية A1 النسبية.

إعادة تسمية الوثيقة 2


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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. قم بتمكين المصنف الذي تريد إعادة تسمية أسماء أوراق العمل الخاصة به.

2. انقر كوتولس بلس > ورقة العمل > إعادة تسمية أوراق العمل. انظر لقطة الشاشة:

إعادة تسمية الوثيقة 11

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

إعادة تسمية الوثيقة 9

4. انقر Ok. الآن يتم إعادة تسمية الأوراق بمحتويات خلية محددة.

إعادة تسمية الوثيقة 2

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

إعادة تسمية الوثيقة 3


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

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. انقر كوتولس بلس > ورقة العمل > إعادة تسمية أوراق العمل. انظر لقطة الشاشة:

إعادة تسمية الوثيقة 11

2. في ال إعادة تسمية أوراق عمل متعددة الحوار ، تحتاج إلى تحديد الإعدادات على النحو التالي:

(1) حدد أوراق العمل التي تريد إعادة تسميتها منها قائمة أوراق العمل;

(2) تحقق من نطاق محدد الخيار ، وحدد قيم الخلية التي تريد إعادة تسميتها بناءً على ؛

(3) حدد ملف إعادة تسمية الخيارات، يمكنك التحقق أدخل قبل اسم الورقة الأصلي, تضاف بعد اسم الورقة الأصليالطرق أو استبدل اسم الورقة الأصلي، ويمكنك معاينة النتيجة المقابلة في مربع الحوار.

إعادة تسمية الوثيقة 10

3. انقر Ok، وبعد ذلك يمكنك مشاهدة جميع أوراق العمل التي حددتها تمت إعادة تسميتها بناءً على قيم الخلايا المحددة.

استبدل اسم الورقة الأصلي

إعادة تسمية الوثيقة 6

أدخل قبل اسم الورقة الأصلي

إعادة تسمية الوثيقة 7

تضاف بعد اسم الورقة الأصلي

إعادة تسمية الوثيقة 8

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

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

🤖 مساعد 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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Every time I look for a VBA routine and find an article like this from you guys, I try the sample code and it NEVER works. It always goes into Debug on the first try. I am starting to believe you deliberately publish poorly written code to drive people to try and purchase your Add-in.
This comment was minimized by the moderator on the site
Hi, Don, the VBA has updated twice, it may be works for most of conditions, but not for the all. 
This comment was minimized by the moderator on the site
In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
This comment was minimized by the moderator on the site
Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
This comment was minimized by the moderator on the site
'Updateby20150602
This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
This comment was minimized by the moderator on the site
Hi, Biplab Das, maybe the original code cannot work at new versions (2013 or later), I have upadated a new code in the tutorial, you could try again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations