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

**esa** · 2017/03/12, 20:18

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

**Amir Ghasemiyan** · 2017/03/12, 20:43

نوشته اصلی توسط esa

سلام
من جستجو کردم موردی پیدا نکردم . اما علت نیاز : تعداد زیادی شیت می خواهم ایجاد کنم ولی به جای نام پیش فرض 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