نام پیش فرض کاربرگ

[esa]

سلام و خدا قوت به اساتید و دوستان
چگونه می توان نام کاربرگهای ایجاد شده را به صورت پیش فرض تعیین کرد . مثلا به جای کاربرگ1 و .... فایل1 و.... انتخاب شود مانند وقتی اکسل به صورت فارسی یا لاتین انتخاب می شود و نام کاربرگ شیت1 الی آخر انتخاب می شود با تشکر

[esa]

سلام
من جستجو کردم موردی پیدا نکردم . اما علت نیاز : تعداد زیادی شیت می خواهم ایجاد کنم ولی به جای نام پیش فرض Sheet1 می خواهم نام دلخواه همراه شماره ایجاد شود. آیا این کار با ماکرو امکان پدیر است؟

[Amir Ghasemiyan]

سلام
من جستجو کردم موردی پیدا نکردم . اما علت نیاز : تعداد زیادی شیت می خواهم ایجاد کنم ولی به جای نام پیش فرض Sheet1 می خواهم نام دلخواه همراه شماره ایجاد شود. آیا این کار با ماکرو امکان پدیر است؟

سلام دوست عزیز
اینکه بخواین پیشفرض تغییر کنه امکان پذیر نیست اما با ماکرو میتونین اینکار رو انجام بدین
به تعدادی که نیاز دارین شیت بسازین و کد زیر رو اجرا کنید

Sub sheet_name_change()
sht_name = "ExcelIran"
sht_count = ActiveWorkbook.Sheets.Count
For i = 1 To sht_count
    Sheets(i).Name = sht_name & i
Next i
End Sub

[esa]

سلام
با تشکر و خدا قوت . مشکل تغیر نام حل شد . در صورت امکان کد ایجاد شیت به تعداد دلخواه را لطف کنید. اجرتان با امام رضا(ع)