كيف تنسخ ورقة عمل في Excel وتُعيد تسميتها تلقائيًا؟
في Excel، كيف يمكنك نسخ ورقة عمل وإعادة تسميتها تلقائيًا دون الحاجة إلى كتابة الاسم يدويًّا كالمعتاد؟ في هذه المقالة، سأوضح لك كيفية نسخ ورقة عمل مرة واحدة أو عدة مرات، مع تعيين أسماء محددة لها دفعة واحدة.
نسخ ورقة عمل عدة مرات وإعادة تسميتها بأسماء تبويبات متسلسلة باستخدام كود VBA
نسخ ورقة عمل عدة مرات وإعادة تسميتها بأسماء مخصصة باستخدام Kutools لـ Excel
نسخ ورقة عمل عدة مرات وإعادة تسميتها بأسماء تبويبات متسلسلة باستخدام كود VBA
إذا كنت بحاجة إلى نسخ ورقة عمل عدة مرات وتسميتها تسلسليًّا، مثل KTE-1، KTE-2، KTE-3، KTE-4…، فإن كود VBA التالي سيُسهّل عليك المهمة.
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقرInsert > Module، ثم الصق الكود التالي في نافذةModule.
كود VBA: نسخ ورقة عمل عدة مرات وإعادة تسميتها دفعة واحدة:
Sub Create()
'Updateby Extendoffice
Dim I As Long
Dim xNumber As Integer
Dim xName As String
Dim xActiveSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Set xActiveSheet = ActiveSheet
xNumber = InputBox("Enter number of times to copy the current sheet")
For I = 1 To xNumber
xName = ActiveSheet.Name
xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
ActiveSheet.Name = "KTE-" & I
Next
xActiveSheet.Activate
Application.ScreenUpdating = True
End Sub
3. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود، وستظهر لك نافذة منبثقة لتذكيرك بعدد نسخ ورقة العمل الحالية التي ترغب في إنشائها. انظر لقطة الشاشة:
4. أدخل عدد النسخ في مربع الحوار المنبثق، ثم انقر على زرOK. وقد تم بالفعل إنشاء 5 نسخ من ورقة العمل الحالية الخاصة بك وإعادة تسميتها بأسماء متسلسلة، كما هو موضح في لقطة الشاشة التالية:
ملاحظة: في الكود أعلاه، يمكنك تغيير نص اسم ورقة العمل “KTE-” ليتناسب مع احتياجاتك.
نسخ ورقة عمل عدة مرات وإعادة تسميتها بأسماء مخصصة باستخدام Kutools لـ Excel
قد تجد تطبيق أكواد VBA السابقة أمرًا صعبًا، لذا نعرض لك هنا أداة سهلة الاستخدام هيKutools لـ Excel، والتي تتيح لك —من خلال أداةإنشاء ورقة عمل متتابعة— تنفيذ هذه المهمة دون أي جهد.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. انقرKUTOOLS PLUS > Worksheet > إنشاء ورقة عمل متتابعة، انظر لقطة الشاشة:
2. في مربع حوارإنشاء ورقة عمل متتابعة:
(1.) حدد اسم ورقة العمل التي تريد نسخها من قائمةبناءً على ورقة العملالمنسدلة؛
(2.) بعد ذلك، حدّد عدد أوراق العمل التي تريد نسخها في مربع النصعدد الأوراق العمل التي سيتم إنشاؤها؛
(3.) ثم فعّل الخيارأرقام متتاليةضمن قسماسم ورقة العمل بناءً على؛
(4.) وأخيرًا، أنشئ تسلسل اسم ورقة العمل المطلوب في الجزء الأيمن، انظر لقطة الشاشة:
3.بعد الانتهاء من الإعدادات، يُرجى النقر على زرOk، وسيتم نسخ ورقة العمل المحددة عدة مرات وإعادة تسميتها وفقًا للتسلسل الذي أنشأته في ورقة عمل جديدة، انظر لقطة الشاشة:
انقر لتنزيل النسخة المجانية من Kutools لـ Excel الآن!
عرض توضيحي: نسخ ورقة عمل عدة مرات وإعادة تسميتها بأسماء مخصصة باستخدام Kutools لـ Excel
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل