كيفية إنشاء أوراق عمل تسلسل من مجموعة من الخلايا في إكسيل؟
إذا كان لديك نطاق من البيانات في ورقة العمل الخاصة بك ، والآن ، تريد إنشاء سلسلة من أوراق العمل بناءً على بيانات الخلية ، انظر لقطة الشاشة التالية. بالطبع ، يمكنك تحرير اسم ورقة العمل واحدًا تلو الآخر يدويًا ، ولكن إذا كانت هناك أسماء متعددة لأوراق العمل تحتاج إلى التعديل ، فستكون هذه الطريقة مزعجة وتستغرق وقتًا طويلاً. هنا ، سأتحدث عن بعض الحيل السريعة لمساعدتك.
إنشاء أوراق عمل تسلسل من قائمة الخلايا برمز VBA
قم بإنشاء أوراق عمل تسلسلية من قائمة الخلايا باستخدام Kutools for Excel
إنشاء أوراق عمل تسلسل من قائمة الخلايا برمز VBA
يمكن أن يساعدك رمز VBA التالي في إضافة بعض أوراق العمل التي تم تسميتها بناءً على محتويات الخلية بعد أوراق العمل الموجودة. يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح ، ثم يفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: أضف أوراق عمل متسلسلة بناءً على قائمة الخلايا
Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
Ws.Name = arr(i, j)
Next
Next
Application.ScreenUpdating = True
End Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ثم يظهر مربع موجه لك لتحديد النطاق الذي تريد استخدامه. انظر لقطة الشاشة:
4. ثم انقر فوق OK، تمت إضافة أوراق العمل المسماة بقيم الخلية بعد ورقة العمل الموجودة. انظر لقطة الشاشة:
الملاحظات:
1. سيتم إدراج أوراق العمل الجديدة بعد ورقة العمل الحالية.
2. إذا تضمن النطاق المحدد خلايا فارغة ، فسيتم تسمية أوراق العمل بناءً على الإعداد الافتراضي. انظر لقطات الشاشة:
قم بإنشاء أوراق عمل تسلسلية من قائمة الخلايا باستخدام Kutools for Excel
هنا ، أقدم أداة يدوية-كوتولس ل إكسيل، بما لديها إنشاء أوراق عمل التسلسل، يمكنك إنشاء أوراق عمل بسرعة باستخدام اسم الشهر واسم اليوم والقائمة المخصصة وما إلى ذلك.
كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. تجربة مجانية بدون قيود خلال 30 يومًا. احصل عليه الآن.
بعد تثبيت Kutools for Excel ، يرجى اتباع الخطوات التالية:
1. حدد النطاق الذي تريد إنشاء أوراق العمل بناءً عليه.
2. انقر مشروع > أدوات ورقة العمل > إنشاء أوراق عمل التسلسل، انظر لقطة الشاشة:
3. في إنشاء أوراق عمل التسلسل في مربع الحوار ، اختر نوع ورقة العمل التي تريدها لإنشاء أوراق عمل التسلسل الجديد ، ثم تحقق البيانات في نطاق الخيار ، انظر لقطة الشاشة:
4. ثم اضغط OK لإغلاق مربع الحوار ، وتم إنشاء مصنف جديد يحتوي على أوراق العمل التي تمت تسميتها بواسطة بيانات النطاق المحدد. انظر لقطة الشاشة:
الملاحظات:
1. إذا اخترت الورقة 1 أو الورقة 2 ، فسيتم إنشاء أوراق العمل الجديدة بنفس تنسيق الورقة 1 أو الورقة 2.
2. يتم إنشاء أوراق العمل الجديدة في مصنف جديد.
3. إذا تضمن النطاق المحدد خلايا فارغة ، فسيتم تسمية أوراق العمل بناءً على الإعداد الافتراضي. انظر لقطات الشاشة:
انقر لمعرفة المزيد حول ميزة إنشاء أوراق عمل التسلسل.
مقالة ذات صلة:
كيفية إضافة أوراق عمل جديدة بأسماء مخصصة في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!