لاضافة ورقة عمل جديده

أضافة ورقة عمل جديدة و أعادة تسميتها



اضافة ورقة عمل جديده بعد الورقه النشطه حاليا
Worksheets.Add



اضافة ورقة عمل جديدة بعد ورقة العمل sheet2
Worksheets.Add After:=Worksheets("Sheet2")



اضافة ورقة عمل جديدة قبل ورقة العمل sheet2
Worksheets.Add Before:=Worksheets("Sheet2")



اضافة ورقة العمل فى نهاية كتاب العمل
Dim SheetCount As Integer
SheetCount = Worksheets.Count
Worksheets.Add After:=Worksheets(SheetCount)



لتسمية الورقة المضافة ضع الكود التالى فى نهاية الاكواد السابقة
Activesheet.Name = "mySheet"