Microsoft Excel'de VBA Kullanarak Sayfa Adları Nasıl Alınır
Görünen, yani gizli olmayan sayfanın tüm adlarını alabileceğiniz bir yol bulmak istemeniz durumunda.
Bu yazıda, VBA kodunu kullanarak yalnızca görünen sayfaların adlarını nasıl alacağımızı öğreneceğiz.
Soru): Bir dosyada birden fazla sayfam var ve başkalarının görmesini istemediğim sayfaları gizledim; Bana görünen tüm sayfaların adını verecek bir kod istiyorum.
5 sayfamız olduğunu ve kasıtlı olarak belirli bir sayfayı gizlediğimizi düşünelim.
Görünen sayfaların adını almak için aşağıdaki adımları izlememiz gerekiyor:
- Geliştirici sekmesine tıklayın
- Kod grubundan Visual Basic'i seçin
Aşağıdaki kodu standart modüle kopyalayın
Alt Görünür Sayfalar()
Dim i Tamsayı olarak, j Tamsayı olarak: j = 1
Hücreler(1, 1).MevcutBölge.Hücreler.Temizle
i = 1 için Sheets.Count için
Eğer Sheets(i).Visible = -1 O zaman
Cells(j, 1) = Sheets(i).Name
j = j + 1
Bitir
Sonraki
Alt Bitiş
- Kodu ilk çalıştırdığınızda, mevcut sayfadaki tüm sayfaların adlarını A sütununda alacaksınız.
- Jan sayfasını gizlersek, aşağıdaki sayfa adları listesine sahip oluruz
Bu şekilde, vba kodunu kullanarak görünen tüm sayfaların adını alabiliriz.
İndir - vba ile sayfa adları nasıl alınır - xlsm