Hücreye göre yazı boyutu

burhancavus61

Altın Üye
Katılım
13 Mayıs 2005
Mesajlar
756
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
925
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
925
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
756
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Görselde ki seçenek işinize yarayabilir.

222037
 

burhancavus61

Altın Üye
Katılım
13 Mayıs 2005
Mesajlar
756
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Örnek dosya ekleyerek yapmak istediğiniz işlemi açıklar mısınız?
 
Üst