Note: The other languages of the website are Google-translated. Back to English

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

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

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

انسخ ورقة عمل عدة مرات وأعد تسميتها بناءً على قيم الخلية باستخدام Kutools for Excel


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

يمكن أن يساعدك رمز VBA التالي على نسخ ورقة عمل وإعادة تسميتها بقيمة خلية محددة تلقائيًا ، يرجى القيام بذلك على النحو التالي:

1. قم بتنشيط ورقة العمل التي تريد نسخها ، ثم اضغط باستمرار على ملف ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

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

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

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

نسخة doc raname بالقيمة 1

ملاحظة: في الكود أعلاه ، مرجع الخلية A1 هي قيمة الخلية التي تريد إعادة تسميتها للورقة المنسوخة الجديدة ، يمكنك تغييرها حسب حاجتك.


انسخ ورقة عمل عدة مرات وأعد تسميتها بناءً على قيم الخلية باستخدام Kutools for Excel

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

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. 

بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:

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

نسخة doc raname بالقيمة 3

2. في قم بإنشاء ورقة عمل التسلسل في مربع الحوار ، قم بالعمليات التالية:

(1.) حدد اسم ورقة العمل التي تريد نسخها من ملف ورقة العمل الأساسية قائمة منسدلة؛

(2.) حدد خيار البيانات في النطاق ضمن تستند أسماء الأوراق على ، ثم انقر نسخة doc raname بالقيمة 5 لتحديد قيم الخلايا التي تريد إعادة تسمية أوراق العمل المنسوخة بناءً عليها.

قم بتنزيل Kutools for Excel الآن!

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

نسخة doc raname بالقيمة 4

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


عرض توضيحي: انسخ ورقة عمل عدة مرات وأعد تسميتها بناءً على قيم الخلية باستخدام Kutools for Excel

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (2)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الكود أدناه يعمل بشكل رائع. سؤالي هو ، هل من الممكن فتح ورقة العمل الجديدة تلقائيًا (بناءً على A1) وحذف المحتوى من الورقة السابقة حيث يتم استخدامه كقالب. Sub Copyrenameworksheet () 'Updateby Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets (ActiveSheet.Name) ActiveSheet.Copy After: = Worksheets (Sheets.Count) If wh.Range ("A1"). Value "" ثم ActiveSheet.Name = wh.Range ("A1 ") .Value End If wh.Activate End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الكود الخاص بك هو ما كنت أبحث عنه ، لكن محتويات الخلية التي أرغب في استخدامها لإعادة تسمية الورقة هي تاريخ. على سبيل المثال ، في الورقة الأولى ، تعرض الخلية A2 تاريخًا على أنه يوم الاثنين 3 أبريل 2017. ما أود أن يحدث هو عندما يتم إنشاء الورقة التالية بواسطة الماكرو ، فسيكون أخذ التاريخ من A2 ، وإضافة 7 للعرض ، من أجل على سبيل المثال ، "Monday 10 July، 2017" ولكن أعد تسمية الورقة الجديدة بالتنسيق dd-mm-yy ، لذلك "10-07-17". هل هذا ممكن؟ بالمناسبة ، لدي Kutools for Excel ، لكن ورقة البيانات هذه ستكون بمثابة سجل ضغط دم لوالدي الذي ليس لديه Kutools. شكرا لك مقدما!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL