كيفية إضافة أوراق جديدة في excel باستخدام vba

يمكنك استخدام الطرق التالية في VBA لإضافة أوراق جديدة إلى مصنف Excel:

الطريقة الأولى: إضافة ورقة جديدة

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

سيضيف هذا الماكرو ورقة جديدة إلى المصنف باسم تم إنشاؤه تلقائيًا ويصف رقم الورقة الذي يمثله في المصنف.

على سبيل المثال، إذا كان هناك ثلاث أوراق في المصنف وقمت بتشغيل هذا الماكرو، فسيتم إنشاء ورقة جديدة بالاسم Sheet4 .

ملاحظة : بشكل افتراضي، سيضيف VBA الورقة الجديدة مباشرة قبل الورقة النشطة حاليًا.

الطريقة الثانية: إضافة أوراق جديدة متعددة

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

سيضيف هذا الماكرو ثلاث أوراق جديدة إلى المصنف.

الطريقة الثالثة: إضافة ورقة جديدة بالاسم

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

سيقوم هذا الماكرو بإضافة ورقة جديدة إلى المصنف بالاسم MyNewSheet .

الطريقة الرابعة: إضافة ورقة جديدة باسم قبل ورقة محددة

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

سيضيف هذا الماكرو ورقة جديدة إلى المصنف بالاسم MyNewSheet قبل الورقة الموجودة التي تسمى Teams مباشرة.

الطريقة الخامسة: إضافة ورقة جديدة باسم بعد ورقة محددة

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

سيقوم هذا الماكرو بإضافة ورقة جديدة إلى المصنف بالاسم MyNewSheet مباشرةً بعد الورقة الموجودة التي تسمى Teams .

الطريقة السادسة: إضافة ورقة جديدة باسم في نهاية المصنف

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

سيقوم هذا الماكرو بإضافة ورقة جديدة إلى المصنف بالاسم MyNewSheet في نهاية المصنف.

الطريقة السابعة: إضافة ورقة جديدة بالاسم في بداية المصنف

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

سيقوم هذا الماكرو بإضافة ورقة جديدة إلى المصنف بالاسم MyNewSheet في بداية المصنف.

توضح الأمثلة التالية كيفية استخدام كل أسلوب عمليًا مع مصنف Excel التالي مع ثلاث أوراق موجودة:

مثال 1: إضافة ورقة جديدة

يمكننا إنشاء الماكرو التالي لإضافة ورقة جديدة إلى المصنف باسم تم إنشاؤه تلقائيًا:

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

عندما نقوم بتشغيل هذا الماكرو، تتم إضافة ورقة جديدة إلى المصنف بالاسم Sheet4 قبل ورقة Teams مباشرةً، والتي قمنا بتحديدها عند تشغيل الماكرو:

المثال 2: إضافة أوراق جديدة متعددة

يمكننا إنشاء الماكرو التالي لإضافة ثلاث أوراق جديدة إلى المصنف بأسماء يتم إنشاؤها تلقائيًا:

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

عندما نقوم بتشغيل هذا الماكرو، تتم إضافة ثلاث أوراق جديدة إلى المصنف مباشرة قبل ورقة الفرق ، والتي قمنا بتحديدها عند تشغيل الماكرو:

مثال 3: إضافة ورقة جديدة بالاسم

يمكننا إنشاء الماكرو التالي لإضافة ورقة جديدة إلى المصنف باسم محدد:

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

عندما نقوم بتشغيل هذا الماكرو، تتم إضافة ورقة جديدة تسمى MyNewSheet إلى المصنف قبل ورقة Teams مباشرة، والتي قمنا بتحديدها عند تشغيل الماكرو:

المثال 4: إضافة ورقة جديدة بالاسم قبل ورقة محددة

يمكننا إنشاء الماكرو التالي لإضافة ورقة جديدة إلى المصنف مباشرة قبل ورقة موجودة محددة:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

عندما نقوم بتشغيل هذا الماكرو، تتم إضافة ورقة جديدة تسمى MyNewSheet إلى المصنف مباشرة قبل ورقة Teams :

مثال 5: إضافة ورقة جديدة باسم بعد ورقة محددة

يمكننا إنشاء الماكرو التالي لإضافة ورقة جديدة إلى المصنف مباشرة بعد ورقة موجودة محددة:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

عندما نقوم بتشغيل هذا الماكرو، تتم إضافة ورقة جديدة تسمى MyNewSheet إلى المصنف مباشرة بعد ورقة Teams :

المثال 6: إضافة ورقة جديدة باسم في نهاية المصنف

يمكننا إنشاء الماكرو التالي لإضافة ورقة جديدة في نهاية المصنف:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

عندما نقوم بتشغيل هذا الماكرو، تتم إضافة ورقة جديدة تسمى MyNewSheet في نهاية المصنف:

المثال 7: إضافة ورقة جديدة بالاسم في بداية المصنف

يمكننا إنشاء الماكرو التالي لإضافة ورقة جديدة في بداية المصنف:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

عندما نقوم بتشغيل هذا الماكرو، تتم إضافة ورقة جديدة تسمى MyNewSheet في بداية المصنف:

ملاحظة : يمكنك العثور على الوثائق الكاملة لطريقة Sheets.Add هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

VBA: كيفية العثور على آخر سطر مستخدم
VBA: كيفية العثور على آخر عمود تم استخدامه
فبا: كيفية حساب عدد الأوراق في المصنف