Bir çalışma sayfasını VBA ile değiştirdikten sonra, mümkün olan en güzel sonucu sunmak için sütunlarınızı Otomatik Sığdırmanız gerekebilir. VBA kullanarak sütunları nasıl otomatik olarak sığdıracağınız aşağıda açıklanmıştır.
VBA kullanarak Otomatik Sığdırma Sütunu
Bu kod, A ve B sütunlarını otomatik olarak sığdırır. Otomatik sığdırma, etkin sayfaya uygulanır.
| 1 | Columns("A:B").EntireColumn.Autofit |
Kullanılan Tüm Sütunları Otomatik Sığdır
Bir çalışma sayfasında kullanılan tüm sütunları Otomatik Sığdırmak isterseniz ne olur? Yukarıdaki yöntemi, Kullanılan Sütun Sayısını Say ve bir döngü ile birlikte kullanın.
Aşağıdaki kod, VBA kullanarak kullanılan tüm sütunlara otomatik olarak uyar:
| 1234567891011 | Alt AutofitAllUsed()Dim x Tamsayı Olarakx = 1 için ActiveSheet.UsedRange.Columns.CountColumns(x).EntireColumn.autofitSonraki xAlt Bitiş |
