MVP logo
    Sizin Brauzer: , Versiya
Bazar, 22.10.2017, 3:06 PM
Salam Qonaq | RSS
Ana səhifə | Fayl Kataloqu | Qeydiyyat | Giriş
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ı: 519

Statistika

Cəmi online: 1
Qonaqlar: 1
Userlər: 0

Müsabiqələr

Ana səhifə » Fayllar » Excel Tricks » VBA

VBA-ilə yeni səfihələr əlavə edilərək adlarının dəyişdirilməsi
17.01.2012, 4: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
Kateqoriya: VBA | Yükləyən: Useful | Tags: rename sheet, insert sheet, add sheet
Baxış sayı: 466 | Yükləmə sayı: 0 | Ratinqi: 0.0/0
Cəmi şərhlər: 0
Ad *:
E-poçt:
Kod *:
Daxil ol

Axtar

Dost Saytlar
  • www.planetaexcel.ru
  • www.programmersforum.ru
  • www.mrexcel.com
  • www.excelworld.ru
  • www.cyberforum.ru
  • www.excelvba.ru
  • www.muhasib.az

  • Sayğac
    free counters

    Saytın məlumatlarından istifadə edərkən mənbəyə istinad zəruridir!
    MyExcelWorld © 2010 - 2017
    Site managed by uCoz
    ILK-10 Azeri Website Directory