Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: Birleştirilmiş Hücrede Otomatik Satır Yüksekliği [Çözüldü]  (Okunma sayısı 13684 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı orhanacan

  • Excelce Onbaşı
  • **
  • İleti: 51
  • Puan +2/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
    • webizci
  • Ad Soyad: orhan acan
  • İl / İlçe: ankara
  • Mesleğiniz: memur
Merhaba hocam, sorunumun çözümünü hiçbir yerde bulamadım. Sayfada a15 hücresi birleştirilmiş hücre ve ben buraya metin giriyorum. Otomatik olarak satırın metine göre açılıp, daralmasını nasıl sağlayabiliriz. Bazı sitelerde 1nci sayfada birkaç tane birleştirilmiş hücre olduğunda ve diğer bir sayfada da aynı işlemi yapmak istediğinizde kodlama hata vermektedir. Sizden istirhamım örneğin sayfada bir dilekçe örneği var, açıklama bölümüne metin girdiğimizde otomatik olarak satırın açılması, yeniden metin girişinde küçülmesi... Örnek üzerinde bakıp yardımcı olursanız inanın çok makbule geçecek. Saygılarımla...
« Son Düzenleme: 31 Temmuz 2011, 15:58:46 Gönderen: Bülent Öztürk »

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Birleştirilmiş Hücrede Otomatik Satır Yüksekliği
« Yanıtla #1 : 21 Temmuz 2011, 14:35:05 »
Merhaba Orhan Bey.
İlgili sayfanın change olayına şu kodları ekleyip dener misiniz?

Kod: [Seç]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A9" Then Exit Sub
uzunluk = Len(Range("A9"))
Select Case uzunluk
Case 0 To 90
    genislik = 1
Case 91 To 180
    genislik = 2
Case 181 To 270
    genislik = 3
Case 271 To 360
    genislik = 4
Case 361 To 450
    genislik = 5
End Select
Rows("9:9").RowHeight = CLng(12.75 * genislik)
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı orhanacan

  • Excelce Onbaşı
  • **
  • İleti: 51
  • Puan +2/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
    • webizci
  • Ad Soyad: orhan acan
  • İl / İlçe: ankara
  • Mesleğiniz: memur
Ynt: Birleştirilmiş Hücrede Otomatik Satır Yüksekliği
« Yanıtla #2 : 22 Temmuz 2011, 11:25:55 »
Hocam, özürümü kabul buyurun görevden yeni geldim ve cevabınızı yeni gördüm. Tek kelimeyle; sakın insanınıza bilginizle ışığınızı esirgemeyin. Bu sorunun cevabını birçok yerde aradım ama yeterli cevap bulamadım. hakka ve halkına hizmet değerinizdir. Saygı ve Sevgilerimle... Sorun çözülmüş ve konu kapanmıştır. Kiminin parası, kiminin hayır duası... duamızla yolunuz açık olsun..... Farkınız, sorunlara nokta atışı ile çözüm sunmanız, tekrar saygılar...
« Son Düzenleme: 22 Temmuz 2011, 11:27:51 Gönderen: orhanacan »

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Birleştirilmiş Hücrede Otomatik Satır Yüksekliği
« Yanıtla #3 : 22 Temmuz 2011, 11:46:03 »
Hayır dualarınız için teşekkür ederim Orhan Bey. Allah sizlere de herşeyin hayırlısını versin.  :masallah

Sorun çözüldüğüne çok sevindim.  :yihu

Bu arada, Excel'de birleştirilmiş hücrelerle işlem yapmak biraz sorunlu olabiliyor. Ben genellikle kaçınıyorum bunları kullanmaktan...
Sorunuzda yapmaya çalıştığım; hücre içerik uzunluğuna göre satır yüksekliğini ayarlamak.
Sizin dosyasında ortalama 90 karakter uzunluk için 1 satır gerekiyordu. Buna göre, 90'nın katlarına göre, 12.75 ile çarpıp satır yüksekliğini ayarlamaya çalışmış olduk.
Case 361 To 450 ile 450 karakter uzunluğa kadar kod yazdık, daha uzun yazınız olursa, Case'leri 90'nın katları şeklinde devam ettirmek gerekecektir. Case else yazmadığımız için daha uzun yazılarda hata verir.

Saygılar, çalışmalarınızda başarılar.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı ozarslan

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bayan
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ozarslan ozarslan
  • Doğum Yılınız: 1970
  • İl / İlçe: istanbul/adalar
b
« Yanıtla #4 : 12 Ocak 2016, 21:11:09 »
ikinici bi satır için nasıl bir uygulama yapmak gerekli
« Son Düzenleme: 12 Ocak 2016, 21:45:04 Gönderen: ozarslan »