X
تبلیغات
رایتل

گاهی پیش می آید نیاز به این دارید در اکسل تعداد زیادی شیت ایجاد کنید و آنها را با اسامی مورد نظر تغییر نام دهید. این کار را می توان با چند خط ماکرو در محیط اکسل انجام داد. فرض کنید تصمیم دارید تعداد 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

نظرات (0)
برای نمایش آواتار خود در این وبلاگ در سایت Gravatar.com ثبت نام کنید. (راهنما)
نام :
پست الکترونیک :
وب/وبلاگ :
ایمیل شما بعد از ثبت نمایش داده نخواهد شد



در این وبلاگ
در کل اینترنت