uyacak şekilde sığdırma

[acar6783]

excel de nereye baktımsa bulamadım uyacak iekilde daraltıp aynı zamanda metni kaydırma. böyle bir şey yok imiş sanırım.
buna bir çözüm olarak şu şekkilde bir şey yapabilirmiyiz.
sayfaya öyle bir kod yazalım ki:

misal a1 den e15 e kadar seçili alan hücreleri birleştirilmiş olsun bu alanda 10harflik bir kelime ya da cümle varsayalım bu metnin boyutu 70 olsun ve tam sığdığını düşünelim .
bu cümleyi yada kelimeyi 20 harfe cıkardığımda metin bpyutunu 35 e düşürecek bir kod...
başka bir deyişle;

10 harf boyut 70
11 harf boyut 69
12 harf boyur 65
.....
.
.
.
.
gibi

 

[suleyman242]

misal a1 den e15 e kadar seçili alan hücreleri birleştirilmiş olsun bu alanda 10harflik bir kelime ya da cümle varsayalım bu metnin boyutu 70 olsun ve tam sığdığını düşünelim .
bu cümleyi yada kelimeyi 20 harfe cıkardığımda metin bpyutunu 35 e düşürecek bir kod...

yanlış anlamadıysam sutunların genişliği otomatik ayarlanacak
Dosyayı incelermisin.

 

[acar6783]

yok hocam tamamen farklı bir durum.

sütün satır oaranı sabit onda bir değişiklik yok sadece ben kaç harfli bir kelime ya da metin girersem ona göre yazı boyutu değişsin istiyorum
yukarıda da bahsettiğim gibi
10 harf boyut 70
11 harf boyut 69
12 harf boyur 65
.....
.
.
.
.
gibi

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len([a1]) = 10 Then [a1].Font.Size = 70
If Len([a1]) = 11 Then [a1].Font.Size = 69
If Len([a1]) = 12 Then [a1].Font.Size = 65
End Sub