Vba kullanarak sayfa adı nasıl alınır (örnekle)

Bir Excel çalışma kitabındaki belirli bir sayfanın adını almak için VBA’da aşağıdaki yöntemleri kullanabilirsiniz:

Yöntem 1: Etkin sayfanın adını alın

 Function GetSheetName()

GetSheetName = ActiveSheet.Name

End Function

Bu işlev etkin sayfanın adını döndürecektir.

Yöntem 2: Sayfa adını numaraya göre alın

 Function GetSheetName(N As Integer)

GetSheetName = Sheets(N).Name

End Function

Bu işlev belirttiğiniz ^n. sayfanın adını döndürecektir.

Aşağıdaki örnekler, dört sayfalı aşağıdaki Excel çalışma kitabıyla her işlevin pratikte nasıl kullanılacağını gösterir:

Örnek 1: Etkin sayfanın adını almak için VBA’yı kullanın

Bir Excel çalışma kitabındaki şu anda etkin olan sayfanın adını almak için VBA’da aşağıdaki işlevi oluşturabiliriz:

 Function GetSheetName()

GetSheetName = ActiveSheet.Name

End Function

İstatistik isimli sayfanın şu anda aktif olduğunu varsayalım.

Etkin sayfanın adını döndürmek için bu sayfanın E1 hücresine aşağıdaki formülü yazabiliriz:

 =GetSheetName()

Aşağıdaki ekran görüntüsü bu formülün pratikte nasıl kullanılacağını göstermektedir:

İşlev, şu anda etkin olan sayfanın adı olduğundan istatistik değerini döndürür.

Örnek 2: Sayfa adını numaraya göre almak için VBA’yı kullanın

Bir Excel çalışma kitabının ^n’inci sayfasının adını almak için VBA’da aşağıdaki işlevi oluşturabiliriz:

 Function GetSheetName(N As Integer)

GetSheetName = Sheets(N).Name

End Function

Bu işlevi oluşturduktan sonra, çalışma kitabındaki ikinci sayfanın adını döndürmek için şu anda etkin olan sayfanın E1 hücresine aşağıdaki formülü yazabiliriz:

 =GetSheetName(2)

Aşağıdaki ekran görüntüsü bu formülün pratikte nasıl kullanılacağını göstermektedir:

İşlev, çalışma kitabındaki ikinci sayfanın adı olduğundan takım değerini döndürür.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Bir çalışma kitabındaki sayfaların sayısı nasıl sayılır?
VBA: Başka bir çalışma kitabından veri nasıl çıkarılır
VBA: birden fazla satır nasıl eklenir