Hücreye göre yazı boyutu

burhancavus61

Altın Üye
Katılım
13 Mayıs 2005
Mesajlar
519
Excel Vers. ve Dili
2010 Türkçe
Hücre sabit yazıyı hücreye göre küçültüp büyütmek mümkünmü acaba. Yazıyı kelimelerine göre ayırıp gerekirse büyük gerekirse küçültmek istiyorum. Biraz örneklere baktım ama sanırım böyle bi isteği olan yok yada ben bulamadım.
 
Katılım
6 Temmuz 2015
Mesajlar
782
Excel Vers. ve Dili
2003
Merhabalar,
Şöyle bir mantık işinizi görür mü ?
(A1 hücresindeki karakter sayısına göre font büyüklüğünü değiştir.)

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
 
Katılım
6 Temmuz 2015
Mesajlar
782
Excel Vers. ve Dili
2003
Yada yazı sabit demiştiniz. O halde şöyle de deneyebilirsiniz.

Sub Düğme1_Tıklat()
If Columns("A:A").ColumnWidth <= 20 Then [A1].Font.Size = 10
If Columns("A:A").ColumnWidth > 20 And Columns("A:A").ColumnWidth <= 40 Then [A1].Font.Size = 20
If Columns("A:A").ColumnWidth > 40 And Columns("A:A").ColumnWidth <= 60 Then [A1].Font.Size = 30
If Columns("A:A").ColumnWidth > 60 And Columns("A:A").ColumnWidth <= 80 Then [A1].Font.Size = 40
If Columns("A:A").ColumnWidth > 80 Then [A1].Font.Size = 50
End Sub
 

burhancavus61

Altın Üye
Katılım
13 Mayıs 2005
Mesajlar
519
Excel Vers. ve Dili
2010 Türkçe
Olmadı üstad büyük olan bir ismi sığdırdı ama küçük olanı fazla büyüttü.
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
29,328
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Görselde ki seçenek işinize yarayabilir.

222037
 

burhancavus61

Altın Üye
Katılım
13 Mayıs 2005
Mesajlar
519
Excel Vers. ve Dili
2010 Türkçe
Hocam kusura bakmayın onu biliyorum tek satır o şekilde çok küçük oluyor. Metni kaydır seçenekli bi çözüm olabilirmi acaba diye düşündüm. Belki makrolu bir çözüm vardır ama şart değil. Çalışmam istediğim gibi ama böyle daha hoş olur diye düşündüm. Zahmet olmasın kimseye konuyu kapatabiliriz.
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
29,328
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Örnek dosya ekleyerek yapmak istediğiniz işlemi açıklar mısınız?
 
Üst