Excel'de birleştirilmiş hücrelerin satır yüksekliğini otomatik olarak nasıl ayarlayabilirsiniz?

Excel'de, verilerinizi net bir şekilde sunmak için satır yüksekliklerini hızlı ve doğru bir şekilde ayarlamak çok önemlidir. Normalde, bir satırın yüksekliğini otomatik olarak hücre içeriğine uyacak şekilde yeniden boyutlandırmak için Satır Yüksekliğini Otomatik Ayarla özelliğini kullanabilirsiniz. Ancak, birleştirilmiş hücrelerle çalışırken, Satır Yüksekliğini Otomatik Ayarla'nın beklendiği gibi yanıt vermediğini fark edebilirsiniz. Yani, Excel'in Otomatik Ayar özelliği birleştirilmiş hücreleri tamamen görmezden gelir, bu nedenle bu durumlarda satır yüksekliğini otomatik olarak içerikteki verilere uyacak şekilde yeniden boyutlandıramazsınız. Sonuç olarak, genellikle tüm içeriğin görünür olduğundan emin olmak için her birleştirilmiş hücrenin satır yüksekliğini manuel olarak ayarlamanız gerekir; bu da özellikle birçok birleştirilmiş hücreniz varsa sıkıcı ve hata yapmaya açık bir işlemdir.

Bu makale, size zaman kazandıracak ve düzenli, okunabilir bir çalışma sayfası korumanıza yardımcı olacak birleştirilmiş hücrelerin satır yüksekliğini otomatik olarak ayarlamak için birkaç pratik yöntem tanıtmaktadır:

Birleştirilmiş hücrelerin satır yüksekliğini VBA kodu ile otomatik ayarlama

Metni Kaydır seçeneğini ve manuel ayarlamayı kullanın

Birleştirilmiş hücrelerin satır yüksekliğini VBA kodu ile otomatik ayarlama

Çalışma sayfanızda değişen miktarda içerik içeren birkaç birleştirilmiş hücre olduğunu varsayalım, aşağıdaki ekran görüntüsünde gösterildiği gibi. Eğer her satırı manuel olarak ayarlamadan tüm verilerinizin tamamen görünür olmasını istiyorsanız, tüm birleştirilmiş hücrelerin satır yüksekliğini içeriğine göre otomatik olarak ayarlamak için bir VBA kod çözümü kullanabilirsiniz. Bu yöntem, özellikle çalışma sayfanız boyunca birçok birleştirilmiş aralık olduğunda veya birleştirilmiş hücre içerikleri sıklıkla güncellendiğinde ve ayarlama işlemini basitleştirmek istediğinizde çok faydalıdır.

Herhangi bir VBA kodunu çalıştırmadan önce, kaydedilmemiş çalışmaları kaybetmemek için çalışma kitabınızı makro etkin dosya olarak kaydetmeyi unutmayın. VBA, Excel tarafından sağlanan güvenli bir yöntemdir, ancak makroların etkin olduğundan ve sistemde makro çalıştırılmasına izin veren güvenlik ayarlarının yapılandırıldığından emin olun.

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Ekle > Modül'e tıklayın, ardından aşağıdaki kodu Modül Penceresine kopyalayıp yapıştırın:

Option Explicit
Public Sub AutoFitAll()
  Call AutoFitMergedCells(Range("a1:b2"))
   Call AutoFitMergedCells(Range("c4:d6"))
    Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
  Dim tHeight As Integer
  Dim iPtr As Integer
  Dim oldWidth As Single
  Dim oldZZWidth As Single
  Dim newWidth As Single
  Dim newHeight As Single
  With Sheets("Sheet4")
    oldWidth = 0
    For iPtr = 1 To oRange.Columns.Count
      oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
    Next iPtr
    oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
    oRange.MergeCells = False
    newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
    oldZZWidth = .Range("ZZ1").ColumnWidth
    .Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
    .Range("ZZ1").WrapText = True
    .Columns("ZZ").ColumnWidth = oldWidth
    .Rows("1").EntireRow.AutoFit
    newHeight = .Rows("1").RowHeight / oRange.Rows.Count
    .Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
    oRange.MergeCells = True
    oRange.WrapText = True
    .Range("ZZ1").ClearContents
    .Range("ZZ1").ColumnWidth = oldZZWidth
  End With
End Sub

Notlar:

(1.) Ek birleştirilmiş aralıkları ayarlamanız gerekiyorsa, Call AutoFitMergedCells(Range("a1:b2")) satırını gerektiği kadar kopyalayın ve otomatik ayarlamak istediğiniz her birleştirilmiş aralığın adresini güncelleyin.

(2.) Komutta Sheet4'ü birleştirilmiş hücrelerinizin bulunduğu çalışma sayfasının adına değiştirin. Çalışma sayfası adınızdan emin değilseniz, Excel pencerenizin altındaki sayfa sekmelerini kontrol edin.

(3.) Makroları çalıştırırken, beklenmedik biçimlendirme değişikliklerini önlemek için seçili aralıklarda kritik veya hassas veri içeren hücrelerin yanlışlıkla dahil edilmediğinden emin olun.

3. Kodu çalıştırmak için F5 tuşuna basın. Çalıştırıldıktan sonra, belirtilen tüm birleştirilmiş hücreler, aşağıdaki şekilde gösterildiği gibi, hücre içeriklerini tamamen görüntülemek için satır yüksekliklerini otomatik olarak ayarlayacaktır.

Bu VBA çözümü, birleştirilmiş hücre boyutlandırmasıyla başa çıkmak için rahat ve otomatik bir yol sağlar. Ancak, Geliştirici sekmesine erişim gerektirir ve makroları kullanma izni gerektirir — bu nedenle, makroların devre dışı bırakıldığı veya kısıtlandığı ortamlarda işbirliği yapıyorsanız bunu göz önünde bulundurun.

Metni Kaydır seçeneğini ve manuel ayarlamayı kullanın

Çoğu senaryoda, VBA veya karmaşık araçlara güvenmeden tüm içeriğin net bir şekilde görünür olmasını sağlamak için Metni Kaydır özelliğini hızlı bir manuel satır yüksekliği ayarlamasıyla birleştirebilirsiniz.

Adım 1: Metni Kaydırmayı Etkinleştirme

1. Biçimlendirmek istediğiniz birleştirilmiş hücre(leri) seçin.
2. Giriş sekmesine gidin ve Hizalama grubundaki Metni Kaydır düğmesine tıklayın.

Bu, içeriğin birleştirilmiş alanda otomatik olarak yeni satırlara kaymasını sağlayacaktır.

Adım 2: Görüntüyü kontrol edin ve gerekirse manuel olarak satır yüksekliğini ayarlayın

Metniniz çok uzun değilse, artık birleştirilmiş hücreye mükemmel şekilde sığabilir.

İçerik daha uzunsa ve hala tam olarak görünmüyorsa, tüm içeriğin görüntülenmesi için birleştirilmiş hücrenin altındaki satır sınırını sürükleyerek satır yüksekliğini artırın.

İlgili makale:

Excel'de sütun genişliğini otomatik olarak nasıl ayarlayabilirsiniz?