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

Belirli bir sayfada bir satırı görüntülemek için VBA’daki Hidden özelliğini kullanabilirsiniz.

Belirli bir sayfadaki tüm satırları görüntülemek için aşağıdaki sözdizimini kullanabilirsiniz:

 Sub UnhideAllRows()

Rows.EntireRow.Hidden = False

End Sub

Hidden özelliğini kullanarak ve False değerini belirterek Excel’e geçerli sayfadaki tüm satırları 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 satırlar nasıl görüntülenir?

Diyelim ki farklı basketbolcular hakkında bilgiler içeren bir Excel sayfamız var:

Şimdi 3. satıra sağ tıklayıp ardından Gizle’ye tıkladığımızı varsayalım:

Diyelim ki bu işlemi 7. ve 8. satırlar için tekrarladık, böylece sayfamızda artık birkaç satır gizlenmiş olacak:

Şimdi bu sayfadaki tüm satırları görüntülemek için VBA’yı kullanmak istediğimizi varsayalım.

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

 Sub UnhideAllRows()

Rows.EntireRow.Hidden = False

End Sub

Bu makro çalıştırıldığında tüm satırlar görüntülenecektir:

Orijinal veri kümemizdeki tüm satırların yeniden görünür olduğuna dikkat edin.

Bir Excel çalışma kitabındaki tüm sayfalardaki tüm satırları görüntülemek istiyorsanız, bunu yapmak için aşağıdaki makroyu oluşturabileceğinizi unutmayın:

 Sub UnhideAllRowsAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Rows.EntireRow.Hidden = False
    Next ws

End Sub

Basit bir For Every döngüsü kullanarak, çalışma kitabımızdaki her sayfada döngü oluşturabilir ve her sayfadaki tüm satırları görüntüleyebiliriz.

Not : VBA’daki Hidden ö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: Tüm sayfalar nasıl görüntülenir?
VBA: Bölmeler nasıl dondurulur