Sub Yeni_Sheet()
‘Bu yeni elave edilecek sehifelere vereceyimiz adlarin araligidir.
a = Array("Sehife1", "Sehife2", "Sehife3","Sehife4","Sehife5","Sehife6")
‘Burada "a” araliginda birinci yerde olan "Sehife1"-in movqeyi "For b=0” yazilishi ile nezere alinir.
‘UBound(a)-ise bize "a” araliginda cemi adlarin sayini gosterir (burada UBound(a)=6-dir).
For b = 0 To UBound(a)
‘Bu komandanin komekliyi ile Yeni sehife elave edirik
Sheets.Add
‘Elave edilmish yeni sehifenin adini deyishdiririk. Elave edilen yeni sehife aktiv sehife olur (burda ActiveSheet-yeni elave edilen sehifeni gosterir). Burada "a(b)”-ise, "a” araliginda "b”-ninci ad demekdir.
ActiveSheet.Name = a(b)
Next b ‘Bu ise bir tam dovrun tamamlanmasi ve novbeti (sonraki sehifeni elave etmek, adini deyishmek ‘bashlayir) merhelenin bashlamasi demekdir.
End sub |