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: 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?
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- 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?
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: 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?
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.
-
- Benzer Konular
- Cevaplar
- Görüntüleme
- Son mesaj
-
-
Aktif Hücredeki Veriyi Kopyalama ve Hesaplama
gönderen Uğur Batur » » forum Genel Makro Paylaşımları - 1 Cevaplar
- 1497 Görüntüleme
-
Son mesaj gönderen Uğur Batur
-
-
- 8 Cevaplar
- 1764 Görüntüleme
-
Son mesaj gönderen erseldemirel