-->

اكسيل | 7 طرق لاضافة ورقة عمل جديدة وتسميتها بطريقة سهلة جدا Add New Sheets Excel VBA

 بسم الله الرحمن الرحيم 

اهلا بكم متابعى موقع ومدونة عالم الاوفيس

درس جديد وكود جديد من مكتبة اكواد اكسل VBA

اهم 7 طرق لاضافة وتسميتة اوراق عمل جديدة New Sheets 



قد يحتاج مستخدم برنامج الاكسيل الى اضافة اوراق عمل جديدة اثناء العمل على برنامج الاكسيل ولكن ليس بالطرق التقليدية لاضافة اوراق عمل جديدة فى ملف الاكسيل .

نريد اليوم ومن خلال هذا الدرس من خلال كبسة زر واحدة ان يقوم بالاضافة .

الطريقة الصحيحة لاضافة ورقة عمل جديدة من خلال اكواد VBA 

هى كالتالى

Sheets.Add ([Before], [After], [Count], [Type])

  • Before: وهذا الباراميتر لاضافة ورقة عمل قبل ورقة العمل النشطة
  • After : وهذا الباراميتر لاضافة ورقة عمل بعد ورقة العمل النشطة
  • count: وهذا الباراميتر يعبر عن عدد اوراق العمل المراد اضافتها
  • Type : نوع الورقة التى تريد اضافتها

كيف نكتب كود اضافة ورقة عمل جديدة

فى البداية نقوم بفتح محرر الاكواد من خلال تبويب المطور او Devloper  او من خلال اختصار لوحة المفاتيح Alt + F11

تفتح معنا نافذة كتابة الاكواد Visual basic Editor

نقوم بارداج موديول جديد Insert Modual 

ثم نقوم بكتابة الكود الخاص بنا 

1- اضافة ورقة عمل واحدة   Add a Single Sheet

لاضافة ورقة عمل واحدة يمكنك استخدام الكود ادناة حيث لم يتم تحديد اى وسيطة 

Sub SheetAddExample1()

Sheets.Add

End sub

2- اضافة اوراق متعددة  Add Multiple Sheets

لاضافة اوراق متعددة  ماعليك سوى تحديدة الوسيطة count  لاضافة اى عدد من الشيتات 

Sub AddSheets3()

Sheets.Add Count:=5

End Sub


حضرتك فى هذا الكود حددت عدد 5 اى انة عند تشغيل الكود سوف يتم اضافة 5 اوراق عمل جديدة

3- اضافة ورقة عمل جديدة باسم جديد  Add a Sheet with a Name

اذا كنت تريد اضافة ورقة عمل جديدة واعادة تسميتها باسم جديد فاليك هذا الكود الذى يقوم بهذة العملية  بكل سهولة 

Sub AddNewSheetswithNameExample ()

Sheets.Add.Name = "myNewSHeets"

End Sub


4- اضافة ورقة عمل جديدة وتسميتها من الخلية  Add a Sheet with a Name from a Cell

فى هذا الكود يمكنك استخدام الاسم الجديد لورقة العمل من خلال ادراجة فى خلية معينة ولتكن مثلا A1

Sub AddNewSheetswithNameExample()

Sheets.Add.Name = Range("A1")

End Sub


فى الكود اعلاة يتم استخدام الخلية A1 كمرجع لتسمية ورقة العمل

5- اضافة ورقة بعد او قبل ورقة عمل محددة   Add a Sheet After/Before a Specific Sheet

نظرا لان هذة الوسيطات موجودة بالفعل يمكنك اختيار ما اذا كنت تريد موقع ورقة العمل الجديدة سواء كانت قبل او بعد ورقة العمل 

Sub AddSheetsExample5()

Sheets.Add Before:=Worksheets("mySheet")

Sheets.Add After:=Worksheets("mySheet")

End Sub


فى الكود اعلاة لديك سطران من الاكواد البرمجية السطر الاول هو اضافة ورقة عمل قبل ورقة العمل المسماة mysheets

وفى السطر الثانى يقوم باضافة ورقة عمل بعد ورقة العمل mysheets

عند تنفيذ الكود يقوم بادراج ورقتين عمل واحدة قبل mysheets والاخرى بعدها 

6- اضافة ورقة عمل فى بداية الملف Add a New Sheet at Beginning

باستخدام الوسيطة before لادراج ورقة عمل جديدة فى بداية الاوراق الموجودة فى المصنف لذلك بشكل اساسى ما سنفعلة فى هذا الكود هو اضافة رقم ورقة العمل بدلا من اسم ورقم العمل

Sub AddSheetsExample()

Sheets.Add Before:=Sheets(1)

End Sub


فى الكود السابق قمنا باخبار الاكسل اننا نريد ادراج الورقة الجديدة قبل الورقة رقم (1) وبالتالى فانة دائما سيقوم بادراج ورق العمل الجديدة فى بداية المصنف دائما

7- اضافة ورقة جديدة فى نهاية المصنف   (Add a New Sheet at End (After the Last Sheet

لاضافة ورقة عمل جديدة فى نهاية المصنف اى بعد اخر ورقة موجودة فى المصنف نحتاج الى كتابة الكود بطريقة مختلفة حيث اننا سوف نحتاج الى معرفة عدد الاوراق الموجودة فى المصنف ومن ثم يقوم باضافة الورقة الجديدة بعدهم فى النهاية

AddSheetsExample()

Sheets.Add After:=Sheets(Sheets.Count)

End Sub

فى الكود السابق تقوم Sheets.Count بحساب عدد اوراق الموجودة فى المصنف وبما انك حددت الوسيطة After فانها ستقوم باضافة الورقة الجديدة بعد جميع اوراق العمل الموجودة لديك فى المصنف


وبهذ الكود الاخير نكون قد انتهينا من شرح كل مايتعلق باضافة وتسمية جميع واراق العمل بطريقة سهلة ومبسطة جدا

اللهم اجعل عملنا خالصا لوجهك الكريم واجعلة علم ننتفع بة يارب العالمين 

اذا اعجبك المقال لاتنسى مشاركتة على وسائل التواصل الاجمتاعية حتى يعم العلم جميع انحاء المعمورة 

لاتنسونا من صالح دعائكم

Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق