MVP logo
    Your browser: , Version
Friday, 29.03.2024, 7:58 PM
Hello! Guest | Group Guest | RSS
Home | Fayl Kataloqu | Profile  | Login
Saytın menyusu

Kateqoriyalar
VBA [21]
Formullar [31]
Massiv Formullar [12]
Ümumi [4]

Sorğu
"Excel"in hansı versiyasını istifadə edirsiniz?
Səsvermə sayı: 572

Statistika

Total online: 1
Guests: 1
Users: 0

Müsabiqələr


VBA-ilə yeni səfihələr əlavə edilərək adlarının dəyişdirilməsi
17.01.2012, 3:33 PM
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
Category: VBA | Added by: Useful | Tags: rename sheet, insert sheet, add sheet
Views: 963 | Downloads: 0 | Rating: 0.0/0
Total comments: 0
Register to add comments
[ Register | Login ]
Login

Search

Useful Sites
  • www.planetaexcel.ru
  • www.programmersforum.ru
  • www.mrexcel.com
  • www.excelworld.ru
  • www.cyberforum.ru
  • www.excelvba.ru
  • www.muhasib.az

  • Visitors
    free counters


    MyExcelWorld © 2024
    Site managed by uCoz