Karakter sayısına göre metin punto ayarı

[cenqawer]

Merhaba bir hücre içindeki karakter sayısına göre metin punto boyutu ayarlamak mümkün mü örneğin 500 karakter 12 punto 1000 karakter 9 Punto olacak şekilde

 

[spacebar]

merhaba. istediğiniz hücreyi / hücreleri seçin. sağ tıkla+hücreleri biçimlendir+hizalama+uyacak şekilde daraltı işaretleyin. sanırım sorununuz çözülür.

 

[cenqawer]

Maalesef o şekilde işime yaramıyor yazı uzunluğuna göre boyutlarında değişiklik yapmam gerekiyor.

 

[cenqawer]

=UZUNLUK(H8) bu formülle karakter sayısını hesaplıyorum Örnek bana 2800 dedi H8 hücresini otomatik 18 punto veya H8 402 adet dedi 24 Punto yapacak formül veya makro lazım

 

[cenqawer]

Sub Düğme1_Tıklat()
If Len([A1]) <= 10 Then [A1].Font.Size = 40
If Len([A1]) > 10 And Len([A1]) <= 20 Then [A1].Font.Size = 30
If Len([A1]) > 20 And Len([A1]) <= 30 Then [A1].Font.Size = 20
If Len([A1]) > 30 And Len([A1]) <= 40 Then [A1].Font.Size = 10
End Sub

şu makro işimi görecek aslında ama herhangi bir düğmeye tıklatmadan nasıl çalışır hücre içeriğine göre

 

[Korhan Ayhan]

İlgili hücrelere elle mi veri giriyorsunuz, yoksa formüllemi hücrelere veri geliyor.

 

[cenqawer]

Formülle giriyorum. hücreden seçim yapınız yazan kısım H8 hücresine yansıyor H8 =DÜŞEYARA($A$2;Sayfa1!A:C;3;0) bu şekilde kod var numaraya göre bilgiler geliyor uzun olan bilgilerin puntosunu düşürmek gerekiyor.

 

[Korhan Ayhan]

Deneyiniz.

Sayfanızın kod bölümüne uygılayınız.

Option Explicit

Private Sub Worksheet_Calculate()
    Dim Rng As Range
    
    For Each Rng In Range("H8")
        If Not IsError(Rng.Value) Then
            Select Case Len(Rng.Value)
                Case Is > 30: Rng.Font.Size = 10
                Case Is > 20: Rng.Font.Size = 20
                Case Is > 10: Rng.Font.Size = 30
                Case Is <= 10: Rng.Font.Size = 40
            End Select
        End If
    Next
End Sub

 

[cenqawer]

Elinize sağlık

 

[cenqawer]

Korhan Bey İlk tek seferde söylemediğim için bu arada çok özür diliyorum dosyam sitedeki arkadaşlar ve sayenizde tamamlandı son olarak 2. sayfada her kartı tek tek basıp kaydete basıyorum ya bunun tek tuşla otomatik olarak yapılması sağlanabilir mi örnek tek tuşla 1000 tane datayı tek tek yapsın buda olursa müthiş olacak

 

[Korhan Ayhan]

Bu sorunuz ilk sorunuzla sanırım aynı şey değil..

Farklı sorularınız için farklı başlıklar açmalısınız.