Koşullu Biçimlendirme ile hücreye sığmayan metinleri renklendirme

[modoste]

merhaba sayın hocalarım
çalışmalarımdan birinde bir detay aklıma takıldı sormak istedim
örneğin B23 hücremde cümle var
ben B23 ün sütun genişliğini artırdıkça metin tam olarak sığıyo ama düşürdükçe hücrede metnin hepsi yazmıyo

elime ulaşan bir veri kümesinde hücrede yazan ifadenin tamamı hücreye sığmıyorsa renkli bir şekilde biçimlendirmesi yapılabiliyor mu

 

[sarpkayhan]

Selamlar;

Hücre Biçimlendir/Hizalama/Uyacak Şekilde Daralt

 

[modoste]

sayın sarpkayhan sorum bu değildi
mesela hücreye baktığınızda "Marmara Bölgesi" yazıyo görünen bu fakat aslında yazan cümlenin tamamı "Marmara Bölgesi İller Tutanaklar" yani bir kısmı görünmüyo
biçimlendirme yada nasıl bir şey yapılsa böyle hücreler renklense

 

[sarpkayhan]

Anladığım kadarı ile;

Koşullu biçimlendirme/Yeni kural/Yalnızca şunu içeren hücreleri biçimlendir/Belirli bir metin/Yazılacak metin yazılıp biçimlendirme yapılır.

Umarım anlamışımdır.
Örnek dosya ile daha iyi anlaşılır.
Saygılarımla

 

[systran]

iki farklı yönten buldum sorunu doğru anladıysam.
1-
Thisworkbook.sheets("Name").rows(index).entirerow.autofit
Thisworkbook.sheets("Name").rows(index).entirecol.autofit

2- buda ufak bi numara var demiş eleman

With Columns("B:B")
    oldWidth = .ColumnWidth ' ilk genişliği sakla

    .EntireColumn.AutoFit
    fitWidth = .ColumnWidth ' yazının sığması için gereken uzunluğu bul

    .ColumnWidth = oldWidth ' eski haline getir

    'eğer karşılaştırma DOĞRU çıkarsa yazı sütun için çok büyük demek MİŞ
    If oldWidth < fitWidth Then
        'Do Stuff
        'bişey yapmalı HEEEY
    End If
End With

 

[modoste]

sorum anlaşılmadı galiba
söyle tekrar anlatmak istiyorumbir hücrede yazan bir ifade kelime yada metin var ama görünümde hücrede metin var ama tamamı değil bu tip olanları bulmak buldurmak renklendirmek ile ilgili

A1 hücresinde "Karadeniz bölgesinde toplam 24 adet satış temsilcisi vardır" yazdığımda
A1 in sütun yüksekliğini 10 yapsak satır genişliğini 10 yapsak bu halde iken bile bu metin bu hücrede tam olarak görünmez
bu durumda olanları bulmak istiyorum renklendirmek istiyorum yarın örnek dosyada ekleyecem

 

[Korhan Ayhan]

Bu işlemi kod ile yapmanız daha sağlıklı sonuç verecektir.

Sub Renklendir()
    Dim Veri As Range, X, Y
    
    Range("A:A").Interior.ColorIndex = xlNone
    Cells(1, Columns.Count).EntireColumn.Delete
    
    For Each Veri In Range("A1:A100")
        If Veri.Text <> "" Then
            X = Veri.ColumnWidth
            Cells(1, Columns.Count) = Veri.Text
            Cells(1, Columns.Count).EntireColumn.AutoFit
            Y = Cells(1, Columns.Count).ColumnWidth
            If X < Y Then Veri.Interior.ColorIndex = 6
        End If
    Next

    Cells(1, Columns.Count).EntireColumn.Delete

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[modoste]

teşekkür ederim korhan hocam en kısa zamanda kodu deneyecem sizlere dönücem
çıktı almadan önce bazı yazıların tam olarak görünüp görünmediğini kontrol etmek gerekiyo bazen