Vba'da satır yüksekliği nasıl değiştirilir (örneklerle)

VBA kullanarak Excel’de satır yüksekliğini değiştirmek için aşağıdaki yöntemleri kullanabilirsiniz:

Yöntem 1: Bir satırın yüksekliğini değiştirme

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

Bu özel makro üçüncü satırın yüksekliğini 40 olarak değiştirir.

Not : Excel’deki varsayılan satır yüksekliği 14,4’tür .

Yöntem 2: Birden Çok Satırın Yüksekliğini Değiştirme

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40
End Sub

Bu özel makro, her satırın yüksekliğini birden beşten 40’a kadar değiştirir.

Yöntem 3: Birden çok satırın yüksekliğini otomatik olarak ayarlayın

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

Bu özel makro, her satırın yüksekliğini birden sekize kadar otomatik olarak ayarlar, böylece her satırdaki en uzun metni görüntülemek için gereken uzunlukta olur.

Aşağıdaki örnekler, Excel’deki aşağıdaki veri kümesiyle bu yöntemlerin her birinin pratikte nasıl kullanılacağını gösterir:

İlgili: VBA’da Sütun Genişliği Nasıl Değiştirilir

Örnek 1: Bir satırın yüksekliğini değiştirme

Üçüncü satırın yüksekliğini 40 yapmak için aşağıdaki makroyu oluşturabiliriz:

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

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

Yalnızca üçüncü sıranın yüksekliğinin 40’a çıkarıldığını, diğer tüm sıraların yüksekliğinin aynı kaldığını unutmayın.

Örnek 2: Birden fazla satırın yüksekliğini değiştirme

Her satırın yüksekliğini birden beşten 40’a değiştirmek için aşağıdaki makroyu oluşturabiliriz:

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40 
End Sub

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

İlk beş sıranın her birinin yüksekliğinin 40 olarak değiştiğini, diğer tüm sıraların yüksekliğinin ise aynı kaldığını unutmayın.

Örnek 3: Birden fazla satırın yüksekliğini otomatik olarak ayarlama

İlk sekiz satırın her birinin yüksekliğini, her satırdaki en uzun metni görüntülemek için gerektiği kadar uzun olacak şekilde otomatik olarak ayarlamak üzere aşağıdaki makroyu oluşturabiliriz:

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

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

Her satırın yüksekliğinin, her satırda en uzun metni görüntülemek için gerektiği kadar uzun olacak şekilde otomatik olarak ayarlandığını unutmayın:

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: Biçimlendirmeli bir satır nasıl eklenir
VBA: Aralıktaki satır sayısı nasıl sayılır?