ali.b
2014/09/18, 07:24
سلام
گاهی تو برنامه نویسی تحت اکسل برامون پیش میاد که مدام باید نام شیت ها تغییر کنن و از طرفی نام شیت ها هم در یک شیت موجوده و ممکنه هر بار تغییر کنه
این کد نام ها رو از ی رنج در یک شیت میگیره و خودکار تشکیل شیت میده.
حالا هرکسی خواست بعد از پایان فرایند اجرای کد ، شیت ها رو پاک کنه میتونه تو تالار از نحوه پاک کردن شیت ها تحت Vb استفاده کنه و دوباره از نو بر حسب نامهای موجود در محدوده شیت بسازه
Sub AddMoreSheets3() Dim ListOfNames As Variant, ShName As Variant
ListOfNames = Sheets("sheet1").Range("A1:A5").Value 'Modify accordingly.
For Each ShName In ListOfNames
Set NewSht = ThisWorkbook.Sheets.Add(Before:=Sheets(Sheets.Coun t))
NewSht.Name = ShName
Next ShName
End Sub
در قسمتی که رنگش سبزه نام اون شیت حاوی نام های مورد نظر هست. و قسمت قرمز هم رنج محدوده ای که باید نام شیت رو از اون بگیره
درضمن نام شیت های ایجاد شده قبل از شیت اصلی ایجاد میشن که اگه خواستین تغییر بدین به جای قسمت ابی، گزینه after بیارین
گاهی تو برنامه نویسی تحت اکسل برامون پیش میاد که مدام باید نام شیت ها تغییر کنن و از طرفی نام شیت ها هم در یک شیت موجوده و ممکنه هر بار تغییر کنه
این کد نام ها رو از ی رنج در یک شیت میگیره و خودکار تشکیل شیت میده.
حالا هرکسی خواست بعد از پایان فرایند اجرای کد ، شیت ها رو پاک کنه میتونه تو تالار از نحوه پاک کردن شیت ها تحت Vb استفاده کنه و دوباره از نو بر حسب نامهای موجود در محدوده شیت بسازه
Sub AddMoreSheets3() Dim ListOfNames As Variant, ShName As Variant
ListOfNames = Sheets("sheet1").Range("A1:A5").Value 'Modify accordingly.
For Each ShName In ListOfNames
Set NewSht = ThisWorkbook.Sheets.Add(Before:=Sheets(Sheets.Coun t))
NewSht.Name = ShName
Next ShName
End Sub
در قسمتی که رنگش سبزه نام اون شیت حاوی نام های مورد نظر هست. و قسمت قرمز هم رنج محدوده ای که باید نام شیت رو از اون بگیره
درضمن نام شیت های ایجاد شده قبل از شیت اصلی ایجاد میشن که اگه خواستین تغییر بدین به جای قسمت ابی، گزینه after بیارین