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

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

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

انسخ ورقة عمل وأعد تسميتها بناءً على قيمة الخلية برمز 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 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 (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date. For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017. What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17". Is this possible? By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools. Thanks in advance!
This comment was minimized by the moderator on the site
The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template. 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 "" Then ActiveSheet.Name = wh.Range("A1").Value End If wh.Activate End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations