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.
BİRLEŞMİŞ HÜCREDEKİ YAZI KAÇ SATIR?
-
- Mesajlar: 3
- Kayıt: 24 Eki 2023, 10:55
- Lokasyon: İstanbul
- Meslek: Grafik Tasarımcısı
- Adınız: Alper
- Soyadınız: Öztovi
BİRLEŞMİŞ HÜCREDEKİ YAZI KAÇ SATIR?
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- Mesajlar: 84
- Kayıt: 24 Haz 2023, 00:23
- Web Sitesi: https://erseldemirel.com.tr/
- Adınız: Ersel
- Soyadınız: Demirel
Re: BİRLEŞMİŞ HÜCREDEKİ YAZI KAÇ SATIR?
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.
-
- Mesajlar: 28
- Kayıt: 08 Tem 2023, 00:56
- 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?
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.
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.