بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع ومدونة عالم الاوفيس
درس جديد وكود جديد من مكتبة اكواد اكسل 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 فانها ستقوم باضافة الورقة الجديدة بعد جميع اوراق العمل الموجودة لديك فى المصنف
وبهذ الكود الاخير نكون قد انتهينا من شرح كل مايتعلق باضافة وتسمية جميع واراق العمل بطريقة سهلة ومبسطة جدا
اللهم اجعل عملنا خالصا لوجهك الكريم واجعلة علم ننتفع بة يارب العالمين
اذا اعجبك المقال لاتنسى مشاركتة على وسائل التواصل الاجمتاعية حتى يعم العلم جميع انحاء المعمورة