Vba kullanarak tüm sayfaları gösterme (örnekle)

Excel çalışma kitabındaki bir sayfayı görüntülemek için VBA’daki Visible özelliğini kullanabilirsiniz.

Bir çalışma kitabındaki tüm sayfaları görüntülemek için aşağıdaki sözdizimini kullanabilirsiniz:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

Basit bir For Every döngüsü kullanarak ve Visible = True değerini belirterek, Excel’e çalışma kitabındaki tüm sayfaları görüntülemesini söyleriz.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA kullanılarak tüm sayfalar nasıl görüntülenir?

Diyelim ki dört sayfadan oluşan bir Excel çalışma kitabımız var:

Şimdi Sayfa4’e sağ tıklayıp ardından Gizle’ye tıkladığımızı varsayalım:

Diyelim ki bu işlemi Sheet2 ile tekrarladığımızı varsayalım, böylece görünür olan sayfalar artık Sheet1 ve Sheet3 olacaktır.

Diyelim ki çalışma kitabındaki tüm sayfaları görüntülemek için VBA’yı kullanmak istiyoruz.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

Bu makro çalıştırıldığında çalışma kitabındaki tüm sayfalar görüntülenecektir:

Not : VBA’daki Visible özelliğine ilişkin tüm belgeleri burada bulabilirsiniz.

Ek kaynaklar

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

VBA: Son kullanılan satırı nasıl bulabilirim?
VBA: Son kullanılan sütun nasıl bulunur?
VBA: Bölmeler nasıl dondurulur