ایجاد شیت جدید با کد نویسی

[shamsololama]

با درود فراوان

در مورد کدی که شیت رو اینجاد کنه و نام شیت ها رو بر اساس ستونی در شیت یک برداره و همون نام تو سل آ دو هم بنویسه نمونه فایل قرار دادم


فایل نمونه:
[attachment=908]

[ZExcel]

با سلام
براي ايجاد يك جا 250 شيت چه تنظيم و يا دستوري داريد؟

[iranweld]

با سلام

از کد ذیل استفاده کنید

Sub test()

For i = 1 To 300

Sheets.Add After:=Sheets(Sheets.Count)


Next

End Sub 

[Amir Ghasemiyan]

با سلام
براي ايجاد يك جا 250 شيت چه تنظيم و يا دستوري داريد؟

سلام دوست عزيز
علاوه بر روشي كه دوستمون فرمودن شما از تنظيمات اكسل هم ميتونين انيكار رو انجام بديد

وارد excel options بشيد. در تب General در قسمت when creating new workbook گزينه اي هست كه نوشته Include this many sheets. مقدار مقابل اون رو به مقدار دلخواه تغيير بدين و تغييرات رو ذخيره كنيد

از اين به بعد هر فايل اكسلي كه باز كنيد به مون تعداد شيت داخلش ايجاد خواهد شد.


با همه اين توضيحات بطور كلي ايجاد اين تعداد شيت كار جالبي نيست و به احتمال خيلي زياد ساختار ديتابيسي نخواهيد داشت و در آينده به مشكل برخواهيد خورد. حداقل مشكلي كه بوجود مياد اينه كه حجم فايل به مرور زياد ميشه و ديگه سيستم پاسخگوي فايل شما نيست و براي باز كردنش به مشكل ميخوريد