BİRLEŞMİŞ HÜCREDEKİ YAZI KAÇ SATIR?

[Jeeday]

Selam herkese,

A1 ve B1 hücresi birleştirilmiştir. (merged)
Satır yüksekliği sabit 29...

Birleşmiş olan bu hücredeki yazının kaç satır olduğunu vba ile hesaplamak istiyorum.

Linebreak kullanılmamıştır.

1698089304440.png

[erseldemirel]

Bildiğim bunun bir hesaplama kodu yok. Siz hücrenin en*boy alan hesaplayıp yazılan puntoya göre karakter sayısı ve görünün satır sayısını tespit ederseniz belki bir aralık da sonuç yaparsınız. Bunu tabi siz gözlemleyeceksiniz. 12 Punto bir yazıda 50*150 piksel olsun kaç satır gözüküyorsa mesela buna bir değer verip bir dahaki işlemleri bu değerden büyükse şöyle küçükse böyle gibi sonuçlandırabilirsiniz.

[islakates]

Hangi sayfada çalışıyorsanız o sayfanınn kod kısmına ekleyin,
veya sayfaya buton koyun makro olarak atayın. Umarım işinize uygundur.

Sub SatirSayisiHesaplarım()
Dim birleşikAs Range
Dim metin As String
Dim satirSayisi As Integer
Set birleşik= ThisWorkbook.Sheets("Sayfa1").Range("A1")
metin = birleşik.Text
satirSayisi = Len(metin) - Len(Application.WorksheetFunction.Substitute(metin, vbLf, "")) + 1
MsgBox "Satır sayısı: " & satirSayisi
End Sub
Sayfa ismini değiştirmeyi unutmayın.