Hücre içerisinde kaç satır var

[tamer42]

Merhabalar,

Bilindiği üzere;
Format Cells... >>> Alignment >>> Wrap Text

yoluyla sütun daraltılıp duruma göre hücre içerisinde birden çok satır oluşturulabiliyor,

Bu şekildeki bir hücrede kaç satır olduğunu fonksiyon yada kodla öğrenilebilir mi?


İyi Günler, İyi Çalışmalar...

 

[Levent Menteşoğlu]

Örneğin A1 hücresi için aşağıdaki gibi bir kodlamayı deneyin daha pratik çözümlerde bulmak mümkün olabilir.

Application.ScreenUpdating = False
[a1].WrapText = False
deg1 = [a1].Height
[a1].WrapText = True
deg2 = [a1].Height
MsgBox WorksheetFunction.RoundUp(deg2 / deg1, 0)

 

[tamer42]

Teşekkürler....

 

[tamer42]

Sn Levent Tekrar Merhabalar,

Konuyla ilgili olarak Word de yazılmış aşağıdaki bir sıralı metin dizisi var.

Bu metinin tamamını bir excel hücresine [a1] kopyaladıktan sonra buradaki en son nümerik değeri öğrenmek istemiştim. Örn: Burada "5"

1. aaaaaaaaaaaaaaaaaaaaaa
2. Bbbbbbbbbbbbbbbbbbbbbbb
3. Cccccccccccccccccccccccc
4. Ddddddddddddddddddddddddd
5. Eeeeeeeeeeeeeeeeeeeeeeeeeeeeee

bu şekildeki metin bazı hücrelerde hücreye tam sığmıyor, sizin verdiği kodda kısmende olsa eksik sonuç verdi.

Kısaca benim amacın en büyük nümerik değeri aldığımda işin çözülecek.

İyi Çalışmalar.