ایجاد اتوماتیک شیت در اکسل

گاهی پیش می آید نیاز به این دارید در اکسل تعداد زیادی شیت ایجاد کنید و آنها را با اسامی مورد نظر تغییر نام دهید. این کار را می توان با چند خط ماکرو در محیط اکسل انجام داد. فرض کنید تصمیم دارید تعداد 20 شیت جدید در محیط اکسل ایجاد کنید بگونه ای که اسامی آنها به اسامی که در داخل شیت اول Sheet1 نوشته اید تغییر نام داده شوند. فرض کنید اسامی مورد نظر شیتها در شیت اول و در سلولهای A1 الی A20 نوشته شده اند. با اجرای ماکرو زیر در اکسل این کار براحتی انجام خواهد شد

اگر تعداد بیشتر یا کمتر شیت جدید خواستید ایجاد کنید میتوانید با تغییر عدد مورد نظر در حلقه این کار را انجام دهید.

Sub addsheet()

For i = 2 To 20

Dim newsheet

Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)

Sheets("sheet1").Select

newsheet.Name = Cells(i, 1)

Next i

End Sub