Vba kullanarak sütunları otomatik olarak sığdırma (örnekle)

Excel çalışma sayfasındaki bir veya daha fazla sütunun genişliğini otomatik olarak ayarlamak için VBA’daki Otomatik Sığdır yöntemini kullanabilirsiniz.

Bu yöntemi pratikte kullanmanın yaygın bir yolu:

 SubAutoFitColumns ()
Columns(" A:D ").AutoFit
End Sub

Bu özel makro, A ila D aralığındaki her sütunun genişliğini, her sütundaki en uzun hücreyi görüntülemek için gerektiği kadar geniş olacak şekilde otomatik olarak ayarlar.

Aşağıdaki örnek, AutoFit yönteminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA Kullanarak Sütunları Otomatik Olarak Sığdırma

Diyelim ki Excel’de çeşitli basketbol oyuncuları hakkında bilgiler içeren aşağıdaki veri kümesine sahibiz:

Her sütunun genişliğini A’dan D’ye, her sütundaki en uzun hücreyi görüntülemek için gerektiği kadar geniş olacak şekilde otomatik olarak ayarlamak istediğimizi varsayalım.

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

 SubAutoFitColumns ()
Columns(" A:D ").AutoFit
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Her sütunun genişliğinin, her sütundaki en uzun hücreyi görüntülemek için gerektiği kadar geniş olacak şekilde otomatik olarak ayarlandığını unutmayın.

Belirli bir çalışma sayfasındaki her sütunu otomatik olarak ayarlamak istiyorsanız aşağıdaki sözdizimini kullanabileceğinizi unutmayın:

 SubAutoFitColumns ()
ThisWorkbook.Worksheets(" Sheet1 ").Cells.EntireColumn.AutoFit
End Sub

Bu özel makro, Sayfa1’deki her sütunun genişliğini, her sütundaki en uzun hücreyi görüntülemek için gerektiği kadar geniş olacak şekilde otomatik olarak ayarlayacaktır.

Veri içermeyen tüm sütunların genişliğinin değişmeyeceğini unutmayın.

Not : VBA’da AutoFit yönteminin tam belgelerini 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: Kullanılan sütunların sayısı nasıl sayılır?
VBA: Son kullanılan sütun nasıl bulunur?
VBA: sütunlar nasıl silinir