Vba'da satırları/sütunları otomatik olarak nasıl sığdırabilirim?

Anahtar noktaları

• VBA’da satırları, sütunları ve hatta çalışma sayfasının tamamını otomatik olarak sığdırmak için Otomatik Sığdır yöntemini kullanabilirsiniz.
• Aralığı belirtmeniz gerekir, ardından Otomatik Sığdır yöntemini kullanabilirsiniz.

Bir sütunu otomatik sığdır

Diyelim ki A sütununu otomatik olarak ayarlamak istiyorsunuz, kod aşağıdaki gibi olacaktır:

 Range("A1").EntireColumn.AutoFit

Yukarıdaki kod satırında, A1 hücresinin tüm sütununa başvurmak için EntireColumn özelliğini kullandınız.

Bir e-tabloda olduğunuz için, sütunlar özelliğini de kullanabilir ve aşağıdaki gibi bir kod yazabilirsiniz.

 Columns(1).AutoFit

Bir çizgiyi otomatik olarak sığdır

Benzer şekilde bir satırı otomatik olarak ayarlamak için kod yazabilirsiniz. Diyelim ki 5. satırı otomatik olarak ayarlamak istiyorsunuz, kod şöyle olacaktır:

 Range("A5").EntireRow.AutoFit

Ve eğer row özelliğini kullanmak istiyorsanız kodu aşağıdaki gibi kullanabilirsiniz.

 Rows(5).AutoFit

KullanılmışAralığı Otomatik Sığdır (satırlar ve sütunlar)

Şimdi, yalnızca veri içeren sütunları ve satırları otomatik olarak sığdırmak istediğinizi varsayalım. VBA’da kullanabileceğiniz, kullanılan aralık adı verilen bir özellik vardır. Yani kod şöyle olacaktır.

 ActiveSheet.UsedRange.EntireColumn.AutoFit ActiveSheet.UsedRange.EntireRow.AutoFit

Belirli bir e-tablo kullanmak istiyorsanız kod şöyle olacaktır.

 Worksheets("Sheet1").UsedRange.EntireColumn.AutoFit Worksheets("Sheet1").UsedRange.EntireRow.AutoFit

Çalışma sayfasının tamamını otomatik olarak sığdır

Ve çalışma sayfasındaki tüm sütun ve satırlara başvurmak istiyorsanız “HÜCRELER” özelliğini kullanabilirsiniz. İşte kod.

 Worksheets("Sheet1").Cells.EntireColumn.AutoFit Worksheets("Sheet1").Cells.EntireRow.AutoFit

Veya aşağıdaki gibi kod yazmak için VBA’nın YOUR deyimini de kullanabilirsiniz.

 With Worksheets("Sheet1").Cells .EntireColumn.AutoFit .EntireRow.AutoFit End With