metni kaydır veuyacak şekilde daralt birlikte kullanma

[acar6783]

Kolay gelsin arkadaşlar
Konu başlığındaki gibi kaydır ve uyacak şekilde daralt birlikte kullanma mümkün değil gibi görünüyor.
Buna alternatif olarak
aşağıdaki gibi bir kod kullanıyorum fakat her karakter sayısı için tek tek kod girmem gerekiyor buna alternatif bir çözüm bulunabilirmi acaba?

Private Sub Worksheet_Change(ByVal Target As Range)

If Len([d25]) = 6 Then [a1].Font.Size = 46
If Len([d25]) = 7 Then [a1].Font.Size = 44
If Len([d25]) = 8 Then [a1].Font.Size = 42
If Len([d25]) = 9 Then [a1].Font.Size = 40
If Len([d25]) = 10 Then [a1].Font.Size = 38
If Len([d25]) = 11 Then [a1].Font.Size = 36
If Len([d25]) = 12 Then [a1].Font.Size = 34
If Len([d25]) = 13 Then [a1].Font.Size = 32
If Len([d25]) = 14 Then [a1].Font.Size = 30
End Sub

 

[monelogg]

Merhaba, kodlar iyi değil ama ufkunuzu açar diye düşünüyorum.

Sub ayarla()
x = 46
For i = 6 To 50
If Len([A1]) = i Then
[A1].Font.Size = x - (i - 5) * 2
End If
Next
End Sub

 

[acar6783]

Hocam istediğim gibi olmadı ama .
misal iki harflik bir veri girdiğimde onun boyutunu 120 ye kadar ayarlaması gerekiyor

 

[acar6783]

Sakıncası yokise eğer bir de kod yazıldığında açıklama ekleyebilrmisiniz
hangi harf ne anlama geliyor.?

 

[monelogg]

Merhaba, daha iyi olacağını düşündüğüm bir örnek üzerinden anlatmaya çalışayım.

Private Sub Worksheet_Change(ByVal Target As Range)

For i = 1 To 56
'1'den 56'e kadar giden bir döngü kurduk.
If Len([D25]) = i Then
'Eğer bu D25 hücresindeki değerin uzunluğu döngüdeki değere eşitse aşağıdaki kodları çalıştır.
[A1].Font.Size = 122 - i * 2
'A1'in yazı boyutunu hesapla.
Else
Exit Sub
'Uygun olmayan durumda yordamdan çık.
End If
'Şartı bitir.
Next
'Döngüyü bitir.
End Sub

Burada döngü neden 56'ya kadar?
120 - i * 2
i=1 için >>> 122-2=120
i=2 için >>> 122-4=118
.
.
.
i=55 için >>> 122-55*2=12
i=56 için >>> 122-56*2=10

56'dan sonra her değer için yazı boyutu bizim için anlamsız hal alacaktır (8 kabul edilebilir tabi o ayrı).
i=61'den sonra da negatif değere düşeceğinden kod hata verecektir.

 

[acar6783]

maalesef hocam 2 harf için 120 tamam fakat her harfte 2 şer 2şer aşağı düşüyor haliyle 9 harfli bir yazıda hücreye sıgmıyor..
kodda değişiklik yaptım *3 hatta *4 e kadar gittim ama yine de tam olarak istediğimi alamadım...