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

Cevapla
Jeeday
Mesajlar: 5
Kayıt: Sal Eki 24, 2023 10:55 am
Lokasyon: İstanbul
Meslek: Grafik Tasarımcısı
Adınız: Alper
Soyadınız: Öztovi

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

Mesaj gönderen 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
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
erseldemirel
Mesajlar: 133
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

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

Mesaj gönderen 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
Mesajlar: 28
Kayıt: Cmt Tem 08, 2023 12:56 am
Meslek: Yazılım Uygulama ve Destek Elemanı
Adınız: Zulkarneyin
Soyadınız: Albayrak

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

Mesaj gönderen 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.
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj