Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
حساب جديد  \/ 
x

or

كيفية إعادة تسمية أوراق العمل بناءً على قيم الخلايا في 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 for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Don · 4 months ago
    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.  
  • To post as a guest, your comment is unpublished.
    Henry · 1 years ago
    In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
  • To post as a guest, your comment is unpublished.
    Biplab Das · 2 years ago
    'Updateby20150602
    This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      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.