كيف يمكن نسخ ورقة عمل وإعادة تسميتها تلقائيًا بناءً على قيمة خلية في Excel؟
بشكلٍ عام، يمكنك استخدام ميزةنقل أو نسخلنسخ ورقة عمل، ثم كتابة اسم جديد للنسخة يدويًا حسب حاجتك. ولكن، هل جرّبت من قبل إعادة تسمية الورقة بناءً على قيمة خلية بعد نسخها؟ في هذه المقالة، سأوضح لك كيفية إعادة تسمية ورقة العمل تلقائيًا بناءً على قيمة خلية عند إنشاء نسخة منها.
نسخ ورقة عمل وإعادة تسميتها بناءً على قيمة خلية باستخدام كود VBA
نسخ ورقة عمل عدة مرات وإعادة تسميتها بناءً على قيم خلايا باستخدام Kutools لـ Excel
نسخ ورقة عمل وإعادة تسميتها بناءً على قيمة خلية باستخدام كود VBA
يمكنك الكود التالي المكتوب بلغة VBA مساعدتك على نسخ ورقة عمل وإعادة تسميتها تلقائيًا بقيمة خلية معيّنة، يُرجى اتباع الخطوات التالية:
1. فعِّل ورقة العمل التي تريد نسخها، ثم اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر علىإدراج > وحدة نمطية، ثم الصق الكود التالي في نافذةالوحدة النمطية.
كود VBA: نسخ ورقة عمل وإعادة تسميتها بقيمة خلية:
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 لتشغيل هذا الكود، وسيتم نسخ ورقة العمل الحالية إلى المصنف الحالي بعد جميع أوراق العمل، ثم يُعاد تسميتها بقيمة الخلية التي حددتها، كما هو موضح في لقطة الشاشة:
ملاحظة: في الكود أعلاه، يشير المرجع الخلويA1 إلى قيمة الخلية التي تريد استخدامها لإعادة تسمية الورقة الجديدة المنسوخة، ويمكنك تعديله حسب احتياجاتك.
نسخ ورقة عمل عدة مرات وإعادة تسميتها بناءً على قيم خلايا باستخدام Kutools لـ Excel
الكود السابق يُعيد التسمية بناءً على قيمة خلية واحدة فقط، أما إذا كنت بحاجة إلى نسخ الورقة عدة مرات وإعادة تسميتها وفقًا لقائمة من قيم الخلايا، فإن أداةKutools لـ Excelمع ميزةإنشاء ورقة عمل تسلسليةستساعدك على إنجاز هذه المهمة في أسرع وقت ممكن.
بعد تثبيتKutools لـ Excel، يُرجى اتباع ما يلي:
1. انقر علىKUTOOLS PLUS > ورقة عمل > إنشاء ورقة عمل متتابعة، كما هو موضح في لقطة الشاشة:
2. في مربع حوارإنشاء ورقة عمل تسلسلية، قم بالخطوات التالية:
(1.) حدد اسم ورقة العمل التي تريد نسخها من قائمةبناءً على ورقة العملالمنسدلة؛
(2.) حدد خيار البيانات داخل التحديد ضمن قسماسم ورقة العمل بناءً على، ثم انقر على زر
لتحديد قيم الخلايا التي تريد إعادة تسمية أوراق العمل المنسوخة بناءً عليها.
3. بعد ذلك، انقر على زرموافق، وستُنسخ ورقة العمل المحددة عدة مرات في ورقة عمل جديدة، وتُعاد تسميتها بقيم الخلايا التي اخترتها، كما هو موضح في لقطة الشاشة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل