Bu öğretici, VBA kullanarak satır yüksekliği ve sütun genişliklerinin nasıl ayarlanacağını gösterecektir.
Excel Satır yükseklikleri ve Sütun genişlikleri, VBA'da .RowHeight ve .ColumnWidth özellikleri ayarlanarak değiştirilebilir.
VBA ile Sütun Genişliğini Ayarla
ayarlamak için makro sütun genişliği Sütun A'dan E'ye:
123 | Alt Sütun_Genişliği()Columns("A:E").ColumnWidth = 30Alt Bitiş |
VBA ile Satır Yüksekliğini Ayarla
ayarlamak için makro satır yüksekliği 1. Sıra:
123 | Alt Satır Yüksekliği()Satırlar ("1:1"). Satır Yüksekliği = 30Alt Bitiş |
Otomatik Sığdırma Sütun Genişliği
Excel, sütun genişliklerini "Otomatik Sığdırma" olanağı sunar. Bu özellik, sütun genişliğini, sütun(lar)ın o sütunda bulunan tüm metne sığacak kadar geniş olması için ayarlar.
VBA'da sütun genişliklerini otomatik sığdırmak için:
1 | Sütunlar("A:B").Otomatik Sığdır |
Bunun hakkında, kullanılan tüm sütunların nasıl Otomatik Sığdırılacağı da dahil olmak üzere, VBA'dan bir Sütunun Nasıl Otomatik Sığdırılacağı hakkında başka bir makalede daha fazlasını yazdık.
Otomatik Sığdır Satır Yüksekliği
Benzer bir yöntem kullanarak satır yüksekliklerini de otomatik olarak sığdırabilirsiniz:
1 | Satırlar("1:2").Otomatik Sığdır |
Hücre Genişliğini Ayarla
Bir hücreye başvurarak sütun genişliklerini de ayarlayabilirsiniz:
1 | Range("a1").EntireColumn.ColumnWidth = 20 |
Hücre Yüksekliğini Ayarla
Veya bir hücreye başvurarak satır yüksekliklerini ayarlayın:
1 | Range("a1").EntireRow.RowHeight = 10 |
Sütun Genişliği Al
Bir sütunun sütun genişliğini elde etmek için:
12 | iColumnWidth'i uzun süre karartiColumnWidth = sütunlar ("a").ColumnWidth |
Not: Aralıktaki tüm sütunlar aynı genişliğe sahip değilse, bu Null değerini döndürür.
Satır Yüksekliğini Al
Benzer şekilde, satır yüksekliğini elde edebilirsiniz:
12 | iRowHeight'ı uzun süre karartiRowHeight = satırlar ("1").RowHeight |