Excel'de birleştirilmiş hücrelerdeki satır yüksekliği, içeriğe otomatik olarak nasıl sığdırılır?
Excel'de verilerinizi net bir şekilde sunmak için satır yüksekliğini ayarlamak, hızlı ve doğru şekilde yapılmalıdır. Normalde, bir satırın yüksekliğini hücre içeriğine otomatik olarak uyarlamak için Otomatik Sığdır Satır Yüksekliği özelliğini kullanabilirsiniz. Ancak birleştirilmiş hücrelerle çalışırken, Otomatik Sığdır Satır Yüksekliği özelliğinin beklendiği gibi yanıt vermediğini fark edebilirsiniz. Excel’in Otomatik Sığdır işlevi, birleştirilmiş hücreleri tamamen yok sayar; bu nedenle bu durumlarda satır yüksekliği içeriğe uyacak şekilde otomatik olarak yeniden boyutlandırılamaz. Sonuç olarak, tüm içeriğin görünür olduğundan emin olmak için genellikle her birleştirilmiş hücrenin satır yüksekliğini manuel olarak ayarlamanız gerekir. Bu işlem, özellikle çok sayıda birleştirilmiş hücre varsa sıkıcı ve hata yapmaya açık olabilir.
Bu makale, Birleştirilmiş içindeki Satır Yüksekliği değerlerini etkili bir şekilde otomatik sığdırmaya yardımcı olacak birkaç pratik yöntem sunar ve böylece zaman kazanmanızı sağlar, ayrıca düzenli ve okunaklı bir çalışma sayfası sürdürmenize yardımcı olur:
Birleştirilmiş hücrelerin Satır Yüksekliği değerini VBA koduyla otomatik sığdırma
Metni Kaydır ve manuel ayarlama kullanma
Birleştirilmiş hücrelerin Satır Yüksekliği değerini VBA koduyla otomatik sığdırma
Çalışma sayfanızda aşağıdaki ekran görüntüsünde gösterildiği gibi değişen miktarlarda içeriğe sahip birden fazla birleştirilmiş hücre olduğunu varsayalım. Tüm verilerinizin, her satırı manuel olarak ayarlamadan tamamen görünür olmasını istiyorsanız, birleştirilmiş her hücrenin içeriğine göre satır yüksekliğini aynı anda otomatik olarak ayarlamak için bir VBA kodu çözümü kullanabilirsiniz. Bu yöntem, sayfanızda çok sayıda birleştirilmiş aralık varsa ya da birleştirilmiş hücre içerikleri sık sık güncelleniyor ve ayarlama sürecini basitleştirmek istiyorsanız özellikle faydalıdır.
VBA çalıştırmadan önce, kaydedilmemiş çalışmalarınızın kaybolmaması için çalışma kitabınızı mutlaka makro destekleyen bir dosya olarak kaydedin. VBA, Excel tarafından sağlanan güvenli bir yöntemdir; ancak sisteminizde makroların etkinleştirildiğinden ve güvenlik ayarlarınızın makro yürütmesine izin verdiğinden emin olun.
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.
2.Ekle>Modülseçeneğine tıklayın, ardından aşağıdaki kodu Modül Penceresine kopyalayıp yapıştırın:
VBA kodu: Birden fazla Birleştirilmiş içindeki Satır Yüksekliği değerini otomatik sığdırmaOption 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ı ayarlamak gerekiyorsa, otomatik sığdırmak istediğiniz her birleştirilmiş aralık için Call AutoFitMergedCells(Range("a1:b2")) satırını gerektiği kadar kopyalayın ve adresi güncelleyin.
(2.) Betikteki Sayfa4 kısmını, Birleştirilmiş Çalışma Sayfası Adınızla eşleşecek şekilde değiştirmeyi unutmayın. Çalışma Sayfası Adınızdan emin değilseniz, Excel pencerenizin alt kısmındaki Sayfa Sekmeleri bölümüne bakın.
(3.) Makroları çalıştırırken, beklenmedik biçimlendirme değişikliklerini önlemek için “Aralık seç” adımında kritik veya hassas veriler içeren hücrelerin yanlışlıkla dahil edilmediğinden emin olun.
3. Bu kodu çalıştırmak için F5 tuşuna basın. Çalıştırdıktan sonra, belirtilen tüm Birleştirilmiş hücrelerin içeriğini tamamen gösterebilmesi için Satır Yüksekliği değerleri otomatik olarak aşağıda gösterildiği gibi ayarlanacaktır:
Bu VBA çözümü, birleştirilmiş hücrelerin boyutlandırılmasını yönetmek için kullanışlı ve otomatik bir yöntem sunar. Ancak Geliştirici sekmesine erişim ile makro kullanım izni gerektirir; bu nedenle makroların devre dışı bırakıldığı veya kısıtlandığı ortamlarda iş birliği yapıyorsanız bunu dikkate alın.
Metni Kaydır ve manuel ayarlama kullanma
Pek çok senaryoda, VBA’ya veya karmaşık araçlara başvurmadan tüm içeriğin net bir şekilde görünmesini sağlamak için Metni Kaydır özelliğini hızlı bir manuel Satır Yüksekliği ayarıyla birleştirebilirsiniz.
Adım 1: Metni Kaydır'ı Etkinleştirme
- Biçimlendirmek istediğiniz birleştirilmiş hücreleri seçin.
- Şeritteki Giriş sekmesine gidin ve Hizalama grubundaki Metni Kaydır düğmesine tıklayın.
Bu işlem, içeriğin birleştirilmiş alanda yeni satırlara otomatik olarak kaydırılmasını sağlar.
Adım 2: Görünümü kontrol edin ve gerekirse Satır Yüksekliği değerini manuel olarak ayarlayın
Metniniz çok uzun değilse, artık birleştirilmiş hücreye mükemmel şekilde sığmış olabilir.
İçerik daha uzunsa ve hâlâ tam olarak görünmüyorsa, tüm içeriğin görünür olması için birleştirilmiş hücrenin altındaki satır sınırını sürükleyerek Satır Yüksekliği değerini artırın.
İlgili makale:
Excel'de sütun genişliği nasıl otomatik olarak sığdırılır?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar